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第 1 章 实用 摘要 和 报表 语言 


1.1 什么 是 Penl 


“懒惰 、 性 和 急 和 傲慢 。 伟 大 的 Perl 程序 员 拥 有 这 些 优点 。” 





LarTry Wall 


Perl 是 一 种 多 用 途 的 开源 《免费 软件 ) 解释 型 语言 ， 由 称 为 Perl Porters 的 核心 开发 团队 维护 
和 改进 。 它 主要 用 作 脚 本 语言 ， 并 且 运 行 在 众多 平台 上 。 尽管 Perl 最 初 是 为 UNIX 操作 系统 设计 
的 ,但 是 它 以 其 可 移植 性 以 及 现在 与 大 多 数 操作 系统 捆绑 在 一 起 而 著名 。 这 些 操作 系统 包括 RedHat 
Linux、Solaris、FreeBSD 、Macintosh 等 。 由 于 Perl 的 通用 性 ， 它 通常 称 为 程序 设计 语言 的 “ 琐 
至 对 

Larry Wall 编写 Perl 语言 来 管理 散布 在 网 络 中 的 日 志文 件 和 报表 。 依 据 Wikipedia.org 上 面 的 
说 法 :“Perl 最 初 命 名 为 “Pearl ， 它 出 自 于 Gospel of Matthew (《 圣 经 马 大 福音 》) 中 的 “Parable 
of the Pearl” 〈 了 珍珠 的 离 言 )。” 该 宛 言 的 简要 内 容 如 下 : 一 位 商人 寻找 珍珠 ， 他 找到 一 颗 如 此 贵 
漂亮 的 珍珠 ， 以 至 于 他 情愿 倾 其 所 有 来 购买 它 。 最 后 ， 他 甚至 比 以 往 更 富有 。 无 论 你 怎样 解释 这 则 
寓言 ， 它 都 具有 非常 积极 的 寅 意 。 

但 是 在 1987 年 推出 其 官方 发 布 版 时 , 删 去 了 “Pearl” 中 的 字母 “a”, 自 此 将 该 语言 称 为 “Perl”， 
后 来 又 把 它 称 为 实用 摘要 和 报表 语言 (Practical Extraction and Report Language), 还 有 一 些 人 把 它 
称 为 病态 折衷 垃圾 列表 器 〈(Pathologically Eclectic Rubbish Lister )。 你 很 快 将 会 看 到 ，Perl 确实 远 
远 胜 过 实用 报表 语言 或 折衷 垃 圾 列表 器 。Perl 使 编程 简单 、 灵 活 和 快速 ， 因 此 使 用 它 的 人 都 会 喜欢 
它 。 其 用 户 从 经 验 丰富 的 程序 员 一 直到 只 具有 很 少 计算 机 知识 的 初学 者 ， 而 且 用 户 的 数量 也 在 飞速 
增长 。8 

Perl 传承 自 UNIX。Perl 脚本 在 功能 上 类 似 于 UNIX awk、sed、shell 脚本 和 C 程序 。shell 脚 
本 主要 由 UNIX 命令 构成 ，Perl 脚本 则 不 然 。sed 和 awk 用 于 编辑 和 报告 文件 ， 但 是 Perl 无 需 执行 
文件 即 可 工作 。C 没有 shell、sed 和 awk 的 任何 模式 匹配 和 通 配 元 字符 ， 而 Perl 却 有 扩展 字符 集 。 
Perl 最 初 用 于 操作 文件 中 的 文本 、 从 文件 中 提取 数据 和 编写 报表 ， 但 经 过 不 断 的 发 展 ， 它 现在 可 以 
操作 进程 、 执 行 网 络 任务 、 处 理 Web 页 面 、 与 数据 库 通 信 ， 以 及 分 析 科 学 数据 。Perl 确实 是 程序 设 
计 语 言 的 “瑞士 军刀 ”， 任 何人 都 可 以 使 用 它 。 










































































台 ” 当 指 语言 时 ， 将 Perl 拼写 为 “Perl”， 当 指 解释 器 时 ， 则 拼写 为 “Perl”。 








本 书 中 的 示例 是 在 Solaris、Linux、Macintosh UNIX 和 Win32 系统 上 创建 的 。 

Perl 通 向 与 O "Reilly Media 的 商标 即 骆驼 标志 相关 联 ，O ?Reilly Media 出 版 了 第 一 本 关于 Perl 的 
书籍 ， 书 名 是 《Programming Perl》， 作 者 是 Larry Wall 和 Randal Schwartz， 该 书 称 为 “Camel Book” 
(骆驼 书 )。 








1.2 ”什么 是 解释 语言 


在 编写 Perl 程序 时 ， 读 者 需要 准备 两 样 工 具 : 一 个 文本 编辑 器 和 一 个 Perl 解释 器 。 读 者 
可 以 从 许多 Web 站 点 上 下 载 到 后 者 , 譬如 Perl.org、cpan.org 以 及 activestate.com。 和 C++、 
Java 等 编译 语言 不同， 读者 无 需 在 执行 程序 之 前 将 其 编译 成 机 器 能 理解 的 代码 。Perl 解释 器 
会 代劳 这 一 切 ， 它 能 完成 程序 的 编译 、 解 释 和 执行 工作 。 像 Perl 这 样 的 解释 语言 有 很 多 优点 ， 
首先 ， 它 能 运行 在 几乎 任何 平台 上 ; 其 次 ， 它 相对 易于 学 习 ; 最 后 ， 它 的 速度 很 快 ， 并 且 灵 活 
度 很 高 。 

像 Python 、Java 和 Perl 等 解释 语言 都 用 到 了 中 间 人 代码， 以 便 将 编译 和 解释 这 两 个 过 程 
联系 起 来 。 它 首先 会 把 用 户 提 供 的 代码 编译 成 一 种 内 部 压缩 格式 , 称 之 为 字 节 码 (bytecode) 
或 连接 代码 〈threaded code),， 然 后 交 给 解释 堪 执 行 。 在 运行 Perl 程序 时 ,读者 会 观察 到 两 
个 阶段 : 编译 阶段 和 执行 阶段 ， 后 一 阶段 才 会 生成 程序 结果 。 如 果 程 序 中 存在 语法 错误 ， 和 艾 
如 关键 字 拼 写 错误 或 缺 了 引号 ， 编 译 器 就 会 报错 。 即 使 通过 了 编译 ， 程 序 在 开始 执行 时 也 可 
能 出 现 其 他 问题 。 成 功 通 过 上 述 两 个 阶段 后 ， 才 可 以 做 其 他 事情 ， 和 艾 如 改进 程序 或 者 提升 程 
序 性 能 等 。 

此 外 ， 解 释 器 还 提供 了 许多 命令 行 开 关 项 〈 选 项 ) 以 控制 其 行为 模式 ， 艾 如 语法 检查 、 发 送 警 
告 信 息 、 遍 历 文 件 、 执 行 语 多、 打开 调 试 器 等 。 本 书后 面 章 节 将 详细 介绍 这 些 开 关 项 。 






















































































1.3 Perl 的 用 户 














由 于 Perl 内 建国 数 能 方便 地 处 理 进程 和 文件 , 再 加 上 它 是 可 移植 的 〈 即 能 运行 在 多 种 不 同 的 平 
台 上 )， 因 此 Perl 深 受 那些 需要 同时 监控 多 种 不 同系 统 的 系统 管理 员 的 欢迎 。 万 维 网 〈World Wide 
Web) 的 迅速 发 展 大 大 提高 了 人 们 对 Perl 的 兴趣 。 它 现在 已 经 成 为 最 流行 的 CGI 脚本 编写 语言 , 负 
责 动态 生成 Web 页 面 。 即 使 现在 出 现 了 像 ASP.NET 之 类 的 其 他 专用 Web 页 面 处 理 语言 , Perl 还 是 
一 如 既往 地 受到 系统 管理 员 、 数 据 库 管理 员 、 科 学 家 、 遗 传 学 家 以 及 所 有 需要 从 文件 里 收集 和 处 理 
数据 的 用 户 的 欢迎 。 

任何 人 都 可 以 使 用 Perl。 不 过 倘若 读者 已 经 熟悉 UNIX Shell 脚本 、C 语言 或 其 他 从 C 派生 的 
语言 〈 例 如 C++ 和 Java) 的 话 ， 学 起 Perl 来 会 更 容易 一 些 。 对 上 述 用 户 而 言 ， 转 到 Perl 语言 的 难 
度 相 对 较 小 。 而 对 于 那些 缺乏 编程 经 验 的 读者 ， 则 需要 多 花 些 时 间 来 学 习 。 不 过 只 要 学 会 了 Perl， 
您 可 能 就 没有 必要 去 使 用 其 他 语言 

如 果 读 者 熟悉 像 awk、grep、sed 和 女 这 样 的 UNIX 工具 ， 就 知道 它们 的 语法 其 实 各 不 相同 ， 其 
选项 和 参数 处 理 方 式 也 不 同 ， 项 至 不 同 工 具 所 遵循 的 规则 都 互 不 相同 。 如 果 读者 是 一 位 Shell 程序 


员 ， 往 往 需要 经 历 一 连 串 艰苦 的 学 习 过 程 ， 学 会 使 用 各 种 应 用 工具 、shell 元 字符 、 正 则 表达 式 元 字 
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符 和 不 计 其 数 的 引用 。 此 外 ，Shell 程序 功能 有 限 ， 速 度 还 很 慢 。 用 户 若 要 执行 更 复杂 的 算术 任务 、 
进程 间 通 信任 务 或 二 进 制 数据 处 理 任 务 ， 则 不 得 不 使 用 更 高 级 的 编程 语言 ， 艾 如 C、CT++ 或 Java。 
了 解 C 的 读者 都 应 当知 道 , 要 想 用 它 在 文件 里 搜寻 模式 , 或 者 与 操作 系统 交互 处 理 文件 或 命令 的 话 ， 
那 可 不 是 什么 简单 的 事情 。 

Perl 集中 了 Shell 程序 、C 语言 以 及 UNIX 中 awk、grep 、sed 和 芷 工具 的 优秀 特性 。 由 于 它 速 
度 很 快 ， 且 不 受 特 定 容 量 数据 块 的 限制 ， 因 此 很 多 系统 管理 员 和 数据 库 管理 员 都 从 传统 的 Shell 脚 
本 转向 使 用 Perl。C++ 和 Java 程序 员 还 可 以 利用 Perl 5 中 新 增 的 面向 对 象 特性 , 譬如 创建 可 重复 使 
用 的 可 扩展 模块 。Perl 现在 可 以 由 其 他 语言 生成 , 而 其 他 语言 也 可 艇 入 到 Perl 中 。 所 有 使 用 Perl 的 
用 户 在 做 每 件 事 时 都 应 当 牢 记 这 样 一 句 话 :“ 道 路 往往 不 止 一 条 ”(http://www.oreilly.comy/catalog/ 
Opensources/book/larry.html ) 。 

在 开始 编写 脚本 时 ,读者 并 不 需要 了 解 有 关 Perl 的 所 有 内 容 ， 甚 至 可 以 不 是 一 名 程序 员 。 本 书 
将 为 读者 学 习 Perl 打下 良好 的 基础 ,帮助 读者 发 现 其 诸多 功能 和 优点 。 然 后 读者 便 可 自行 决定 需要 
深入 多 少 。 如 有 果 不 出 意外 ， 大 家 一 定 会 发 现 Perl 的 乐趣 所 在 。 


1.3.1_ Perl 的 版 本 


Perl 有 很 多 版 本 ， 其 中 两 个 主要 版 本 是 Perl 4 和 Perl S。Perl 4 的 最 后 一 个 版 本 是 Perl 4.036， 
发 布 于 很 久之 前 的 1992 年 。Perl 5.000 同样 显得 很 古老 ， 它 发 布 于 1994 年 秋天 ， 其 源 代码 经 过 彻 
底 重 写 ， 对 语言 进行 了 优化 ， 并 引入 了 对 象 以 及 很 多 其 他 特性 。 尽 管 变化 巨大 ，Perl 5 仍然 保持 着 
与 以 前 版 本 的 兼容 性 。 本 书 示例 都 在 这 两 个 版 本 下 进行 了 测试 , 若 有 区 别 之 处 , 本 书 都 将 予以 指明 。 
在 编写 本 书 时 ，Perl 的 最 新 版 本 是 Perl 5.8.8。 下 一 代 的 Perl 6 将 再 次 对 Perl 进行 重新 设计 ， 目 前 
距离 其 官方 发 布 还 遥遥 无 期 。 尽 管 Perl 6 可 能 会 引入 新 的 特性 ， 但 读者 从 本 书 学 到 的 基本 语法 将 永 


远 保 持 不 变 。 






















































































1.3.2 ”什么 是 Perl 6 


“Perl 5 是 我 本 人 对 了 Perl 进行 的 改写 。 我 希望 Perl 6 将 由 全 社区 完成 改写 ， 并 能 属于 
整个 社区 。?” 





Larry Wall，State of the Onion Speech，ITPC4 


Perl 6 在 本 质 上 与 Perl 5 类 似 ， 所 不 同 的 是 它 加 入 了 许多 新 的 特性 ， 但 其 基本 语法 、 特 性 和 目 
标 都 将 维持 不 变 。 如 果 读 者 对 Perl 已 经 有 所 了 解 , 那么 这 些 知识 都 不 用 推倒 重 来 。 如 有 果 按照 本 书 内 
容 学 习 Perl， 读 者 便 能 为 Perl 6 的 正式 发 布 做 好 准备 。 学 习 Perl 6 的 过 程 就 好 像 是 从 美式 英语 转向 
澳大利亚 英语 ， 而 不 像 从 英语 转向 汉语 那样 麻烦 。 

如 需 获 取 有 关 Perl 6 进展 情况 的 进一步 消息 ， 请 读者 访问 : 

http:Wwww.perl.com/pub/a/2006/01/12/what is_perl 6.html?page=2 

此 外 ， 如 需 了 解 Larry Wall 生平 和 Perl 的 历史 ， 请 访问 : 

http:Wwww.softpanorama.org/People/Wallindex.shtmjl#Perl _ history 
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Perl Development: Perl 6 


区 了 Pen 6is the nextverslion of the Perl programrming langusge， 
pen6 FAQ The project attempts to address the interpreter the language, 
Whos Who and the culture, The internals of the version 5 interpreter are SO 
Talks tangled that they hinder maintenance,， thwart Some new feature 
Maiing Lists efforts, and scare 0 作 potential internals hackers. The language as 

of version S has some misfeatures that are a hassle to ongoing 
Planet Perl Six maintenance of the interpreter and of programs written in Perl. 
Thig Week.… And finally, the entre Per community ls invited to partkipate in the 
Status deslgn and Implementstion of Perl 5， 


Architecture “Perl 5 was my rewrite of Perl，I want Perl 6 to be 由 e 

es Apocalypses community's rewrite of Perl and of the cormmunity.” 
Exegese5 

e Synopses -Larry Wall State of the Onmion Speech TPC4 
e RFCS 





图 1-1 Perl6 开 发 Web 页 面 
1.4 如 何 获得 Penl 


读者 可 以 通过 多 种 途径 获得 Perl 发 布 包 , 其 中 最 常用 的 是 Perl 综合 文献 网 (Comprehensive Perl 
Archive Network，CPAN )。(Cwww.cpan.org。) 
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Note that CPAN does not budd these packages: we Just provide the hypertmjks So please dont ask to 
buld a package for you: you have access to 由 e pla8orm, not us. Also, this page ists operating systerms， 
not hardware Platforms': therefore Peri packages for, 3a7, Linux PDAs or SONY Playstahon, or XBox, 
of toasters, of So forth running Linilt are not "ports" as SUch. 


There are, of course, exceptions to the above': 正 for some reason gettng packages for the Partcular 
platform is hard (of exarmmple not 由 at many Peopje have ihe compiler environment for 由 e platform, orthe ”过 
Done 








图 1-2  CPAN 中 的 二 进 制 包 发 布 页 面 
如 需 了 解 自己 的 系统 平台 可 以 运行 哪 种 Perl 发 布 包 ， 可 访问 http://www.cpan.org/port。 读 者 
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若 想 方便 快速 地 完成 Perl 的 安装 ， 则 可 以 使 用 ActivePerl 组 件 。 它 是 基于 标准 Perl 源 代 码 构建 的 
一 种 完整 的 自 安装 包 ， 支 持 Windows、Max OS X、Linux 、Solaris、AIX 和 HP-UX 等 平台 。 它 由 
ActiveState 网 站 (www.activestate.com ) 在 线 发 布 。 完 整 的 ActivePerl 安装 包 包 含 一 份 二 进 制 形式 


的 Perl 核心 包 ， 以 及 所 有 相关 在 线 文档 。 
下 面 几 个 Web 站 点 将 有 助 于 读者 了 解 更 多 有 关 Perl 的 信息 。 
。 由 OO"Reilly Media 公司 负责 维护 的 Perl 官方 主页 ， www.Perl.com 。 


。 由 Perl 基金 会 运营 的 Perl 目录 网 站 (Perl Directory), 该 网 站 的 目标 是 成 为 囊括 一 切 Perl 相 
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The Perl Directory at Perl.org 


Current Release: 5,8.6 
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图 1-3 
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关 信 息 的 中 央 目 录 : www.perl.org。 
”Perl 综合 文献 网 ， 在 这 里 读者 也 能 找到 有 关 Perl 的 所 有 信息 : http:/www.cpan.oTg。 
。 读者 可 以 在 这 个 网 站 里 找到 有 关 Perl 开发 的 常用 工具 : http:Wwww.activestate.com 


Perl 的 可 用 版 本 


如 需 获 得 有 关 Perl 版 本 、 当 前 二 进 制 版 本 日 期 、 补 丁 或 其 他 版 权 信 息 的 话 ， 请 输入 下 列 命令 ， 
参见 示例 1.1 所 示 《〈 其 中 $ 符号 是 Shell 的 提示 符 )。 


$ Perz1lL -V 
开 全 玫 二 证 且 人 是 且 半生 和 攻 于 
(with 50 zegistereaQ Patches，see Perz1l -V fo more Qetail) 





到 Be 一 WGH 


马 Binacry buililaQ 820 [2747139] PEzoviaea by ActiveState 
httpPp://www.ActiveState .com 
下 

4 Becgmaos EeeopredEcnuy uneer neEsEms 硬 OSINS EeeEREEOSSEOE 
License or the GNU Generzal Public LIicense，which may be founaQ 工 世 
nes 本 Sees 和 ROLEE 

Somelstsaaoacunmeneatacn toriesrI nelnannogAo SEAsnoulaoe 

FeouneoEcmenue 本 SSEEmEUEnoaian ie EEC DEL 
have access to the Intecnet，， Point Youz prowsez at 
httpPp://www.perl.org/，the Per1l Home Page. 


ES 
(with 1 zegisteredq Patch，see Perl -=-V for more aetail) 


号 Pez1l may be copieg only unaer the tercms of either the Atistaic 
License or the GNU Genezal Public License，which may be fcounaQ 工 5 
Eeerss0EsSUcceI 

Complete aocumentation for Perl，incluaing EAQ lists snhoula be 
onma cncnns 本 SSEEmnusmogEnang 记 ES 症 避 E 王 人 人 Ga 
access to the Internet，PpPoint Your browser to www.Perl1.com/，the 
Pezl home Page. 


6 Pez1l -V 
型 as 汪汪 
(with 8 zegisterceQ Patches，see Perzl -V fo more Qetaill) 


own 二 SEN 


Binacy builaQ 809 Przoviadaed by ActivesState Corcp. 
httpPp://www.ActiveState .com 

eeesEaEe ONE 全 O 人 总 名 GSR 
TI 


Perz1l may be copied only unaer the termns of either the Atistiec 
License or the GNU Genetral Public License，which may be founad in 
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the Per1l 5 Source Kit. 


Complete QQocunmentation for Perl，incluaing FAQO 1ists，shoula be 
SESSIONUSORREEIIEOC DOSE SO 
have access to the Inteznet，Point Youz bzowseLzr at 
http://www.perl.com/，the Perl Home Page. 


荐 


. 示例 所 用 Perl 的 版 本 是 5.8.8， 是 由 ActiveState 提供 的 Windows 版 。 

. Perl 的 开发 者 Larry Wall 拥有 上 述 代 码 的 版 权 。 

. 上 述 内 容 来 自 ActiveState。 

. 读者 可 在 遵守 Artistic Licence 或 GNU 相关 条 款 的 前 提 下 复制 Perl。Perl 的 发 布 过 程 遵 
循 自由 软件 基金 会 (Free Software Foundation) 制定 的 GNU 许可 证 ， 也 就 是 说 ，Perl 
是 免费 的 。 

5. 对 Solaris CUNIX) 而 言 ，Perl 的 最 新 版 本 是 5.8.3。 


人 已 一 


1.5 什么 是 CPAN 


CPAN 是 通 向 所 有 Perl 相 关 知 识 的 大 门 , 其 全 称 是 Perl 综合 文献 网 (Comprehensive Perl Archive 
Network)。 该 Web 站 点 拥有 读者 所 需要 的 所 有 免费 Perl 资料 ， 包 括 文档 、FEAQ、 模 块 和 脚本 、 二 
进 制 发 布 包 与 源 代 码 、 以 及 相关 通知 等 。 全 世界 有 多 个 CPAN 的 镜像 站 点 ， 读 者 可 从 如 下 URL 获 
得 距离 最 近 的 镜像 : 

www.perl.com/CPAN 

Www.cpan.org 

如 果 读 者 想 要 为 手头 工作 寻找 某 个 Perl 模块 的 话 , 不 妨 可 以 去 CPAN 看 看 。CPAN 的 搜索 引擎 

能 在 大 量 不 同 的 分 类 中 搜索 所 需 模块 。 有 关 模 块 的 知识 将 在 本 书 第 12 章 中 耶 以 介 


xDJCPAN - Wozila Firefox 
区 险 yem Hzoy Roomals Iook bp 


2 伪 口 Rapsjiwwwcpsanorgy 
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图 1-5 ”一 个 内 容 全 面 的 Perl 模块 索引 
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1.6 Perl 文档 
1.6.1 _ Perl 的 man 页 面 





标准 的 Perl 发 布 包 中 包含 了 一 份 完 整 的 在 线 文档 ， 





称 为 man 页 面 ， 能 为 所 有 标准 的 Perl 实用 


工具 提供 帮助 信息 (这 个 名 字 来 自 于 UNIX 系统 中 的 man) 旨 。Perl 的 man 页 面 被 划分 为 许多 类 别 。 





如 果 读 者 在 命令 行 提 示 符 下 输入 下 列 内 容 : 


man Per1 


就 会 得 到 所 有 类 别 的 列表 信息 。 因 此 , 如 果 读 者 想 要 获得 有 关 如 何 使 用 Perl 正则 表达 式 的 帮助 





信息 ， 可 以 输入 : 
man PerlLre 
如 果 还 需要 获得 有 关子 例 程 的 帮助 ， 则 可 键入 : 


man Per1Lsub 
























































中 后 面 的 部 分 只 适用 于 在 线 参 考 手 册 : 


下 面 列 出 了 所 有 Perl 的 类 别 ， 其 

perlbot 面向 对 象 的 技巧 和 示例 
perldebug 调试 

perldiag 诊断 信息 

perldsc 数据 结构 : 介绍 信息 
perlform 格式 

perlfunc 内 建国 数 

perlipc 进程 间 通 信 

perllol 数据 结构 : 有 关 列 表 〈list) 的 列表 
perlmod 模块 

perlobj 对 象 

perlop 运算 符 和 优先 级 顺序 
perlpod 无 格式 的 旧 文 档 

perlre 正则 表达 式 

perlref 引用 

perlsock 套 接 字 支 持 扩展 
perlstyle 样式 向 导 

perlsub 子 例 程 

perltie 隐藏 于 简单 变量 后 的 对 象 
perltrap 捕获 错误 

perlvar 预定 义 变量 


如 需 了 解 具体 库 模 块 的 用 途 ， 
pm 模块 ， 可 在 命令 行 输入 : 




















名” man 页面 的 意思 是 








用 户 手册 manual 页 面 。 一 一 译 者 注 

















读者 可 使 用 perldoce 命令 查询 相关 文档 。 例 如 ， 如 果 要 了 解 CGI. 


笑 用 摘 要 和 报表 语言 


Per1ldaoc CGI 
就 能 显示 有 关 CGI.pm 模块 的 文档 。 如 果 键 入 : 
Perz1ldoc English 


则 会 显示 有 关 English.pm 模块 的 帮助 文档 。 
UNIX/DOS 路 径 ) 





如 需 获 得 某 个 特定 Perl 函数 的 文档 ， 读 者 可 以 键入 perldoc -ff 和 国 数 名 。 例 如 ， 为 了 获得 有 
关 localtime 国 数 的 帮助 信息 ， 可 在 命令 行 提 示 符 下 面 执行 如 下 命令 〈 执 行 前 可 

Perldoc -ff Localtime 

Localtime 卫 XPR 

ocaltime 





usedq as follows: 
非 0 


能 需要 设置 相应 的 
1 3 4 
<continues> 
的 帮助 文档 。 由 


号 
(S$sec, Smin, Shour Smday Smon, Syeary Swdayr Syqayy Sisqdst) 





月 ET 
1 ist with the time analyzedq for the LIocal time zone . 
6 


Converts a time as returnedq by the time function to a 9-element 
2 
1.6.2 HTML 文档 


7 


亚 浆 训 于 区 可 业 业 六 
8 


xD ActiveperlUser Guide - Mozilla Firefox 


localtime (time) 
当 您 从 ActivePerl 网 站 〈 即 从 ActiveState.com) 下 载 Perl 的 时 候 ， 会 发 现 该 网 站 提供 了 出 色 
图 1-6 可 见 ， 从 这 里 可 以 链接 到 有 关 Perl 的 几乎 每 一 项 内 容 。 
区 员 Jew Heory tookmars Iook bep 
- 晤 伪 | 县 Ppedicperthminde 
合 Gotng erted 国 Lie Hesdines 
_ ACTIVEPERL USER GUIDE 
TABLE OF CONTENTS 
CaowWisg Started 


WELCOME TO ACTIVEPERL 





Thank You for uging Acbveperl AcbveStA0'5 Gualty-3ggored binary buid of per available for 
wa Complete documentation 


XUmvux Mac OS X， Solang Sn0d Windowys. Ag Port of ACiveStat6'5 yupport for Perl AcbveStAe 
sa The Peri Package Manager, for instsliing Perl extension modules 


peovidex te Aciveperi binary packa06x free to 由 6 cormmunity. 
aa Perl 中 e binsry core dtnbubon 


The Windowms version of Aciveperl alo includez; 


Refer to 由 6 Releaz6 


入 
w PerliEz, for embedding peri 由 6 68957 waT 


ctrveperi includef: 
ww Perifor TISAPI on ITS piog-in th runsg Per CG] cnpks f69or 
ActiveState products 


ww periScript， on Acovex ycrip5ng en0ine, Exe )avaScript or VBScripe, mith 6 perl brem 
ez for informauon sbout thiz veryion of Acoveperf 
A NA 世 A 
读者 应 当 学 到 的 知识 
所 VAN 


谁 编写 了 Perl ? 


人 D 一 


志 





图 1-6 ActiveState 提供 的 HITML Perl 文档 
Perl 这 个 词 代表 什 么 ? 
“开源 ”的 意思 是 


NAXE 


什么 ? 
Perl 的 当前 版 本 是 多 少 ? 
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5. 使 用 Perl 的 目标 是 什么 ? 

6. 什么 是 解释 器 ? 

7. 从 哪里 能 得 到 Perl ? 

8. 什么 是 ActivePerl ? 

9. 什么 是 CPAN ? 

10. 从 哪里 能 得 到 帮助 文档 ? 

11. 如 何 获得 特定 Perl 函数 的 帮助 文档 ? 





1.8 下 章 简介 








在 下 一 章 , 读者 将 学 习 如 何 创建 一 个 简单 的 Perl 脚本 并 执行 它 ， 以 及 Perl 脚本 的 内 部 结构 , 包 
括 Perl 的 语法 、 语 句 和 注释 。 此 外 ， 读 者 还 将 学 习 如 何 检查 语法 错误 ， 以 及 如 何在 命令 行 环 境 里 使 
用 多 个 选项 执行 Perl 程序 。 





第 2 章 Perl 快 速 入 门 


2.1 快速 入 门 和 速 查 手 册 


2.1.1 给 程序 员 的 提示 


如 果 读 者 已 经 拥有 其 他 语言 上 的 编程 经 验 ， 如 Visual Basic、C/C++、Java、ASP 或 PHP 等 ; 
并 熟悉 基本 的 编程 概念 如 变量 、 循 环 、 条 件 语 句 、 国 数 的 话 ， 表 2.1 将 让 您 一 览 Perl 语言 的 结构 和 
语法 。 

在 每 个 部 分 的 结尾 处 ， 都 会 为 读者 提供 该 语法 结构 的 相应 章节 号 ， 并 附 有 一 段 简 短 扼 要 的 Perl 
程序 示例 ， 以 显示 如 何 使 用 该 结构 。 






































2.1.2 给 非 程 序 员 的 提示 

如 果 您 对 编程 一 无 所 知 ， 请 跳 过 本 章 ， 直 接 阅读 第 5 章 。 本 章 内 容 可 作为 读者 以 后 学 习 过 程 中 
的 速 查 手 册 。 
2.1.3 Perl 语法 和 结构 


表 2-1 Perl 语法 和 结构 


Perl 脚本 可 通过 文本 编辑 器 来 创建 。 一 般 情 况 下 ， 用 户 无 需 为 脚本 提供 特别 的 文件 扩展 名 ， 除 
脚本 文件 非 执行 该 脚本 的 应 用 程序 要 求 提供 。 璧 如, 如 果 是 作为 Apache 容器 中 的 cgi 程序 来 执行 脚本 的 话 ， 
就 必须 为 脚本 文件 名 提供 .p1 或 ,cgi 扩展 名 


































































































自由 格式 Perl 是 一 种 格式 自由 的 语言 。 一 个 Perl 语句 必须 由 一 个 分 号 结尾 ， 但 它 可 以 出 现在 程序 的 任意 
位 置 ， 亦 可 拆 分 为 多 行内 容 
Perl 中 的 注释 由 # 开 头 。 解 释 器 会 在 执行 程序 时 自动 忽略 注释 。 注 释 可 以 出 现在 任何 位 置 ， 但 
不 能 拆 分 为 多 行内 容 
注释 了 EXRAMPIE 
|] 本 


# ana this is aa comment 
























































































































































72 委 2 
( 续 ) 
print 和 printf 是 Perl 的 两 个 内 建国 数 , 用 于 显示 输出 内 容 。print 函数 的 参数 是 一 系列 由 去 号 隔 
开 的 字符 串 或 数字 。printt 国 数 则 类 似 于 C 语言 中 的 printf(O 国 数 ， 它 能 够 归 整 输出 内 容 的 格式 。 
j 户 无 需 在 其 参数 两 边 提 供 括号 〈 参 阅 第 3 章 ) 
Print Value ， value ，vVvalue :， 
芥 世 二 而 起 于 (- 王 七 去 荆 让 二 mB 攻 六 曾 计 GEQ agogs [ 列 iEeEQ 。.。。，]] )， 
一 XRAMPTE 
打印 输出 AN 
TENREINIOAOA WCGEONDE 
GT 人 
ETDEDIEE ES QaEE 王 39EETWE 本 SEOSSTETNIE NT 
TECN 
NSSE 汪 eHRNOO 0 5 人 0 玉 
(参阅 第 4 章 ) 
Perl 变量 支持 三 种 基本 的 数据 类 型 : 标量 、 数 组 和 关联 数组 〈 即 散 列 Hash) 
Re 变量 无 需 在 使 用 前 声明 
数据 类 型 / 恋 量 量 名 以 一 个 特殊 字符 〈funny letter) 开头 ,后 面 跟 有 任意 数目 的 字母 ,包括 下 划 线 。 其 中, 特 
位 于 特殊 字符 后 面 的 字母 都 是 大 小 写 敏感 的 。 如 果 灾 晤 是 
以 字母 开头 的 话 ， 其 后 便 可 跟随 任意 数目 的 字母 《下划线 等 同 于 一 个 字母 和 / 或 数字 ; 如 果 变 
不 是 以 字母 开头 的 话 ， 则 后 面具 能 跟 有 一 个 字母 〈 参 阅 第 5 章 ) 
标量 是 一 种 变量 , 只 能 保存 单个 值 、 单 个 字符 串 或 单个 数字 。 标 量 名 必须 以 美元 符号 “$” 开 头 。 
标量 上 下 文 则 负责 表明 当前 正在 使 用 单个 值 的 情况 
也 XRAMPIE 
标量 $first_ name = "Melanie"; 
$1ast name = "Quigley": 
$salary = 125000.00: 
Eee 
数组 是 组 有 序 排列 的 标量 ， 如 字符 串 和 /或 数字 。 数组 中 的 各 个 元 素 由 从 0 开始 的 整数 来 索 
引 。 数 组 变量 名 以 “@” 符 号 开头 
GQnames = ( "Jessica"，"Michelle"，"Linda'" ) ， 
Print "S$Snames":  #PriInts the array with elIements separatea by a space 
Pint "S$Snames [0] and S$names [2]"; #Prinpts "Uessica"” ana "LInaa7" 
Print "Snames[-1]N\n"; # Prints "Dinaay" 
数组 Snames[3]="Nicole" # Assign aa new value as the 4th eIement 
下 面 是 一 些 常 用 的 内 建国 数 : 
pop 移 除 最 后 一 个 元 素 
push 把 新 元 素 添加 到 数组 末尾 
Shift 移 除 第 一 个 元 素 
unshift 把 新 元 素 添 加 到 数组 开头 
splice “在 数组 指定 位 置 添加 或 移 除数 组 元 素 
SOTf 对 数组 元 素 进行 排序 
关联 数组 “associative array)， 又 称 为 散 列 hash)， 是 一 组 未 经 排序 的 键 / 值 对 (key-value 
散 列 pair), 并 通过 字符 串 进 行 索引 。 散 列 变量 名 以 “%” 号 开头 〈 请 注意 , 若 位 于 单 引 号 或 双 引 号 中 的 














话 ， 儿 符号 将 不 会 解析 ) 
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( 续 ) 
卫 XRAMPTE 
semPloyee = (人 
"Name" => "Jessica Savage"， 
"Phonen" => "(925) 555-12747"， 
POSTCIOmO 二 之 痢 二 候 瑟 人 2 
) 
散 列 Pint "S$emPpLloyee{f"Name"}; 直 Print aa value 
$emPLloyee{"SSN"}="999-333-2345"; # Assign aa Key/value 
下 面 是 一 些 常 用 的 内 建国 数 : 
keys 检索 散 列 数组 中 的 所 有 键 
values “检索 散 列 数组 中 的 所 有 值 
each 检索 散 列 数组 中 的 某 个 键 / 值 对 
delete “删除 某 个 键 / 值 对 
Perl 提供 了 大 量 的 预定 义 变量 。 下 面 列 举 了 常用 的 一 些 预定 义 变 
$_ 在 执行 输入 和 模式 搜索 操作 时 使 用 的 默认 空 格 变量 
$. 文件 中 最 后 处 理 的 当前 行 号 
3@ 由 最 近 一 个 eval0 运算 符 提供 的 Perl 语法 报错 信息 
$1 获取 当前 错误 信息 值 ， 常 用 于 die 命令 
$0 含有 正在 执行 的 程序 名 
预定 义 普 量 SS 正在 执行 本 脚本 的 Perl 进程 号 
人 SPERL_ VERSION /SAV ”Perl 解释 器 的 版 本 、 子 版 本 和 修订 版 本 信息 
@ARGV 含有 命令 行 参 数 
ARGV 一 个 特殊 的 文件 句柄 ， 用 于 遍历 @ ARGY 中 出 现 的 所 有 文件 名 
@INC 库 文 件 的 搜索 路 径 
@_ 在 子 例 程 中 ，@_ 变 量 含 有 传 给 该 子 例 程 的 变量 内 容 
%ENYV 关联 数组 型 变量 %ENV 含有 当前 环境 信息 
%SIG 关联 数组 型 变量 %SIG 含有 指向 信号 内 容 的 句柄 
固定 不 变 的 值 ， 一 旦 设置 就 不 能 再 更 改 。 典 型 的 常量 包括 PI， 或 一 英里 长 度 的 英尺 数 。 这 些 值 
都 是 从 不 变化 的 。 用 户 可 借助 constant 保 留 字 来 定义 常量 ， 这 里 给 出 示例 如 下 : 
也 XRAMPTIE 
常量 (文本 值 ) Se conmsEanmBURRRRRESTEOREE> 4096: 
SeCTSE aa 和 下 三 过 有 和 有 放 S 芋 二 人 2 二 下 证 导 
Use constant DERBUGGING => 0; 
ESGnEEESTE 语 NE 三 > 和 三 三 作 芭 8 及 5 让 三 由 
PI=6; 此 本 全 s77 亲 加 起 本 页 已 本 了 及 而 所 下 瑟 可 CE 本 各 天 
Perl 支持 整数 《十进制 、 八 进 制 以 及 十 六 进 制 整数 )、 浮 点 数 、 科 学 计数 法 、 布 尔 型 (Boolean) 
以 及 null 〈( 空 值 ) 
一 XRAMPTE 
数字 Syeaz = 20062 和 anteoge 


Se 三 三 Lrc7 国 0 下 1o 

SFzoaouictpziece = 29R95: # 症 oatzn9 point Dumpber in base IT0 
Eee 本 coco 是 0z33CC35 SEEROERSeSS 
SamSEameeoiimeoen=3844e+57 让 亲 EL 9 生 记 局 志 三 SEE 下 CO 让 三 在 于 忆 却 
Sbits = 0bl0110110; 直 biInary Pumpber 
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所 谓 字 符 串 ， 是 位 于 引号 内 的 一 组 字 节 【〈 字 符 )。 

如 果 要 用 引号 来 标识 字符 串 的 话 ， 必 须 保 证 这 些 引 号 是 成 对 出 现 的 ; 譬如 “String” 或 者 “Sting' 。 在 双 
引号 中 ， 标 量 、 数 组 变量 〈$x、G@name) 和 反 和 斜 杠 序列 〈 如 mm YY 和 \” 等 ) 都 是 可 解释 的 。 反 斜 杠 可 用 于 
标识 引号 本 身 。 单 引号 可 怠 入 到 一 对 双 引 号 之 间 ， 双 引号 也 可 仍 入 到 一 对 单 引 号 之 间 。 所 谓 here 文档 (here 
document)， 则 是 指 一 段 府 入 于 用 户 自 定义 标签 中 的 文本 块 ， 其 中 第 一 个 标签 必须 以 < 开头 。 

下 面 显 示 了 引用 一 个 字符 串 的 三 种 不 同方 式 : 



























































上 直 避 | 
ES 
Here 文档 : 
站 和 <NB 
As cc 听 狂 忆 
字符 串 和 引号 rains in 
ENEBEESESam 
卫 XRAMPIE 
SUeSETOn RE LTEEESSISEQTETEETEREEEROIONLEEmTIOOESIoIOR ES SS 
# SIin9le Guotes 
Saswcc sne samoOONSAROUGOI 上 上 有 SESSION 
$1Line = "NtHe said he wouldn't take her to SpainNn" 
Stemperature = "78"7 
Pint "It is current1ly S$Stemperature Qegrees"; 
# Pripts: "Tt Is CUrrentJy 78 aeg9rees."。 Variables are 


# Interpretea when enclJosea in aouple Gd9uotes，Pput Dot 
# szno9le Gd9uotes 





























Perl 为 引号 结构 提供 了 一 种 替换 形式 。 其 中 ， 引 用 的 字符 串 将 通过 非 字母 形式 的 字符 予以 分 隔 ， 
或 由 成 对 出 现 的 字符 包围 起 来 ， 璧 如 0、!{ 仆 []。 
下 面 使 用 的 结构 包括 : qq，q，qw，qx 




















引用 趟 换 字符 EXRMPTE 
站 EECONR- # same as: Print "HeIIoVn"7 
OO 
EtEesEqw (MERMTE CARRTN 和 = 六 E 王 S 
Stoday = qx(dqate); # same as Stoaday = 'aate'7 








Perl 提供 了 多 种 运算 符 ， 但 是 其 主要 内 容 与 C/C++、Java 或 PHP 运算 符 类 似 。 运 算 符 包括 如 下 
几 种 〈 详 见 第 6 章 ) 





























赋值 运算 符 、+=、= 一 、+= 0%= 、^ 人 人 、&=、|F=、: 
算术 相等 二 二 
字符 串 相等 eq、ne、cmp 
算术 大 小 关系 >、>=、<、<= 
字符 串 大 小 关系 gt、ge、lt、le 
范围 运算 符 5 .. 10# 范 围 是 5 至 10 之 间 ， 逐 个 递增 
逐 辑 运算 符 久 & 、and、||、or、XOR、xor、! 
自动 递增 /递减 ++、-- 
文件 运算 符 -T、-W、-X、-0、-e、-Zz、-S、-f、-d、-1， 等 等 
位 运算 符 5 
运算 符 字符 串 连接 
字符 串 复 制 X 
代数 运算 符 +、/、-、+、 上 % 
模式 匹配 =~、 儿 
也 XRAMPTIE 
IEOTAEIIETTTE EEC 0 二 EL 
Print ((3+2) *x (5-3)/2) : 
TENTISEEOEOESESEOESNOO 人 记 亲人 3 二 订 二 引 汪 丰 


ETmeONEITOomrmny Savage 
ES 
mn 本 5 之 感 IN 

7 二 三 23 瑟 AN 
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DNS ReOSRaEOSSNOR 
RE 


Sanswer eq "yes" 11 S$money == 200 


Pint "NMXnCcombinead Assignment OperatorsNn" 


























Sa 三 477 
S$a += 3: # Sozb Fo oa = Sa 3 
Sa++ # autozncrement 
运算 符 5 
ESTEEMSEEITRSEOESESIECESNTL 
SEOlioOCEE IESETO 
OO 工本 二 全 可 王 / 人 # 本 SCeUomatcChERS 划 着 记 三 二 E 天 7 
要 
SanSswer = "Yes"y 
DELEESamSswe IIYY]M HS7ERESaEECASSLSR 石 2 二 E 交 六 
COSPLAY 人 
基本 的 让 语句 能 够 判断 小 ee 大 式 取 值 ， 如 果 值 为 trtue， 则 执行 其 后 跟随 的 表达 式 。 
诈 语 句 计 ( 表达 式 ) 
语句 ; 
上 
一 XRAMPTIE 
开 上 (3 三 责 SD 刘 ) 下 ET SSETEsS5UESSao 
iBelse 语句 ielse 实现 了 双向 判断 。 如 果 证 后 面 表达 式 条 件 为 tue， 则 执行 其 后 的 语句 ; 否 
则 执行 else 后 面 的 语句 。 
这 (表达 式 ) { 
语句 ; 
} else { 
语句 ; 
} 
卫 XRAMPTE 
Semitess 王 ORGESOLIC 天 大 ES 五 C7 
# Dumpbper betmween 1 ana 2 
条 件 判 断 if( $coin toss == JE 


ifyelsif 语句 


EECOUELEOSSSOEEHRRADNO 
1 
else 1{ 


EECOSSEORLTEAITNOO 
) 


igelsifyelse 提供 了 多 路 分 支 选 择 功能 。 如 果 让 后 面 的 表达 式 值 不 是 tue， 则 会 依 
次 判断 其 后 每 个 els 计 的 条 件 ， 直 到 其 中 某 个 条 件 值 为 tue; 如 果 疫 有 一 个 为 true 
的 话 ， 则 执行 最 后 的 else 语句 。 
让 (表达 式 ) { 




















语句 ; 
elsif (表达 式 ) { 
语句 ， 
} elsif (表达 式 ) { 
语句 ; 
elsef{ 
语句 ; 


} 
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瑟 XRAMPTIE 
# 了 Is Monday，，7 Sunaay 
Saday 硬 CEENWeSIS 1 忆 (王立 人 (人 公关) 着 生态 
EEC 
ESQayotweek > SOa7of ee = 和 
EREUSIESRESUE SS mnND 
条 件 判 断 】 
Slsaft (saoaycfwee = 5) 
EDRUSISSERNSTE Sm9 瑟 SN 
) 
else { 
本 需 本 全 和 三 全 本 1 有 


】 





和 C/C++ 类 似 ，Perl 也 为 ifyelse 语法 结构 提供 了 相应 的 简化 模式 ， 该 模式 拥有 两 个 运算 符 和 三 
个 操作 数 〈 因 此 又 称 为 三 元 运算 符 )。 如 果 条 件 值 为 true， 则 执行 紧 跟 在 问号 后 面 的 语句 ， 如 果 是 
false， 则 执行 冒号 后 面 的 语句 。 其 格式 为 : 

(条 件 ) ? 条 件 为 true 时 执行 的 语句 : 条 件 为 false 时 执行 的 语句 


卫 XAMP 工 瑟 

Scene 三 sicRI NRECSOEE< Oo 
5etwesni sc 2 

Print ($coin toss == 1 ? "You tossed HERDNn" : "You tossed TRILNn" ) ; 




















条 件 运 算 符 








循环 结构 能 够 指定 一 段 重复 执行 ds Perl 支持 多 种 不 同类 型 的 循环 :while 循环 、do- 
while 4 人 循环 以 及 foreach 所 环 
while/until 循环 while 循 
while 后 天 良 随 _- 个 以 小 ` 括 吕 包 围 起 来 的 表达 式 ; 以 及 一 段 执行 语句 。 当 表 

达 式 取 值 为 true 时 ， 便 继续 执行 循环 内 容 。 其 语法 结构 为 : 


while 〈 条 件 表 达 式 ) { 
码 段 六 


卫 XRAMPTIE 
交 二 罗 肌 而 攻 人 了 
while ($count < 10 ){1 上 Test 
1 
S$Scount++” # TIncrement va7lue 


避 党 
































} 


until 循环 : 
until 后 面 跟随 一 人 4 史 和 遇 二 的 表 滞 二。 以 天 了 段 扫 行 语句， 
达 式 取 值 为 false 时 ， 继 续 执 行 循 环 内 容 。 其 语法 结构 为 : 


until《(〈 条 件 表 达 式 ) { 
代码 段 入 


J 
卫 XRAMPTE 
SEE 
EUSCOUTEE 一 二 而 上 0) 于 二 芝 丰 
ES 
S$Scount++” # Inpcrement va7lIue 











引 
潍 




















循环 





do-while 循环 do-while 循环 类 似 于 while 循环 ,所 不 同 的 是 它 是 在 循环 体 末 尾 检查 循环 表 
着 人 全 这 就 保证 了 循环 体 至 少 能 执行 一 次 。 
二 结 构 





Gil 
代码 恨 入 


ES 二 宝 
卫 XRAMPT 


0 全 人 

[ee 和 | 
| AS 
S$Scount++” # Increment value 
While (S$count < 10 ); # Test 
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循环 


for 循环 


foreach 循环 


循环 控制 


( 续 ) 











for 循环 需要 判断 三 个 条 件 表达 式 的 取 值 ， 各 表达 式 之 间 以 分 号 隔 开 。 第 一 个 表达 
ee 变量 , 在 整个 循环 过 程 中 只 调用 一 次 。 人 和 大作 人 

否 为 true， 如 果 站 true 的 话 便 拓 行 循环 体 ; 否则 就 退出 循环 。 当 循环 体 执行 完毕 
局 控制 权 便 转 移 到 第 三 个 表达 式 ， 由 它 负 责 更 新 待 检测 变量 的 值 。 然 后 ， 再 由 第 
二 个 表达 式 进 行 下 一 次 判断 ， 如 此 反复 。 其 代码 结构 如 下 所 示 ; 


fo ( 初始 化 鳅 量 ; 条 件 表 达 式 ; 自如/ 自 减 ) { 代 吗 段 

】} 

五 XRAMPTE 

Eor( S$Scount = 0; $count < 10; S$count = S$Scount + 1 ) { 
EN 






























































】 


foreach 循环 仅 用 于 逐个 遍历 列表 〈1list) 内 容 。 


foreachs 列表 项 〈@ 列表 ) { 

Pzints$ 列表 项 ，"\n"; 

】} 

卫 XRAMPTLE 

Qdessetrt = (eeEREain ea 人 全 放生 信和 ORG 有 


foreach $choice (adessezt) { 
# 工 erates througph each eJement of the array 
echo "Dessert choice is: S$choiceNn"y; 

上 





last 语句 可 用 于 从 循环 体 中 跳出 一 个 循环 。next 语句 可 用 于 跳 过 当前 这 次 循 
环 的 剩余 内 容 ， 直 接 从 头 开始 下 一 轮 循 环 。 
卫 XRAMPTLE 
Sn=0 ; 
WE US 用) 避 

人 

if (Sn == 3)1{ 

TS 七 7 站 三 冯 SEE 大 让 本 已 克 DO 态 





】} 
ni 司 访 
】 
TELGiE 帮 SEE 全 下 
卫 XRAMPTE 
人 
站 三 
Re 
# SKIP remainin9 statements ID DPIocK 
】 
ER 三 人 
】} 
TENEECREES CS 有 





子 例 程 / 函数 


国 数 function) 是 一 组 能 完成 某 项 任务 的 代码 体 , 并 供 程序 其 他 部 分 调用 。 用 户 可 以 通过 参数 


将 数据 传送 给 这 个 国 数 。 国 数 可 以 有 返回 值 ， 刀 可 以 不 返 加 




















F 何 值 。 任 何 合法 的 Perl 








记 吕 




















现在 国 数 体 的 定义 中 。 定义 于 国 数 外 面 的 变量 在 函数 体内 也 同样 可 用 。 而 my 国 数 则 能 把 指定 的 


量 局 部 化 。 
(参阅 第 11 章 )， 
Sub function_ name{ 


国 数 体 





} 
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( 续 ) 

瑟 XRAMPTIE 
Sub greetings () { 

SEO SIE 有 ET 
】} 
&greetings: 志 FunctIionp ca71 
geetings () ; # Function ca71 
瑟 XRAMPTIE 
S$Smy_ year = 2000: 
if ( is_ leaP year( S$Smy year ) ) { 二 Cs 可 WE 

寺 ENTER 5 页 SS SSENmO 
子 例 程 / 函数 ee 

else { 

Fi SmEVesr SIOUEaLea6XeaE 
】} 
sub is _ JeaP_yYyeaz 1{ 二 尼 二 OOD 三 有 7 了 二 玉 C 

my VSST 三 和 SELLG 尖 /7 人 丰 于 2 扩 可 下 让 和夫 朋 是 人 着 双 二 二 人 7 

# 上 the Parameter Jist，@ 
zeturn ((($year 当 4 == 0) && ($year 当 100 != 0)) 11 
(Syear 外 400 == 0)) ?1 : 0; # pat Is returneaQ From the EunctIzon 

















Perl 提供 了 open 国 数 用 于 打开 文件 ， 也 提供 了 pipe， 用 于 读 写 、 追 加 文件 内 容 。 基 中 ，open 国 
数 的 参数 包括 一 个 用 户 自 定义 的 文件 句柄 〈 一 般 表 现 为 一 串 大 写字 符 )， 以 及 一 个 含有 文件 路 径 和 
读 / 写 /追加 标志 的 字符 串 《〈 详 见 第 10 章 )。 

卫 XAMPTIE 
To open a 五 le for zeading: 




















Open (FE 了 ， "<filename" ) : # Opens "Jename" For reaain9. 
站 汪 克 万 二 本 有 省 < 六 人 性 二 OP 斌 JE 
CocnaDBARIhomseumeynmyhs SO YI CaOESOEESnENIES SR 


To open a 五 le for wFiting: 


open(EHEH，7"> 和 Lename") : # OPens "Jename"” for wrItina9。 
文件 处 理 # Creates or truncates 石 1e. 


To open a file Eor apPPending : 


加 可 3 # OPens "万 Jename" For appenaina9， 
# _ Creates or appenas to 五 1e. 


To open a file for reading and wziting: 


加 可 # Opens "1Jename" for reaa，， then mwrzte.， 
GT 二 二 有 ISTIED 有 # Opens " 右 1ename" for WwWrIzte then reaa. 


To close a file: 


EECTSIERNRED 放 到 
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To read from a file: 

RE # Reaa one Jine at aa time From 石 1e. 
QlLines = <FEH>; 才 本 丽 六 二星 三 本 国志 和 厂 放下 区 oa 
AN 


To write to aa 丘 Le: 


GEsnmURHA Die OOTeCanEUOESDNIERSINn 













































































文件 处 理 1 
ER EnOEIEETE 本 放生 9 王 IiE 生 丰 EDITEORNDI 
卫 XRAMPTIE 
To Test Eile Attributes 
Print "File is readable，writeable，and executablexn'" if -xz S$file and 
二 WE 全 交 本 2 
# Ts It reaapble，writeable，ana executabJIe2? 
ER 有 WE 人 人 下 有 有 生 性 S 
# pen was IL Iast moaiTiea? 
站 1 
管道 用 于 把 系统 命令 输出 内 容 作 为 输入 流传 送 给 Perl， 或 者 将 Perl 的 输出 内 容 转 发 给 系统 命令 
以 作为 其 输入 。 管道 又 称 作 过 滤器 filter)。 用 户 必须 通过 open 系统 调用 来 使 用 管道 。 访 系统 调 
j 接 受 两 个 参数 一 个 用 户 自 定 义 的 句柄 和 一 个 操作 系统 命令 ， 并 需 在 操作 系统 命令 的 前 面 或 者 后 
面 加 上 一 个 “|” 符 号 。 如 果 “|” 符 号 出 现在 命令 之 前 ， 则 表示 该 命令 将 把 Perl 的 输出 作为 输入 内 
容 ， 否 则 表示 Perl 将 读 取 该 命令 的 输出 内 容 。 也 就 是 说 ， 如 果 命 令 后 面 带 有 “|”， 就 表示 Perl 将 
从 管道 中 读 取 输入 内 容 ; 否则 说 明 Perl 将 把 输出 内 容 写 入 到 管道 中 去 。 
〈 详 见 第 10 章 ) 
瑟 XRAMPTIE 
竹 道 (Pipe) 


InPUut 五 ez 


Ge EIIS LO # Open aa Pipe to Feaa Fromm 
ER 也 0 作风 丰台 交 关 全 人 避 


OutPUut 五 Le 
SesnmeOEIOL ISTENEEGT OOTIED 碍 ODSED 辣 REIOEEESWEIEE 三 2 
ETIOEISOEOOSENeSESNOOIEOSNDL 

1 SSE 


正则 表达 式 。 所 谓 正 则 表达 式 , 是 由 斜 杠 圈 起 的 一 组 字符 集合 。 它 们 可 用 于 在 文本 中 匹配 指定 模 





















































式 , 并 进行 相应 替换 操作 。 一 直 以 来 , Perl 都 因为 其 优秀 的 模式 匹配 机 制 而 闻名 于 世 。( 参 阅 第 8 章 。) 
表 2-2 ”一 些 正 则 表达 式 元 字符 
元 字符 表达 含义 
有 匹配 行 让 
$ 匹配 行 尾 
ac 匹配 一 个 a， 后 面 任意 单个 字符 ， 再 后 面 是 一 个 的 情况 
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〈 续 ) 
元 字符 表达 含义 
[abc] 匹配 a 或 者 b 或 者 c 的 情况 
[^abc] 匹配 字符 既 不 是 a 又 不 是 b 也 不 是 c 的 情况 
[0-9] 匹配 位 于 0 到 9 之 间 的 单个 数字 
ab#c 匹配 一 个 a 后 面 跟 0 到 多 个 b， 最 后 是 一 个 的 情况 
ab+e 匹配 一 个 a 后 面 跟 1 到 多 个 b， 最 后 是 一 个 e 的 情况 
ab?c 匹配 一 个 a 后 面 跟 0 到 1 个 b， 最 后 是 一 个 e 的 情况 
(ab)+c 匹配 1 到 多 个 ab 后 面 跟着 1 个 的 情况 
(ab)(c) 捕获 ab 并 将 其 值 赋予 变量 $1， 同 时 捕获 值 并 赋予 $2 
卫 XAMPTIE 
5 Ecoknnog to assaoren anaystacle 
Print IF /needIe-， 
证 2 了 SC 有 生硬 SO EEC 
$S = "Looking for a needle in a haystack"; # Usin9 Fe9uIar expression metacharacters 


print if /^[Nn]..dle/; 
# _ characters ana "adJe"， 


SS ONE RISE OU 

$stz =~ SsS/blue/upPbeat/: +# Substitute frst occurrence of "blue"”witph "apbeat" 
1 

I am feeling upbeat，blue，blue... 


SEEUOUEEUEEEEEE 必 让 二 有 EUR 用 本 

$str = ~ s/blue/upPbeat/ig: +# Ionore case， 91obal substitutIoDn 
ES 

T am feelJin9 Upbeat， upbeat... 


S$Sstr = "Peace anad War"; 

$str =~ SsS/(Peace) and (War)/S$S2，8$S1/i: # SI 9ets 'Peace'，52 9ets' Jrar' 
7 

War ana Peace.， 


S$Sstr = "He gave me 5 dqollars.NXnn" 

Ss/5/6*7/e; # Rather than strin9 Substitution， evraluate replacement slide 
ns 

Fe 9avre me 42 GoJ1Tars.7" 





在 命令 行 下 传送 参数 。Perl 通过 @ARGY 数组 保存 了 命令 行 提 供 的 参数 内 容 。 如 果 用 到 了 
ARGY 文件 句柄 ， 则 这 些 命令 行 参 数 将 被 视 为 文件 ; 否则 就 视 为 是 来 自命 令 行 环境 的 字符 串 ， 供 脚 
本 直接 使 用 《〈 详 见 第 10 章 )。 





卫 XRAMPTIE 
S$S Perlscript iLIea 下 leb 玉 LIec 


(ES 
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咒 





与 国 
的 变量 


PEint "QQRARGVAXn": # JI7ists ar9uments: 万 1ea 五 1ep 五 Tec 
while(<RARGV>){ 二 五 1ehanale ARGV -- ar9uments treatea as 五 1es 
Print 井 Print each Jine of every 五 Je Jistea In GaARGV 


引用 ， 指 针 。 Perl 引用 (reference) 又 称 作 是 指针 (pointer)。 它 在 本 质 上 是 一 个 标量 型 变 
负责 保存 另 一 个 变量 的 地 址 。 在 创建 指针 时 ， 用 户 需要 使 用 反 和 斜 杠 运算 符 〈 详 见 第 13 章 )。 














卫 XRAMPTE 

# _ Create variapbples 

Sage = 25); 

Se 二 本 GD SEE SG 抽 夺 < 
gshome = ("owner" => "Bank of America"y， 


WE 
SSE 二 和 三 让 2 全 疝 本 引 elee ec 全 
1 


# _ Create Poznter 


Spointerl = N\$age: # _ Create Pointer to scalar 

S$Spointer2 = NQsiblLlings; # Create Pointer to array 

S$Spointer3 = Ng%home; # Create Pointer to hasph 

Spbpointer4 = [ gqw(red Yellow blue green) ]; # Create anonymous array 
S$pointer5 = { "Me" => "Maine" ，'"Mt" => "Montana"， "ER1L"” => "ELorida" )}: 


# _ Create anonymous haspn 


# Dereference Pointer 
PEint $Spointer1” 上 Dereference Pointer to scalar”Pprints: 25 
Pint 6GSpointer2; # Dereference Pointer to array7 
1 
Pint gsSpointer3” # Dereference Pointer to pasph， 
# PrIznts: styIJeSalItboxpricene9otiapJeownerBank oF America 
cnntsSPoantez2 三 > [II 尼 此 22052090 关羽 全 思 
GrainegsSPomnEer3=> SEEyle oj 症 忆 TOES SDDS2 电 
Print QQ{S$SPointer4}; # Prinpts elIements of anonymous array 





对 象 。Perl 中 的 对 象 是 一 种 特殊 类 型 的 变量 。 在 Perl 中 ， 一 个 类 代表 着 含有 一 组 变量 ， 











数 〈 方 法 ) 的 一 个 包 。Perl 没有 提供 专门 的 class 关键 字 。 其 中 ， 属 性 就 是 能 够 描述 这 个 对 象 

量 ; 而 方法 则 是 一 种 特殊 的 函数 ， 人 允许 用 户 创 建 并 操作 给 定 的 对 象 。 在 创建 对 象 时 ， Ts 和 使 
用 bless 函数 〈 详 见 第 14 章 )。 

创建 一 个 类 

EXRAMPIB 


Package Pet 


SuUb new{f # Constructor 
my S$Sclass = Shift: 
msweee= 

"Name" => unaqef， 

"Owner" => unaef， 

us 三 LE 
JE 


滁 
民 
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ES 
# Returns aa pointer to the obyject 


Sub set_Pett # Accessor methoas 
my S$self = shift: 
my (Smnamey Sowner， Stype)= @ ， 
S$Sself->{f'Name'}l = $name:， 
S$Sself->{f'owner'}j= $owner， 


SEE TARSD 是 ES 
} 
sub get_Pett 
my SS 三 本 3 有 Et 
while((S$keyvS$value)=each(S$sself))1{ 
Emmasiev SIeNDL 
} 


实例 化 一 个 类 


卫 XRAMPTIE 

S$cat = Pet->new(); # alIternativre Form Is: 5Scat = new Pet()， 
站 CSEEERS0OPBTEEE 7IL 力 2ODREEUECEOREEEACC 
$cat->set_Pet("Sneaky"， "MT. Jones"，"Siamese") ; 

# Access the obyject with an instance 

$cat->get_Pet: 





此 外 ，Perl 还 支持 方法 的 继承 ， 为 此 必须 把 基 类 置 于 数组 @ISA 内 。 
库 和 模块 。 库 文件 都 带 有 .pl 扩展 名 ; 而 模块 则 拥有 .pm 扩展 名 。 目 前 ，.pm 文件 比 .pl 文件 更 
为 常用 〔〈 详 见 第 12 章 )。 

















库 的 路 径 
@INC 数组 负责 保存 一 组 标准 Perl 库 的 路 径 列 表 。 
导入 外 部 文件 





如 需 导入 某 个 外 部 文件 ， 应 使 用 require 或 者 use 关键 字 。 


redquire ("getopts.pPp1LI")” # TIoaas JIPrary 五 Je at run tzme 
use CGI; # TIoaas CGT.Ppm moaule at compilIe time 


诊断 模式 。 如 需 在 Perl 脚本 退出 时 获得 出 错 原因 等 信息 ， 用 户 可 使 用 内 建 的 die 函数 或 者 exit 
国 数 。 














也 XRAMPTIE 
open (FEH， "人 Lename") or die "CoulLldn't open f 丘 lename: $SINn" 
ES 
print STDERR "Bad :input. Integer redquired.Nn" 
exXit (1) 


} 


此 外 ， 用 户 还 可 使 用 如 下 Perl 选项 : 

Use warnings; # 提供 警示 信息 ， 但 不 退出 程序 

Use diagnostics; # 提供 详细 的 警示 信息 ， 但 不 退出 程序 

Use Stricti # 检查 全 局 变量 、 无 引号 单词 等 内 容 ;， 人 允许 退出 程序 
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use Carp; # 与 die 国 数 类 似 ， 但 能 提供 更 多 程序 出 错 信息 


2.2 本章 小 结 


本 章 是 为 那些 希望 快速 浏览 Perl 全 貌 的 程序 员 而 准备 的 ， 介 绍 了 Perl 的 一 般 语法 与 编程 结构 。 
本 章 仅 给 出 了 Perl 的 概况 。 本 书后 面 的 章节 将 帮助 读者 发 掘 更 多 有 关 Perl 的 知识 。 
在 读者 积累 了 一 定编 程 经 验 之 后 ， 本 章 还 可 作为 一 个 微型 的 实践 教程 ， 以 帮助 读者 快速 回忆 起 
所 需 知 识 点 ， 而 不 必 抱 着 索引 慢 慢 查 找 。 














2.3 下 章 简 介 


在 第 3 章 中 ， 我 们 会 讨论 Perl 脚本 的 创建 ， 警 如 : 如 何 命名 一 个 脚本 、 如 何 执行 脚本 、 以 及 如 
何 添 加 注释 、 语 句 和 内 建国 数 。 我 们 还 将 学 习 如 何 使 用 Perl 的 命令 行 开关 ,以 及 如 何 定位 特定 的 一 
些 错 误 。 





第 3 章 Per 脚本 


3.1 创建 脚本 








下 面 是 一 个 简单 的 Perl 脚本 : 


(The Script) 
全 AS 全 全 二 机 
1 全 NE OSI 六 
Chomp ($Smname = <SITDIN>)” 上 Progzamn WwWazts For User Input Erom Keypoara 
Pint "Welcome，S$Sname，are You readqy to learn Perl now? "/， 
chomp ($Sresponse = <STDIN>) ; 
S$response=1lc(S$response); 直 response is converteda to Jowercase 
if(S$Sresponse eq "yes" or $response eq "y"){ 
Print "Great! Let's get started learning Per1l by example.Nn"; 








】} 

elisetl 
NA 

) 


Snow = Localtime: # Use aa Per function to 9et the aate ana time 
ESSTIE ER STEEL 


OUWEm 二 

Was youenamne 2 ore 

Welcome，BELLie，are you readqy to learn Perl now? yes 
Greatcets getstactea learning BEerclboy eamclee 

开 刘 则 研 有 55 是 ES 本 Semien 三 NEO 请 攻 全 2 本 局 世 让 竹 20 


示例 3.1 提供 了 一 个 Perl 脚本 示例 。 在 不 远 的 将 来 ， 读 者 也 能 写 出 与 之 相似 的 脚本 。Perl 脚本 
由 一 系列 Perl 语句 和 声明 〈declaration ) 组 成 。 其 中 所 有 语句 均 以 分 号 (;) 结尾 。( 由 于 声明 只 在 
子 例 程 和 报表 格式 中 才 会 用 到 ， 因 此 本 书 将 在 后 面相 关 章 节 里 予以 介绍 。) 用 户 可 以 在 脚本 任意 位 
置 创 建 变量 。 如 果 变 量 没 有 初始 化 的 话 ， 系 统 将 根据 上 下 文 语 境 自动 把 它 赋 值 为 0 或 null。 请 读者 
留意 ， 上 述 脚本 中 的 变量 名 均 以 $ 开头 。 用 户 可 以 把 数字 、 文 本 字符 串 或 函数 输出 值 赋 给 变量 。 不 
同类 型 的 变量 通过 其 开头 不 同 的 特殊 标志 (funny symbol) 予以 区 分 ,具体 情况 请 参考 第 4 章 内 容 。 
对 每 一 条 语句 ，Perl 将 从 头 至 尾 仅 执行 一 遍 。 



































Perl 矿 杰 25 





3.2 脚本 


3.2.1 启动 


UNIX/Mac 操作 系统 。 如 有 果 脚 本 第 一 行 舍 有 以 草 标 志 开头 的 Perl 可 执行 文件 全 路 径 的 话 《〈 又 
称 为 shbang 行 )， 就 将 告诉 系统 核心 应 当 使 用 哪 种 程序 来 解释 该 脚本 。 下 面 是 一 个 起 始 行 的 示例 ; 


#!Vusr/pbin/per1l 


请 务必 注意 ， 一 定 要 在 shbang 行 〈 即 #! 后 面 ) 中 指定 正确 的 解释 器 路 径 。 不 同系 统 中 安装 的 
Perl 可 能 位 于 不 同 的 目录 下 。 在 调用 Perl 编写 的 CGI 脚本 时 ,大 多 数 Web 服务 器 都 会 先 读 取 这 一 行 
内 容 。 因 此 ， 如 果 指 定 的 路 径 与 实际 情况 不 符 的 话 ， 将 会 引起 严重 错误 。 为 了 获知 自己 系统 上 Perl 
解释 器 的 路 径 ， 读 者 可 在 UNIX 提示 符 后 键入 9: 


which Per1l 


如 果 shbang 行 位 于 脚本 的 第 一 行 ， 读 者 便 可 在 命令 行 下 通过 其 文件 名 直接 执行 该 脚本 。 如 果 
shbang 行 不 在 脚本 的 第 一 行 ，UNIX Shell 就 会 尝试 把 脚本 解释 为 shell 脚本 ， 同 时 把 shbang 行当 
作 注 释 来 处 理 。( 若 要 了 解 如 何 才能 执行 Perl 脚本 ， 请 读者 参阅 “执行 脚本 ”一 节 。) 

Mac OS 在 本 质 上 属于 UNIX 的 一 个 变种 ， 因 此 它 默 认 也 带 有 Perl 5.8。 甚 使 用 方法 和 Solaris、 
Linux、*BSD、HP-UX、AIX OS X 等 操作 系统 完全 相同 。 

Windows。Win32 平台 并 不 支持 shbang 行 或 其 他 类 似 机 制 8。 在 Windows XP 或 者 Windows 
NT 4.0 旨 中 ， 用 户 可 以 把 Perl 脚本 关联 到 相应 文件 扩展 名 上 ， 璧 如 .p1 或 者 .plx， 然 后 便 可 直接 从 
命令 行 执行 脚本 了 。 在 命令 行 模式 下 或 者 系统 控制 面板 中 ， 用 户 可 将 PATHEXT 环境 变量 设置 成 需 
要 关联 到 Perl 脚本 上 的 文件 扩展 名 。 在 命令 行 中 ， 设 置 环境 变量 的 命令 是 : 







































































SET PATHEXIT = .P1L 和 当 PATHBEXTS 

在 控制 面板 中 ， 为 了 设置 好 上 述 关联 信息 ， 需 执行 如 下 操作 ; 
1. 进入 开始 菜单 。 

2. 选择 “设置 >， 或 者 直接 选择 “控制 面板 ”。 

3. 选择 “控制 面板 ”。 

4. 在 控制 面板 中 ， 上 点击“ 系统” 图标。 

5. 点 击 “ 高 级 ”。 

6. 点 击 “ 环 境 变量 ”。 

7. 点 击 “ 新 建 ”。 

8. 在 变量 名 一 栏 中 输入 PATHEXT。 

9. 在 变量 值 一 栏 中 输入 相应 文件 扩展 名 ， 并 以 分 号 和 %PATHEXT9% 结尾 。 








10. 确定 上 述 设置 。 





另 一 种 获取 解释 器 路 径 的 途径 是 使 用 : find / -name“*Perl*”-print。 

尽管 Win32 平台 一 般 不 需要 shbang 行 ,但 Apache Web 服务 器 却 需要 它 。 因 此 如 果 读 者 编写 的 CGI 脚本 将 
由 Apache 负责 执行 的 话 ， 那 还 是 必需 提供 shbang 行 。 

四 在 Windows 95 中 ， 除 非 是 以 Explorer 窗口 打开 应 用 程序 ， 否 则 文件 关联 功能 将 无 法 使 用 。 








唱 
唱 
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现在 ， ee Perl 脚本 ， 并 在 其 文件 名 中 指定 所 选 的 扩展 名 ， 艾 如 myscript， 本 
myscriptplx。 然 后 ， 只 需 在 命令 行 中 输入 不 带 扩 展 名 的 脚本 名 称 〈 如 myscript)， 便 可 直接 执行 
脚本 了 。( 有 关 脚 本 执行 了 方面 的 更 多 知识 请 参阅 “执行 脚本 ”一 节 。) 








6eneral | Network ldantfication | Hardware | User Profles Advanced | | 


| esa Performance options control how applications use memory 
层 5 which affects the Speed of wour Computer. 


Performance ptions.… | | 





| CNWDocuments and Settings 包 dministrat，，， 
| CWDocuments and Settings\ 包 dministrat，，， 





广 Enwironment Wariables- 
| | 本 呈 Enwironment variables tell your computer where to find certain 
tpes of information， 


| 
| | New,， El， | pe | 
Enywironment Variables.、 | | | | 

| 








六 SYSEem Yarjabjegs 








-Startup and 月 ecoyery 一 











| Wariable | Value | 
| | | Startup and recovery Dptions tellyour computer howtostat Comsper CHWINNTIsysena2md exe | 
| and what to do if an error Causes OU computer to stop. | HOME Cl 
| ， | 


| | 
NUMBER_OF_PR,,，1 | | 
| 


| 人 | O5 Windows_NT 
Slarup and Recovem | | oszubpath CIWWWINNTIsystem324os2Vdl 到 | 
| New， 一 Edit,， | Delete || 








图 3-1 设置 PATHEXT 环境 变量 


3.2.2 选择 文本 编辑 器 


在 编写 Perl 脚本 时 需要 使 用 文本 编辑 器 。 为 此 ， 用 户 可 以 使 用 操作 系统 提供 的 任何 编辑 软件 ， 
也 可 从 网 上 下 载 专门 为 Perl 设计 的 更 为 高 级 的 文本 编辑 器 器 , 包括 各 种 第 三 方 编辑 器 以 及 集成 开发 环 
境 (Integrated Development Environment， 即 IDE)。 表 3-1 列举 了 常用 的 一 些 编 辑 器 





























表 3-1 几 种 编辑 器 


BBEdit、JEdit Macintosh 
Wordpad、Notepad、UltraEdit、vim、PerlEdit、JEdit、TextPad Windows 
pico、Vvi、emacs、PerlEdit、JEdit Linux/UNIX 

Komodo Linux、Mac OS、Windows 
OptiPerl、PerlExpress Windows 

Atffus Mac OS 叉 


3.2.3 为 Perl 脚本 取 名 
在 给 Perl 脚本 取 名 时 , 惟一 需要 遵守 的 规则 就 是 用 户 所 在 操作 系统 的 文件 命名 规范 《譬如 大 小 
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写字 符 、 数 字 等 等 )。 例 如 ， 如 果 当 前 操作 系统 是 Linux， 文 件 名 就 是 大 小 写 敏 感 的 ; 此 外 ， 由 于 存 
在 着 大 量 系统 命令 ， 因 此 最 好 给 脚本 加 上 一 个 扩展 名 ， 以 便 让 它 是 全 局 惟一 的 。 用 户 并 不 一 定 得 为 
脚本 提供 扩展 名 ， 除非 需 要 创建 库 或 模块 ， 或 者 服务 器 要 求 所 写 CGI 脚本 拥有 指定 的 扩展 名 ， 又 或 
Windows 系统 设置 要 求 必 须 提 供 扩展 名 。 一 且 给 脚本 加 上 了 惟一 的 扩展 名 , 便 可 避免 脚本 和 系统 中 
甚 他 程序 的 名 字 发 生 冲 突 。 璧 如 ,UNIX 系统 已 经 提供 了 一 个 名 叫 “test” 的 命令 。 如 果 用 户 将 某 个 
脚本 命名 为 “test” 的 话 , 那 系 统 应 当 执 行 哪 个 “test” 呢 ? 如 果 设 有 把 握 的 话 ， 最 好 在 Perl 脚本 文 
件 名 的 末尾 加 上 一 个 .plx 或 者 .Perl 扩展 名 ， 这 样 就 能 让 脚本 名 全 局 惟一 了 。 

当然 ， 最 好 能 为 脚本 准备 具有 实际 含义 的 名 称 ， 以 指明 脚本 的 用 途 是 什么 。 请 读者 不 要 使 用 像 
“foo”“foobar” 或 “test” 之 类 的 名 字 。 

















3.2.4 语句、 空白 和 换行 


Perl 是 一 种 格式 自由 的 语言 ， 意 味 着 用 户 可 以 在 任何 位 置 放置 脚本 语句 ， 甚 至 还 能 让 同一 个 语 
名 跨行 出 现 .“ 空 和 白 ” 这 个 词 包括 空格 、 制 表 符 以 及 换行 符 。Perl 脚本 使 用 “\m” 来 表示 换行 符 , 并 
通过 双 引 号 将 它 包 围 起 来 。 空 白 部 分 用 于 陋 开 不 同 的 单词 。 在 两 个 标记 或 单词 之 间 可 以 出 现任 意 多 
个 空白 字符 。 出 现在 引号 内 的 空白 部 分 将 被 保留 ; 如 果 不 在 引号 内 ， 解 释 器 则 会 包 略 它们 。 下 面 这 
几 个 表达 式 表 达 了 相同 的 意思 。 

3+4*2 等 价 于 4 十 4*# 2; 

下 面 这 两 个 Perl 语句 也 都 是 正确 的 ， 其 中 用 引号 围 起 来 的 空白 字符 部 分 将 会 显示 出 来 。 











PiInL "This LS aa Perl statement .7 
证 =| 
主意 
alLSso 


己 PeL1 
Statemen 荆 ."; 


尽管 用 户 在 编写 Perl 脚本 时 拥有 很 多 自由 ,但 最 好 还 是 能 将 语句 整理 到 各 自 所 在 行内 ， 并 为 大 
段 代码 提供 缩 进 〈 本 书 将 在 第 5 章 讨论 该 内 容 )。 当 然 , 为 自己 的 程序 添加 注释 也 是 一 样 重要 的 , 这 
样 可 以 让 自己 和 别人 明确 地 理解 各 段 程 序 分 别 在 做 什么 。 有 关注 释 的 更 多 知识 请 阅读 下 一 节 内 容 。 

















3.2.5 注释 


用 户 可 能 当天 写 出 了 一 段 非常 精彩 的 代码 ， 但 仅仅 两 周 后 就 忘 了 这 段 代码 是 干什么 用 的 。 如 果 
把 这 段 代 码 发 给 别人 ， 引 起 的 困惑 就 更 大 了 。 所 谓 注释 ， 其 实 是 一 段 纯 文本 内 容 ， 人 允许 用 户 在 Perl 
脚本 中 插入 说 明 性 文本 ， 同 时 对 程序 的 执行 不 造成 任何 影响 。 甚 目的 是 帮助 开发 者 或 其 他 程序 员 对 
脚本 进行 维护 和 调试 。Perl 注释 都 以 # 符号 开头 , 其 作用 域 一 直 能 到 本 行 末 尾 , 但 不 延伸 到 下 一 行 。 
Perl 无 法 处 理 C 语言 提供 的 注释 标识 符 上 和 #*， 或 者 C++ 的 注释 标识 符 /。 


站 # ZPIzs 工 5 旺 Comment 
及 PEint "hello" 直 Ana thIs Is aa Comment 
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解释 : 
1. 正如 UNIX Shell、sed 和 awk 脚本 一 样 ， 注 释 是 以 # 号 开头 的 代码 行 ， 并 能 延伸 到 这 一 行 的 末尾 。 
2. 注释 可 以 出 现在 脚本 的 任意 行 中 。 上 面 这 个 示例 显示 的 是 一 个 注释 后 面 跟随 着 一 行 合法 的 
Perl print 语句 。 


3.2.6 ”Per| 语句 


Perl 脚本 的 大 部 分 内 容 都 是 其 可 执行 语句 。 与 C 语言 一 样 ， 语 名 由 一 个 或 一 系列 表达 式 组 成 ， 
并 以 分 号 结尾 。Perl 语句 分 为 简单 语句 和 复合 语句 两 种 ， 由 各 种 运算 符 、 修 饰 符 、 表 达 式 和 国 数组 
成 ， 如 下 面 示例 所 示 。 


租 二 主攻 七“ 下 瑟 全 工 下 克 7 二 局 人 训 让 TAN 让 
Snow = localtime(); 

Print "Today is Snow.Nnn7 
S$Sresult =5 xx 4 / 2:; 
Print "Good-bye.Nn"; 


3.2.7 ”使 用 Perl 内 建 函 数 


对 于 任意 一 种 编程 语言 来 说 ， 甚 内 建 的 或 打包 于 特殊 库 中 的 函数 集 都 是 该 语言 的 重要 组 成 部 分 
《请 参考 附录 A.1)。Perl 也 提供 了 很 多 有 用 的 国 数 ， 这 些 畏 数 都 是 独立 的 程序 代码 ， 负 责 完成 某 些 
特定 的 工作 。 在 调用 内 建国 数 时 ， 用 户 只 需 键入 国 数 名 ， 或 者 也 可 在 函数 名 后 带 上 一 对 小 括号 。 所 
有 的 函数 名 都 是 小 写 的 ， 其 中 许多 函数 还 要 求 用 户 提供 参数 ， 也 就 是 需要 传 给 函数 的 消息 。 例 如 ， 
如 果 用 户 不 提供 任何 参数 的 话 ，print 国 数 就 只 能 输出 一 行 空白 内 容 ， 因 为 其 参数 指定 了 需要 在 屏 
幕 上 输出 的 内 容 。 如 果 国 数 需 要 参数 的 话 ， 可 将 这 些 参数 以 喜 号 隔 开 ， 依 次 放 在 函数 名 后 面 即 可 。 
国 数 在 完成 特定 任务 后 往往 还 会 返回 一 些 内 容 。 在 本 章 开头 的 示例 中 ， 调 用 了 两 个 内 建 的 Perl 国 
数 : print 与 localTime。 其 中 ，print 函数 接受 一 个 字符 串 参数 ， 并 将 字符 串 的 内 容 显示 到 屏幕 上 ; 
而 localTime 函数 则 不 需要 任何 参数 ， 并 能 返回 当前 日 期 和 时 间 。 下 面 两 个 语句 都 是 带 着 参数 调用 
国 数 的 合法 形式 。 其 参数 都 是 “Hello，there.m”。 





























Print ( "Hello，there.NXn "” ) 
Print "Hello，there.Nn "; 


3.2.8 执行 脚本 


如 果 脚 本 中 含有 齐 起 始 行 并 拥有 执行 权限 〈 见 示例 3.3 ), 或 者 已 经 按 前 面 所 述 步骤 在 Windows 
中 设置 好 了 文件 扩展 名 关联 ， 用 户 便 可 在 命令 行 中 直接 通过 脚本 名 称 来 执行 Perl 脚本 。 倘 若 襄 不 
是 脚本 第 一 行 的 话 ， 读 者 也 可 把 脚本 路 径 作 为 参数 传 给 Perl 解释 器 ， 这 样 便 可 执行 该 脚本 。 

接着 ，Perl 会 通过 其 内 部 格式 对 用 户 提供 的 脚本 进行 编译 和 运行 。 如 果 脚 本 中 存在 语法 错误 ， 
Perl 会 马上 告知 用 户 。 用 户 还 可 以 通过 -c 开关 检查 脚本 是 否 编译 成 功 ， 如 下 所 示 : 























$ perl -c scriptname 


若 要 在 UNIX 或 MS-DOS 命令 行 提示 符 下 执行 脚本 ， 请 输入 : 
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$S perl scriptname 


3.2.9 脚本 实例 


下 面 这 段 示例 显示 了 Perl 脚本 的 五 个 主要 部 分 ; 
1. 起 始 行 CUNIX ) 

2. 注释 

3. 脚本 体内 的 可 执行 语句 

4. 检查 Perl 语法 

5. 脚本 的 执行 CUNIX、Windows ) 

















AN 


示例 3.3 
$ cat fizst.Per1 (UNIX GasPJay contents) 
了 本 
包 让 


二 IE 


4 SS Perl -c irst 上 .Perl # The SS Is the speJ]I Pompt 
2 


$_ chmod +x fizst.PerzlL (UNIX) 


$ first.PerlL or ./firzst. Per1 
EUR 双双 码 CS 


汉 和 ~ cv 


芝 


. 起 始 行 ， 负 责 告诉 Shell 哪里 有 Perl。 

注释 部 分 ， 描 述 了 程序 员 和 希望 提供 的 有 关 该 脚本 的 信息 。 

. 可 执行 语句 ， 其 中 含有 一 个 print 国 数 。 

-c 开关 ， 可 用 于 检查 语法 错误 。 谢 天 谢 地 ， 上 述 程序 一 切 正 篆 。 

. chmod 命令 ， 负 责 开局 脚本 的 执行 权限 。 

. 执行 脚本 , (如果 UNIX 的 默认 路 径 中 含有 “.” 目 录 的 话 )。 如 果 显 示 “Command not found” 
错误 《或 其 他 类 似 反 馈 信 息 )， 请 在 脚本 名 前 面 加 上 一 个 句点 和 一 条 正 斜 杠 。 

. 脚本 会 在 屏幕 上 输出 字符 串 “Hello to you and yours!”。 


人 请 DPP 一 


= 





AN 


示例 3.4 
$ 七 YPe fizst.Pez1 全 
半 村 Ne 本 证 到 三 记 六 生效 iTE 交 让 
习 让 
辽 NE EN 
4 SS Perl first.PerlLl (Botp UNIX ana Hinaomws) 
与 EU 


1. 上 述 示例 中 没有 以 胡 开头 的 起 始 行 。 在 使 用 Windows 时 ， 脚 本 并 不 一 定 需要 起 始 行 。 如 果 
读者 使 用 的 是 AcetiveState， 也 可 借助 一 个 名 叫 pl2bat 的 实用 工具 创建 脚本 文件 。 
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2. 这 是 一 行 描述 性 内 容 ; 注释 内 容 说 明了 该 脚本 不 含 起 始 行 。 
3. 可 执行 语句 ， 其 中 含有 一 个 Print 函数 。 
4. 在 命令 行 环境 中 ,把 脚本 名 称 作 为 参数 传 给 Perl 程序 ， 以 便 执 行 该 脚本 ， 并 打印 脚本 输出 内 





容 。 读 者 在 任何 操作 系统 上 都 可 通过 上 述 方式 执行 Perl 脚本 。 


3.2.10 可 能 出 现 的 错误 


读者 应 当 作 好 程序 出 错 乃至 大 量 出 错 的 心理 准备 。 为 了 得 到 一 个 能 够 完美 运行 的 程序 ， 读 者 可 
能 需要 再 三 党 试 ， 屡 败 屡 战 。 了 解 磁 到 的 错误 信息 ， 和 了 解 老 板 的 怪 痊 、 了 解 您 的 另 一 半 、 甚 至 和 


了 解 你 




















自己 一 样 重要 。 有 些 程序 员 就 往往 一 而 再 、 再 而 三 地 犯 着 同样 的 错误 。 不 过 也 不 用 着 急 ， 读 





者 马上 就 能 学 到 大 多 数 此 类 出 错 信息 的 含义 ， 以 及 如 何 去 避 免 它 们 。 

在 执行 一 段 Perl 脚本 时 ,虽然 读者 经 历 的 操作 只 有 一 步 , 但 在 Perl 解释 器 内 部 却 经 历 了 两 个 阶 
段 。 首 先 ， 它 会 把 整个 程序 编译 成 字 节 码 ， 即 该 程序 的 一 种 内 部 表达 。 然 后 ， 由 Perl 的 字 节 码 引 擎 
负责 和 逐 行 运行 这 些 字 节 码 。 如 果 磁 到 编译 器 错误 ， 璧 如 行 末 缺 少 分 号 、 关 键 字 拼 写 错误 、 或 引号 不 
配对 的 话 ， 读 者 便 会 看 到 所 谓 的 语法 出 错 信息 。 用 户 可 通过 -c 开关 收集 此 类 错误 信息 ,一旦 熟悉 之 
后 ， 往 往 就 能 很 容易 地 发 现 它 们 。 





由 
到 




















人 eeScEiety 
iTCREWCTIGS 
EeeowEssXEmEEScnmieR 
IE 


GO 
Barewora Founa Where cperator expecteaQ at errors.pJXx 1 ine 3，near 
7 


ee 
(Do yo DeeaQ to PreaQecJare Prznt2) 


5 
Search pattern no termznateaQ at errors.pJx 1I1Iine 3. 


解释 : 
1 
四 


户 还 可 





. 这 一 行 应 当 拥 有 配对 的 双 引 号 ， 并 在 行 尾 语 上 一 个 分 号 。 


这 个 Perl 语句 本 身 是 正确 的 。 但 是 由 于 Perl 正在 搜寻 上 一 行 遗 漏 的 双 引 号 ， 因 此 会 和 本 行 
的 “print” 一 词 产 生 混 消 。 这 是 因为 Perl 认为 该 行 还 是 上 一 行 的 一 部 分 。 为 什么 呢 ? 因为 前 
一 行 缺少 了 一 个 引号 ,并 且 行 未 没有 分 号 。 因 此 ,一旦 读者 在 出 错 信息 里 面 看 到 了 “runaway” 
这 个 词 ,， 往往 就 意味 着 代码 中 某 个 引号 已 经 runaway (缺失 ) 了 。 倘 若 看 到 “Bareword” 一 
词 ， 则 意味 着 某 个 词语 两 边 缺少 引号 。 


当 程 序 成 功 通过 了 编译 阶段 〈 也 就 是 说 , 编译 霹 没 有 发 出 任何 语法 错误 或 冲突 消息 ) 之 后 , 用 
能 磁 到 一 些 运 行 时 错误 ， 又 称 作 逻辑 错误 。 这 些 错 误 相 对 更 难以 发 现 ， 可 能 是 开发 者 没有 














预计 到 程序 运行 时 才 出 现 的 某 些 问题 所 致 ， 也 有 可 能 该 程序 在 设计 时 的 逻辑 就 是 错 的 。 运 行 时 错 


误 的 原 





因 很 多 ， 璧 如 打开 的 文件 或 数据 库 不 存在 、 用 户 输入 了 错误 的 内 容 、 陷 入 死 循 环 、 或 者 把 


0 当 作 除 数 等 。 不 论 如 何 ， 这 一 类 问题 更 难以 排查 ， 因 而 又 被 称 为 “Bug”。Perl 提供 了 一 个 调试 
器 ， 允 许 用 户 逐 行 执行 脚本 中 的 语句 ， 帮 助 排查 逻辑 错误 的 原因 所 在 。( 详 见 “ 调 试 器 ”一 节 。) 
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3.3 ”从 命令 行使 用 Perl 


虽然 Perl 的 大 部 分 功能 都 需要 用 到 脚本 ， 但 对 于 那些 简单 的 任务 如 测试 函数 、 打 印 语句 或 只 测 
试 Perl 语法 , 用 户 也 可 直接 在 命令 行 中 予以 执行 。Perl 提供 了 大 量 命令 行 开 关 〈switch)， 又 称 为 命 
令 行 选项 ， 用 于 控制 或 修改 其 行为 表现 。 下 列 开 关 列 表 并 不 完整 〈 完 整 的 列表 请 参阅 附录 A)， 但 
它 基 本 说 明了 命令 行 下 直接 调用 Perl 的 语法 。 
在 使 用 命令 行 时 ， 用 户 可 以 看 到 shell 提示 符 。shell 又 称 为 “命令 行 解 释 器 ”。 其 中 ，UNIX 
shell 如 Korn 和 bash 都 默认 显示 $ 提示 符 ， 而 C shell 则 使 用 % 提示 符 。UNIX、Linux 和 Mac OS 
的 shell 在 解析 命令 方面 非常 相似 。 在 默认 情况 下 ， 如 果 读 者 使 用 的 是 WindowsXP 或 Vista 的 话 ， 
会 使 用 名 叫 command.com 的 MS-DOS shell ;， 倘若 使 用 的 是 Windows NT， 其 shell 则 是 cmd.exe 
中 的 控制 台 应 用 程序 。 上 述 二 者 均 显示 $ 提示 符 9。Win32 shell 具有 其 独特 的 命令 行 分 析 方式 。 由 
于 大 多 Perl 编程 工作 都 是 在 脚本 文件 中 完成 的 , 因此 用 户 很 少 需要 关心 与 shell 的 交互 细节 。 但 是 ， 
当 把 脚本 与 操作 系统 进行 交互 时 ， 如 果 不 知 道 该 使 用 的 命令 以 及 shell 如 何 执行 它们 的 话 ， 就 有 可 
能 会 发 生 问 题 。 























3.3.1 _e 开关 


-ee 开关 允许 Perl 从 命令 行 而 不 是 脚本 来 执行 Perl 语句 。 这 是 在 把 Perl 语句 放 入 脚本 前 检测 其 
正确 性 的 好 办 法 。 








业 $ Perl -e 'Print "hello dolLlLyNn" 7， 井 UNTXATIDPUX 
JE 本 风 
有 $ PerlL -e "Pint qq/ 人 hello dollLyNn/;" # inaomws ana UNTIXATIPUX 
EU 
解释 : 
1. Perl 打印 字符 串 hello dolly 到 屏幕 ， 最 后 是 一 个 换行 符 an。 其 中 ， 美 元 符号 ($) 是 UNIX 
的 命令 行 提示 符 。 把 Perl 语句 包围 起 来 的 单 引 号 负责 在 扫描 和 解释 命令 行 时 区 分 Perl 命令 和 
UNIX shell。 
2. 在 MS-DOS 提示 符 下 ,Perl 语句 内 容 必 须 出 现在 双 引 号 中 间 。 其 中 ,hello dolly 两 侧 出 现 的 
dd 结构 是 Perl 表示 双 引 号 的 另 一 种 形式 。 璧 如 , qq/hello/ 即 等 价 于 “hello”。 如 果 在 MS-DOS 提 
示 符 下 输入 下 列 命令 ， 则 会 显示 出 错 信息 : 
SEE 和 CA EL 
人 Raoo 几 ee SEE ASo1o 人 0002 SS oaoras 二 oa 三 二 生怕 
请 注意 : UNIX 系统 也 可 使 用 上 述 命令 格式 。 
3.3.2 ” -n 开关 


如 果 需 要 打印 文件 内 容 或 搜索 文件 中 含有 特定 模式 的 行 ， 则 可 以 使 用 -na 开关 隐 式 地 逐一 按 行 
志 历 文件 。 与 sed 和 awk 一 样 ，Perl 也 通过 其 强大 的 模式 匹配 技术 在 文本 中 查找 目标 模式 。 在 使 











@@ 用户 看 到 的 命令 行 提 示 符 也 有 可 能 被 定制 为 含有 当前 目录 路 径 、 历 史 数 、 驱 动 盘 符 等 内 容 。 一 译 者 注 
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用 -na 开关 时 ，Perl 只 会 打印 指定 行 的 内 容 。 
从 文件 读 取 。-a 开关 刘 许 用 户 遍 历 整个 文件 ,只 需 在 参数 中 提供 该 文件 的 文件 名 即 可 。 甚 Perl 








语句 位 于 引号 之 间 ， 文 件 名 则 在 命令 行 的 尾部 列 出 。 


AN 


示例 3.7 


(The Text File) 


站 


$ more emp .fizst 
人 
SEE 
CO 全 区 罗 本 人 六 了 汪 
0 
ER 人 人 有 不 本 
SS Perl -ne 'PLint:' emp .frst # Inpaomws: use aoupble 9uotes 
故人 
Sie 
CR 
交 有 0 
人 全 二 条 仆人 县 允 5 


$S Perl -ne 'Print if /^Igor/;:' emp.first 
ET 


解释 : 


1. 在 屏幕 上 打印 文本 文件 emp.first。 在 第 2 行 ，Perl 把 这 个 文件 名 用 作 命 令 行 参数 。 
2. 通过 隐 式 地 逐 行 笛 历 文件 的 方式 , Perl 打印 出 emp.first 文件 的 所 有 行 。 请 注意 ,Vindows 用 





户 应 当 将 命令 放 在 双 引 号 中 ， 而 非 单 引 号 。 


3. Perl 通过 正则 表达 式 规定 待 匹配 的 模式 。 模 式 Igot 出 现在 反 斜 杠 之 间 , 并 在 行 首 加 上 了 一 个 





字符 。^ 人 字符 又 被 称 为 行 首 销 点 (beginning of line anchor)。Perl 将 只 打印 那些 以 Igor 开 
头 的 行 。 请 注意 ，Windows 用 户 应 当 将 命令 放 在 双 引 号 中 ， 而 非 单 引 号 。 


从 管道 读 取 。 由 于 Perl 只 是 又 一 个 应 用 程序 而 已 , 因此 用 户 也 可 通过 管道 把 命令 的 输出 内 容 传 
输 给 Perl。Perl 将 把 来 自 管道 而 不 是 文件 的 内 容 当 作 输入 内 容 。 为 此 需要 使 用 -n 开关 , 以 便 让 Perl 
志 历 来 自 管道 的 所 有 内 容 。 


示例 3.8 
(UNIX) 
册 $ date | Perl -ne 'Print "Today is $ "; 
2 BSA 
(Winadaows) 
写 $ date /IT | Perl -ne "Print qq/Today is $_/;" 
4 Tocay Is Tue 04/24/2007 

解释 : 


1. UNIX date 命令 的 输出 内 容 通过 管道 传送 到 Perl, 存储 在 $_ 变量 中 。 然 后 , 程序 会 在 屏幕 上 


打印 引号 之 间 的 字符 串 Today is 和 $_ 变量 内 容 ， 并 在 最 后 追加 一 个 换行 符 。 


2. 输出 $_ 变量 ， 甚 内容 则 是 今天 的 日 期 值 。 
3. Windows NT 的 date 命令 ， 它 使 用 代 选 项 ， 能 够 生成 当天 日 期 。 然 后 把 输出 内 容 通过 管道 


传送 给 Perl， 并 存储 于 $_ 变量 中 。 这 里 必须 使 用 双 引 号 括 起 print 语句 。 
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通过 标准 IO 的 重 定向 操作 ，Perl 也 可 接受 来 自 文件 的 输入 ， 并 能 把 输出 重 定向 到 文件 中 去 。 





示例 3.9 

灿 SS Perl -ne 'Print:' < emP . 提 izst 七 
ED 
天 丽人 让 忆 和 且 昌 放 有 人 人 兴 玫 于 于 09593530U 
可 6 采 生 下 ETGS 生 汪汪 全 克 交 SEE 用 和 和 用 大 区 改写 5 
ONE 人 仙人 六 2 下 纯朴 和 有 5 
EEEEEEUWTIOEE 本国 本 人 9 区 二 记 作 攻 可是 SETE2RORS 

到 S$ PerlL -ne 'Print' empP.first > emp .temP 


解释 : 
1. Perl 的 输入 内 容 来 自 文件 emp.first， 其 输出 内 容 则 显示 在 终端 屏幕 上 。 请 注意 ，Windows 用 
户 应 当 将 命令 放 在 双 引 号 中 ， 而 非 单 引 号 。 
2. Perl 的 输入 内 容 来 自 文件 emp.first， 其 输出 内 容 则 被 重 定向 到 文件 emp.temp 中 。 请 注意 ， 
Windows 用 户 应 当 将 命令 放 在 双 引 号 中 ， 而 非 单 引 号 。 


3.3.3 -=-c 开关 


正如 本 章 前 面 所 述 ，-c 开关 用 于 检查 Perl 语法 ， 而 不 是 执行 Perl 命令 。 如 果 其 语法 正确 ,Perl 
就 会 通知 用 户 。 读 者 最 好 始终 打开 -ce 开关 ， 以 便 时 刻 检查 脚本 的 正确 性 。 这 对 于 Perl 编写 的 CGI 
脚本 显得 尤为 重要 ， 因 为 这 样 便 可 把 那些 通常 显示 在 屏幕 上 的 出 错 信息 发 送 到 日 志 里 去 。 











示例 3.10 
筷 Przzneoonpellco searcnsaieEsenenoe ESEmanaEewE se 
Ca noCESE22O9REESETROSECE WAEEEEDe OPe OP 七 是 SS 2 
齐 EmoneLe 
ES 划 和 OO 


训 


1. 字符 串 hello 以 双 引号 开头 ， 却 以 单 引 号 结束 。 引 号 必须 是 配对 的 ， 因 此 上 面 这 个 双 引 号 应 
当 和 字符 串 未 尾 的 另 一 个 双 引 号 配对 。 但 实际 上 其 末尾 并 疫 有 双 引 号 , 出 现 的 反而 是 单 引 号 。 
通过 打开 -c 开关 ，Perl 便 会 显示 其 在 编译 时 是 否 发 现 了 语法 错误 。 

2. 纠正 上 述 问 题 后 ，Perl 便 会 显示 该 语法 是 正确 的 。 


3.4 读者 应 当 学 到 的 知识 


. 如 何 创 建 一 个 脚本 ? 

. 每 个 语句 是 以 什么 符号 结尾 的 ? 
什么 是 空白 字符 ? 

格式 自由 《〈free form) 的 涵义 是 什么 ? 
什么 是 内 建国 数 

什么 是 UNIX 中 的 攻 行 ? 

. 如 何 设置 脚本 使 它 变 得 可 执行 ? 
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8. 为 什么 要 使 用 注释 ? 

9. 如 果 一 个 Perl 脚本 没有 shbang 行 ， 应 当 如 何 执行 它 ? 
10. 哪个 命令 行 选项 提供 对 Perl 语法 的 检查 ”? 

11. -~e 开关 的 作用 是 什么 ? 


3.5 下 章 简介 


如 果 不 能 在 程序 中 打印 出 其 所 完成 的 工作 内 容 ， 那 就 和 尝试 理解 哑巴 的 思想 一 样 麻烦 。 在 下 一 
章 内 容 中 , 我 们 将 讨论 用 于 向 屏幕 《〈stdout) 打印 输出 内 容 的 Perl 函数 , 以 及 如 何 归 整 输出 的 格式 。 
读者 将 了 解 Perl 是 如 何 看 待 字符 、 空 格 、 文 本 、 反 斜 杠 序列 、 数 字 和 字符 串 的 。 并 学 习 如 何 使 用 单 
引号 、 双 引号 和 反 引 号 ， 以 及 它们 的 奉 代 模式 。 我 们 将 讨论 here 文档 ， 以 及 如 何在 CGI 脚本 中 使 
用 它们 。 此 外 ， 读 者 还 将 学 到 如 何 借助 警示 信息 和 诊断 信息 对 脚本 中 的 错误 进行 排查 。 








练习 3 了 解 Perl 的 语法 


1. 在 命令 行 提示 符 下 ， 编 写 打 印 如 下 内 容 的 Perl 语句 。 
Hello worldl!! 
Welcome to Perl programming. 

2. 执行 另外 一 个 Perl 命令 ， 打 印 datebook 文件 的 内 容 。( 读 者 可 在 华章 网 站 (www.hzbook.com ) 
上 找到 该 文件 。) 

3. 执行 Perl 命令 ， 显 示 当 前 使 用 的 Perl 版 本 和 修订 信息 。 

4. 将 示例 3.1 示例 程序 复制 到 文本 编辑 器 中 ， 保 存 并 检查 它 的 语法 是 否 正 确 ， 然 后 执行 该 程序 。 








第 4 章 获得 打印 句柄 


4.1 文件 句柄 





在 通常 情况 下 ， 每 当 程 序 开始 执行 时 ， 父 进程 〈 通 常 就 是 shell 程序 ) 便 会 打开 三 个 预先 定义 
的 流 ， 分 别 叫做 stdin、stdout 和 stderr。 在 默认 情况 下 ， 这 三 个 流 都 连接 在 终端 屏幕 上 。 

stdin 流 是 输入 的 来 源 ， 即 终端 键盘 ; stdout 是 输出 目的 地 ， 即 屏幕 ;而 stderr 则 是 打印 程序 错 
误 信 息 的 地 方 ， 一 般 也 是 终端 屏幕 。 

Perl 会 从 shell 继承 上 述 stdin 、stdout 和 stderr 流 。Perl 并 不 直接 访问 这 些 流 , 而 是 把 它们 命名 
为 文件 句柄 。Perl 只 能 通过 这 些 文件 句柄 来 访问 上 述 流 。 其 中 ，stdin 的 文件 句柄 是 STDIN 、stdonut 
的 文件 句柄 是 STDOUT 而 stderr 的 文件 句柄 则 是 STDERR。 后 面 将 详细 介绍 如 何 创建 自己 的 文件 
句柄 。 读 者 现在 只 需 使 用 上 述 预 先 定 义 好 的 句柄 即 可 。 
在 默认 情况 下 ，Pprint 和 printf 函数 都 会 把 输出 发 送 到 STDOUT 文件 句柄 中 。 























4.2 字 (Word ) 


在 向 STDOUT 输出 一 系列 字符 内 容 时 ， 读 者 最 好 先 能 理解 Perl 是 如 何 处 理 这 些 字 的 。 在 Perl 
中 ， 任 何 未 加 引号 的 字 都 必须 以 字母 或 数字 开头 ， 并 由 字母 、 数 字 或 下 划 线 组 成 。Perl 是 区 分 字母 
大 小 写 的 。 如 果 设 有 在 字 两 边 加 上 引号 ， 就 有 可 能 与 其 他 表示 文件 句柄 的 词 、 标 记 或 其 他 保留 字 发 
生 冲 突 。 如 果 某 个 字 在 Perl 中 没有 特殊 含义 的 话 ， 就 应 当 把 它 放 在 单 引 号 中 。 


























4.3 print 函数 


print 函数 负责 将 字符 串 或 由 喜 号 隔 开 的 字 列 表 打 印 到 Perl 的 STDOUT 文件 句柄 中 。 如 果 调 用 
成 功 ，print 国 数 就 返回 1， 否 则 返回 0。 

字符 串 常 量 \ 可 以 出 现在 字符 串 的 末尾 ， 表 示 换 行 亦 可 能 入 到 字符 串 中 间 位 置 ， 以 便 割 裂 该 
字符 串 。 与 shell 一 样 ， 为 了 解释 反 斜 本，Perl 也 要 求 将 \ 这 样 的 转 义 序列 置信 到 双 引 号 中 去 。 


msc 
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下 SN 
现 OAIEOTSSEILRENR 7 


GE 

孔 瑟 eJJomwor 了 Ta 
到 万 eJJo Wor 了 Ia 
又 


1. 每 个 传送 给 print 函数 的 字符 串 都 位 于 双 引 号 之 间 ， 并 以 逗号 分 隔 。 如 果 需 要 打印 空白 字符 ， 
则 必须 把 这 些 空白 字符 也 放 到 引号 中 。 为 了 表达 换行 符 ,还 应 当 把 转 义 序列 也 放 入 双 引 号 
之 间 。 

2. 将 双 引号 之 间 的 整个 字符 串 打印 到 标准 输出 。 


AN 


示例 4.2 
人 EST 
并 ET 


(ESGUE) 
业 NS 三世 丰 二 和 交大 条 让 二 帮 帮 已 丰 二 生态 己 关 7 必 达 二 本 7 交 二 本 1 


解释 : 
如 果 没 有 给 字符 串 加 上 引号 ， 则 必须 指定 STDOUT 文件 句柄 。 否 则 Perl 便 会 把 它 碰 到 的 第 一 
个 参数 作为 文件 句柄 的 名 字 〈 璧 如 本 例 中 的 Hello 字符 串 将 被 当 作文 件 句柄 )。 在 文件 句柄 后 面 不 应 
跟随 喜 号 ， 喜 号 只 能 用 于 待 输出 的 各 字符 串 之 间 。 


AN 


示例 4.3 
msiSeenisty 
业 OU 用 CN 
Out 
下 瑟 eJJomwor 了 Ta 
解释 : 
如 果 没 有 给 字符 串 加 上 引号 ， 则 必须 指定 STDOUT 文件 句柄 。 如 需 解 释 nm， 则 应 当 将 它 置 于 
双 引 号 之 间 。 最 好 不 要 以 这 种 方式 使 用 不 带 引 号 的 字符 串 。 不 在 引号 内 的 词 又 称 为 裸 词 (bareword ) 。 
注 : 在 SITDOUT 后 面 不 应 有 过 号 。 


4.3.1 引号 





不 论 用 户 使 用 Perl 的 什么 功能 ， 都 可 能 碰 到 引号 ， 尤 其 是 在 打印 字符 串 的 时 候 。 一 般 而 言 ， 字 
符 串 都 由 两 个 配对 的 双 引 号 或 单 引 号 包围 起 来 。 当 字符 串 两 头 是 单 引 号 时 ， 串 内 所 有 字符 都 被 当 作 
文本 进行 处 理 ; 而 当 两 头 是 双 引 号 时 ， 尽 管 大 部 分 字符 都 被 当 作 纯 文本 ， 也 会 有 少量 字符 是 作为 变 
量 替 换 〈variable substitiution ) 和 特殊 字符 序列 (special escape sequence ) 来 处 理 的 。 本 章 将 讨论 
特殊 字符 序列 ， 而 有 关 变 量 的 内 容 请 读者 阅读 第 5 章 “ 变 量 ”。 
在 Perl 中 ， 某 些 字符 具有 特殊 含义 ， 和 譬如 美元 符号 〈$) 和 @ 符号。 如 果 需 要 把 这 些 符 号 当 作 
纯 文 本 来 处 理 的 话 ， 就 必须 在 它 前 面 加 上 反 和 斜 枉 〈\)， 或 者 在 它 两 边 加 上 单 引 号 ('")。 其 中 ， 反 和 斜 
杠 只 能 处 理 单个 字符 ， 而 不 是 整个 字符 串 。 
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(The Scipt) 

1 Sname="B1I1ie"7 

2 Print "Hello，S$Sname.NXn"7;# Sname ana \D evraluated 

TREE 
# Interpreteda 





TEST ES ET 

SETTESTEOCTNR YE 全 NT 人 大大 二 二 力量 已 ES 
人 

OUEswe) 

2 Fe Jo ETIie， 

3 EN ETEANOOEOOOE SEEU 

SEE 


用 户 碰见 最 频繁 的 错误 莫 过 于 和 引号 相关 的 错误 了 。 这 里 将 介绍 一 些 最 常见 的 因为 引号 不 匹配 
或 者 裸 字 情 况 而 出 现 的 出 错 信息 。 

读者 不 妨 可 以 把 引号 想象 成 是 Perl 字符 串 的 外 套 。 如 果 脱 了 这 层 外 套 ， 就 有 可 能 收 到 下 列 与 
“BareWord” 相 关 的 信息 : 

Bareword“there”not allowed while“strict Subs”in use at try.pl line3. Execution of program. 























pl aborted due to compilation erTorTS. 
读者 也 可 把 引号 想象 成 是 一 对 夫妻 。 一 个 双 引 号 的 配偶 必然 是 另 一 个 与 之 配对 的 双 引 号 ; 而 
一 个 单 引 号 也 只 能 和 与 之 相配 的 单 引 号 成 为 夫妻 。 如 果 没 有 对 引号 进行 匹配 的 话 ， 就 好 像 半边 
天 不 见 了 ,或 者 说 “runaway” 了 。 那 剩 下 的 另 一 半 该 何去何从 呢 ? 这 时 用 户 就 会 收 到 如 下 错误 
消息 : 
(Might be a runaway multi-line 





1 1 


String starting on line 3 ) 
触犯 引号 规则 的 情况 


全 mesoseccnpty 

SA 

站 DOSE 
业 Pint "Hello，"I can't go there": 二 Unmatchea G9uotes 
归 NE 


GE 
Barewora FounaQ Where coperator expecteaQ at G9test.PIX Jine 2，Dmnear 
的 5 汪汪 
(sssm5EEooee 上 oo5eoe 这 
Barewora FiounaQ Wpere opezrator expecteaQ at 9test.PIx Jine 3，Dmear 
EEC 
全 古 三 5 有 二 
(Do 7ou Deea to PreaecJare Print2?) 
StrIin9 Founa wpbere operator expectea at dtest.DpJX Jine 3，at ena of 1 Ine 
(MIS5IDn9 SemicoJon on PrevIous 1 ine2?) 
站 
站 忆 攻 要 帮 六 人 本 天 下 本 全 交 帮 囊 帮 到 攻 所 六 了 六 OE 天 < 是 PE oOEE 古 了 OA 上 厂 o 全 S 且 U 区 和 呈 E 


中 
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解释 : 

1. 字符 串 “Hello 的 开头 有 一 个 双 引 号 ， 但 其 尾部 却 没 有 与 之 配对 的 双 引 号 。 这 种 格式 会 造成 麻 
烦 的 问题 。Perl 会 假定 工 前 面 的 那个 双 引 号 是 与 上 面 这 个 引号 配对 的 。 结 果 造 成 后 面 另 一 个 
字符 串 “I can” ft go there” 又 成 了 光 杆 字符 串 。 而 这 一 行 末 尾 的 双 引 号 则 会 与 下 一 行 开头 的 双 
引号 配对 。 总 之 一 切 都 乱 套 了 。 

2. Perl 还 会 认为 “Good_bye” 也 是 光 杆 字符 串 ， 因 为 无 法 为 它 找到 可 供 匹 配 的 引号 。 第 1 行 
“there "末尾 的 双 引 号 已 经 把 本 行 “Good_bye ”开头 的 引号 配对 过 去 了 , 从 而 造成 ”Good_bye” 
成 了 光 杆 字符 串 。 


4.3.2 实 量 〈 常 量 ) 





当 把 某 个 实 量 值 (literal value ) 赋予 某 个 变量 或 在 屏幕 上 打印 它 时 , 该 实 量 可 以 表示 某 个 数字 。 
这 些 数字 可 以 是 十 进 制 、 八 进 制 或 者 十 六 进 制 ， 也 可 以 是 用 浮 点 模式 或 科学 计数 法 表示 的 译 点 数 。 

位 于 双 引 号 之 间 的 字符 串 中 也 可 以 含有 实 量 〈literal)， 璧 如 \n 表示 换行 符 ，\t 表示 制 表 符 ，\e 则 
表示 取消 〈escape)。 字 符 串 实 量 是 以 一 个 反 和 斜 杠 开 头 的 位 于 字母 表 中 的 字符 。 它 们 可 用 于 表达 十 进 
制 、 八 进 制 、 十 六 进 制 或 控制 符 。 

Perl 还 提供 了 用 于 表示 当前 脚本 名 称 、 当 前 脚本 行 号 和 当前 脚本 逻辑 末尾 位 置 的 实 量 。 

鉴于 读者 可 能 会 在 print 或 printf 国 数 中 用 到 这 些 实 量 , 不 















































妨 让 我 们 在 这 里 看 看 它们 的 庐山 真面目 。( 若 需 获 得 更 多 有 关 表 4-1 数字 实 量 
常量 定义 的 信息 ， 请 参阅 附录 A 中 的 “常量 ”一 栏 。) 示例 描述 
数字 实 量 。 数 字 实 量 能 够 以 十 进 制 .八进制 或 十 六 进 制 形 1D345 整数 
式 表示 某 个 正 整 数 或 负数 〈 详 见 表 4-1)。 此 外 还 能 以 浮 点 形 0b1101 二 进 制 数 
式 或 科学 计数 法 形式 表达 浮 点 数 。 其 中 ,八进制 整数 必需 以 0 人 
( 零 ) 开头 ， 而 十 六 进 制 数 则 必需 以 0x 〈 零 和 x) 开头 。 以 科 
学 计数 法 表达 的 数字 必需 在 未 尾 带 有 一 个 E, 并 在 其 后 加 上 一 0 八进制 数 
个 正 数 或 负数 以 表示 其 指数 情况 。 23.45 浮 点 数 
字符 串 实 量 。 和 shell 中 的 字符 串 相 似 ，Perl 字符 串 也 是 .234E-2 科学 计数 法 





通过 单 引 号 或 双 引 号 隔 开 的 。 在 字符 串 中 存在 着 所 谓 字符 串 实 
量 〈string literal)， 又 称 为 逸 出 字符 序列 〈escape sequence )。 它 必须 出 现在 双 引 号 之 间 ， 常 用 于 解 
释 反 和 斜 杠 字符 。 








表 4-2 ”字符 串 实 量 














逸 出 序列 描述 信息 CASCII 名 称 ) 
st 制 表 符 
换行 符 
， 回 车 符 
表格 缩 ; 
































常量 CConstant )， 但 Perl 方 而 的 专家 都 爱 用 “ 实 量 (Literal)” 这 个 词 。 本 书 为 了 向 他 们 看 齐 ， 
也 将 使 用 “ 实 量 ” 这 个 词 。 
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〈 续 ) 

逸 出 序列 描述 信息 (ASCII 名 称 ) 

\b 退 格 符 

警报 / 闸 钟 

二 取消 (escape) 

\033 八进制 字符 

\xff 十 六 进 制 字符 

\e[ 控制 符 

Nl 从 下 一 字符 开始 切换 为 小 写字 母 

时 从 下 一 字符 开始 切换 为 大 写字 母 

TT 从 下 一 字符 开始 到 \E 结束 ， 切 换 为 小 写字 母 

AU 从 下 一 字符 开始 到 \E 结束 ， 切 换 为 大 写字 母 

\Q 在 所 有 字符 前 追加 反 斜 枉 ， 直 到 磁 到 \E 

\E 或 \U 的 相应 结束 符 





N 反 斜 杠 


Print "This String contains \tAttwo tabs and a newline.N\n" # Double quotes 
GE 
EeeOESDnESESDSS 和 名 丁 和 全 太 册 EL 过 


Print 'This String containsA\tNttwo tabs and a newline.NXn” #Single Guotes 
WewEwEW) 
了 EcoEconmEsSNENEEAC SEE 复查 是 TENIERNT 


特殊 实 量 。Perl 提供 了 两 个 特殊 实 量 _LINE_ 和 _FILE_。 它 们 往往 用 作 分 隔 符 , 不 论 在 单 引 号 

还 是 双 引 号 中 都 不 会 解释 。 它 们 分 别 代表 当前 脚本 的 行 数 和 名 称 。Perl 中 的 特殊 实 量 等 价 于 C 语言 
中 预定 义 的 特殊 宏 〈Macro ) 。 
在 脚本 中 , 特殊 实 量 _END_ 负责 表示 文件 的 逻辑 末尾 位 置 。 任 何 位 于 _END_ 后 面 的 内 容 都 将 
被 忽略 ， 就 好 像 它 们 成 了 注释 一 样 。 在 UNIX 中 ,表示 文件 末尾 的 控制 序列 是 <Ctrl>-d 〈\004)， 而 
在 MS-DOS 中 则 是 <Ctrl>-z 〈\032 ); 二 者 都 等 效 于 END 。 

_DATA_ 特殊 实 量 则 负责 表示 一 个 文件 句柄 , 允许 用 户 处 理 来 自 脚本 的 文本 数据 , 而 非 外 来 数据 。 














einieNSESETOiES RE 
四 
Key 


ec ECaUEQ ESSEIOOREIE STONEESEEAOORIOOSEUIOETE 时 2 


注意 : 在 特殊 实 量 两 边 必 须 各 提供 两 个 下 划 线 。( 详 见 表 4-3 ) 


黎 了 童 
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表 4-3 特殊 实 量 
实 量 描 ” 述 
LINE_ 表示 当前 行 号 
_FILE 表示 当前 文件 名 
END 表示 脚本 的 逻辑 末尾 位 置 ; 其 后 的 内 容 都 将 被 忽略 
DAIA 表示 特殊 文件 句柄 
__ PACKAGE_ _ 表示 当前 包 ; 默认 的 包 是 main 
4.3.3 打印 实 量 





打印 数 


一 三 | 


子 头 星 





在 前 面 我 们 介绍 了 实 量 的 表现 形式 ， 本 节 则 探讨 如 何在 print 函数 中 使 用 这 些 实 量 《常量 )。 


ES 
本 
人 DOOR 








下 RE 

及 TOGIARISEFTIEE OUR 

3 EU 

4 TGSE 和 SEOSE EXEEESQOEESEROSNOUUITOORONONIT 

与 ETEUTE 本 SEEDmnos EYESEESOEC 人 人 IN 

6 rneEane ascnmnaalinunmoerEE 旺 Come ONCE 

及 全 

8 SOwEEE ECaEerne dd 二 二 三 EECLNCT 

晶 Smname = "了 LI1ie"; # AStzing is assigneaq to aa Perl Variable 
ORDERTSQaYy SmGNW 人 三 miE 辣 
TIRE 

GENE 

] Thpe Price 工 5 . 

2 Zhe PrIzece Is 5700. 

有 站 二 

4 JETER AoE 

配 ESGeswwmREESEeOnv ee 到 

6 TenEXaaecamaey amperasconvezEewEo 2983 

这 工科 E 攻 二 了 二 DFTEEeC mmDer 二 /到 56- 

二 站 JoieEO ES SEE 和 2 

11 Yoaay Is Snow 5name . 

解释 : 


1. 字符 串 The price is $500 位 于 双 引 号 中 。 其 中 ,$ 是 Perl 规定 的 特殊 字符 ,用 于 表示 标量 〈 参 


阅 第 4 


章 “ 变 量 沁 ， 而 不 是 表示 货币 。 因 此 ， 由 于 程序 中 并 没有 定义 $100 变量 ， 所 以 上 述 





语句 不 会 打印 任何 内 容 。 由 于 单 引 号 具有 屏蔽 所 有 字符 解释 的 作用 ， 因 此 大 把 $100 置 入 单 
引号 之 间 ， 便 可 避免 它 被 当 作 变 量 处 理 。 除 此 之 外 , 在 $ 前 面 加 上 反 斜 枉 也 能 起 到 相同 的 效 
果 。 不 过 ， 如 果 使 用 的 是 单 引 号 的 话 ，n 也 将 成 为 普通 的 字符 串 ， 而 不 是 表示 换行 。 

2. 本 行 用 反 斜 枉 引用 美元 符号 $， 故 而 会 把 它 作为 实 量 来 处 理 。 
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3. 如 果 需 要 作为 数字 而 非 字 符 串 进行 处 理 的 话 , 数字 100 就 必须 以 单字 (word) 格式 出 现 。 这 
里 即便 没有 跟随 变量 名 ， 也 必须 对 美元 符号 进行 转 义 处 理 。 阁 要 解释 为 特殊 字符 ， 则 必须 将 
\n 置 于 双 引 号 之 间 。 

. 这 是 一 个 二 进 制 数 ， 因 为 它 是 以 0b (0 和 b) 开头 的 。 本 行将 打印 其 十 进 制 值 。 

. 这 是 一 个 八进制 数 ， 因 为 它 是 以 0《〈 零 ) 开头 的 。 本 行将 打印 其 十 进 制 值 。 

. 这 是 一 个 十 六 进 制 数 ， 因 为 它 是 以 0x〈0 和 X) 开头 的 。 本 行将 打印 其 十 进 制 值 。 

. 这 是 一 个 数字 , 其 打印 形式 和 实际 含义 相同 , 都 是 14.56。Pprint 国 数 不 会 改变 输出 内 容 的 格式 。 

.Perl 拥有 大 量 国 数 。 读 者 已 经 学 会 了 print 国 数 。 而 localTime() 则 是 Perl 提供 的 另外 一 个 国 
数 。( 函 数 名 后 面 的 括号 是 可 有 可 无 的 。) 该 国 数 能 够 返回 当前 日 期 和 时 刻 。 这 里 把 时 间 结 果 
值 赋 给 了 一 个 名 叫 $now 的 Perl 变量 。 在 下 一 章 中 ， 读 者 将 学 习 如 何 使 用 变量 。 

9. 本 行 把 $name 赋值 为 字符 串 “Ellie”。 

10. 当 字 符 串 位 于 双 引 号 之 间 时 ，Pprint 图 数 会 输出 Snow 和 $name 这 两 个 变量 的 值 。 

11. 当 字 符 串 位 于 单 引 号 之 间 时 ，Pprint 函数 会 把 他 们 当 作 纯 字 符 串 予以 输出 。 


打印 字符 串 实 量 


ES 
#!Vusr/Vbin/pez1I 
于 NEEEEINE NE 和 # BacKksI1ash interpretatioDn 
习 Pint "gg%g%N\tNtIn Single quotesANtNtgsgssNn'” # AI7 characters are 
# Printea as IIteral1s 


oo ~ 从 上 


习 IN 


ouEewuey) 

站 In aoupJe 9uotes 0 
翌 gg%g% NtID SIn9Ie G9uotesA\\t 当 人 \ 

昌 

和 


| 钊 稳 VE 
1. 如 果 字符 串 位 于 双 引 号 之 间 ， 则 执行 反 斜 代 解释。 其中， 是 一 个 字符 串 实 量 ， 负 责 产生 制 
表 符 ，\ 则 表示 换行 符 。 
2. 如 果 字符 串 位 于 单 引号 之 间 ， 则 不 解释 特殊 字符 \t 和 \m。 将 他 们 按 原样 打印 。 
3. 若 要 解释 换行 符 趾 ， 则 必需 将 其 置 于 双 引 号 之 间 。“\m” 字 符 串 将 能 实现 换行 。 


示例 4.10 
Eeeoonay 
#17VuszE/pin/Pezr1l 
外 TENaNENEDTERNUNOSOESNENTSNARE ON 


oOEUe) 
也 ( 辐 盏 局 呈 ) 开 万 E 信 DVRRAESUODI 


[解释 

\a 能 够 产生 警报 或 蜂 鸣 音 。 后 面 紧 跟 两 个 Y 制 表 符 。\U 表示 要 以 大 写 形式 打印 其 后 的 字符 串 ， 
直到 碰 到 \E 或 行 未 为 止 。 因 此 ， 这 里 的 number 将 以 大 写 形式 打印 出 来 ， 直 到 碰 到 \E。 而 \E 
之 前 的 字符 串 IS 则 会 变 为 小 写 形式 。 本 行 接着 打印 八进制 数字 0777 的 值 ,最 后 打印 句点 和 换 
行 符 。 


示 
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示例 4.11 
meSereniotay 
要 SEE 
# Prog9ram namea Iterals.Per1，wrIitten to test Special Jiteral1s 


AN 


外 EN 
匀 ES 
本 END 


And this stuff is SEEhEoDEehneeen=eaeeET EnaES ECRSs 
19noreQ by Perl . 


TEN 
ou 
也 Ne are on JIne Duamper- 3. 
到 Thpe name of th7s 厂 Je Is 1 IteraJs.per1 . 
1. 如 需 解 释 特 殊 实 量 LINE_， 则 应 将 其 置 于 引号 之 间 。 该 特殊 实 量 负 责 保 存 Perl 脚本 的 当前 
行 号 。 


2. 当前 脚本 名 是 literal,Perl。 特 殊 实 量 _FILE_ 能 保存 当前 Perl 脚本 名 。 
3. 特殊 实 量 _END_ 表 示 脚 本 的 逻辑 终止 位 置 ， 告 诉 Perl 忽略 其 后 出 现 的 一 切 字符 。 


二 


示例 4.12 
人 EECenmiety 
To 二 9 条 si 人 
# Procramr namea IIterals.Per12， 


wenLoesL secE CSS 7 和 六 AU 
下 [1 宙 训 人 
2 TI 


This 1ine will be EPEzinteaQ. 
AnaQ so will this one-. 


GE 
0 是 司 届 傅 osEe 
六 玫 oEASTER 


解释 : 
1. print 国 数 将 显示 特殊 实 量 _DAIA_ 下 的 所 有 文本 内 容 。 由 于 特殊 实 量 _DAIA_ 是 位 于 尖 括 
号 中 的 ， 因 此 Perl 将 把 它 作 为 文件 句柄 打开 ，Pprint 函数 将 显示 <DATIA> 读 取 的 行内 容 。 
2. 这 是 <DAIA> 文件 句柄 使 用 的 数据 《读者 可 以 用 _END_ 代替 _DAIA_， 也 能 得 到 相同 的 结 采 )。 





4.3.4 warning 编译 指示 符 和 -w 开关 


-WwW 开关 能 在 用 户 使 用 潜在 保留 字 或 者 其 他 可 能 导致 程序 出 错 的 特性 时 发 出 警告 。Larry Wall 在 
Perl 5 的 man 主页 中 说 :“ 每 当 磁 到 无 法 解释 的 问题 时 ， 不 妨 试 着 打开 -w 开关 ! 即便 没有 ， 最 好 也 
打开 它 。” 

用 户 可 使 用 -w 作为 Perl 的 命令 行 选 项 ， 


Per1l -WwW <SsScriptname> 





于 


如 : 
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或 者 在 Perl 脚本 中 的 shbang 行 中 指定 ， 如 : 


#!1V/usr/bin/per1l -WwW 

编译 指示 符 〈pragma) 是 一 种 特殊 的 Perl 模块 ,负责 告诉 编译 器 如 何 编译 语句 块 。 用 户 可 利用 
这 种 模块 控制 程序 的 行为 。 从 Perl 5.6.0 起 , 在 标准 Perl 库 中 出 现 了 warning.pm 模块 ， 其 功能 类 似 
于 -w 开关 。 后 者 是 一 个 编译 指示 符 ， 用 于 控制 警告 类 型 。 

用 户 亦 可 在 程序 的 负 行 下 《〈 若 没有 坑 行 则 在 脚本 开头 ) 添加 下 行内 容 : 

use warnings:; 


这 样 就 启用 了 所 有 可 能 的 警告 信息 。 若 要 关闭 警告 信息 ， 只 需 在 脚本 中 添加 下 列 内 容 : 





莘 


弄 





也 





no warnings:; 


这 样 便 可 关闭 脚本 中 所 有 可 能 的 警告 信息 。 


人 


芭 
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示例 4.13 
neSeTooEy》 
相 是 STARE 下 
# Scriptname: warnme 
| OU 用 用 ELIENREE 生 E 


(OULEEUL) (AL the Commana Line) 

$ Per1l -w warnme 
ncEewESLEFDDI9RIwDEL BEE 7DEOEUECEeEesE7ew7oCEEGY7Sme LS 
BacksIl1ash founa where operator expectea at warnme Jine 3，Pnear "mwpat\7" 
Syntax error at mwarnme IIne 3，near "wpat\" 
0 


解释 : 

-双开 关 《〈 详 见 附 录 A) 负责 打印 那些 标识 符 意 义 不 明 情况 的 警告 信息 , 譬如 只 使 用 了 一 次 的 变 
量 ， 不 正确 的 字符 串 和 数字 转换 等 。 由 于 字符 串 Ellie 没有 加 引号 ， 因 此 Perl 会 错误 地 认为 它 是 保留 
字 或 未 定义 的 文件 句柄 。 本 例 中 其 他 的 错误 信息 则 是 由 字符 串 中 不 匹配 的 引号 所 引发 的 。 





AN 


示例 4.14 
ns 硬 SeemioEy) 
#1!17Vusz/pin/pez1l 
# Scriptname: warnme 
让 use warnings : 
及 人 


OUWE 

UneoEeawsE7n9 DCwDSt ac alSD 六 ED 二 ULEEFeeSer7ecwoc sawanmeay em 
BacKksI1ash founa where operator expectea at mwarnme Jine 3，Dpear "wpat\7" 
Syntax error at warnme JI7Ine 3，near "what\" 

ce 二 20 


解释 : 
Perl 5.6 和 甚 后 出 现 的 版 本 都 使 用 warning 编辑 指示 符 代 替 了 -w 开关 。 其 中 ，use 国 数 负责 使 
用 那些 位 于 Perl 库 中 的 模块 。warning 编译 指示 符 则 负责 发 送 有 关 标 识 符 二 义 性 的 警告 信息 ， 由 于 
字符 串 Ellie 没有 加 引号 ， 因 此 Perl 会 错误 地 认为 它 是 保留 字 或 未 定义 的 文件 句柄 。 由 于 该 程序 没 
有 闭合 引号 以 结束 字符 ， 因 此 编译 器 会 发 出 警告 。 
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4.3.5 _ diagnostics 编译 指示 符 





该 编译 指示 符 除 了 能 够 显示 警告 信息 外 ， 还 能 提供 有 关 当 前 错误 的 更 详细 解释 。 与 warning 编 
译 指 示 符 类 似 ， 它 只 能 影响 脚本 的 编译 阶段 。 但 和 前 者 不 同 的 是 ， 它 将 假定 读者 是 不 懂得 编程 的 新 
手 ， 并 提供 尽 可 能 详细 的 出 错 信息 。 


示例 4.15 
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UUSeegnaSEIC SS 

PEint "Hello there':” 乾 UnmatcheaQ Gdquocte 
TENWEESTEEEEmEIOSEEUnmos 二 TINE 着 








(os Saona 
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仆人 记 二 三 二 机 二 下 玉生 站 下放 
代 全 EU Eee 
Operator. 
TF ITIL Sees What IE KnowWS Lo pe a term When IE Was expectin9g to see 
Eee 
am operator or aeJimIter Was comItteaQ sucn as a SemicoJon. 


(MESSOnoEoeraEoEenoe5IUDE2) 
让 于 19 人 汪 下 O 让 站 忆 重 交 有 Eee 重 O 忆 ES 王 三 证 瑟 及 访 ee 志 S 久 本 在 是 记 e 5 下 汪 忆 U 区 关羽 二 证 2 二 交友 
了 ee 司 三 ( 北 号 

(Miss1ing semicoyon on Previous 1 ine2) 


双亲 上 三文 关 天 天 避 关 入 二 起 汪 上 ES 起 柯 万 中 天 和 呈 计生 2 有 症 了 二 二天 证 证 万 忆 不 王 请 可可 全 全 泌 
站 站 本 放 六 名 有 让 证人 王 交 了 瑟 CE 生生 EE 放 六 2E 汪 也 0 下 人 二 记 有 瑟 < 
2 

(Epoao nEOonaeE237DES 庆 SO 全 人 ia 
TEN 


六 是 Ke7 克 OFC SLSSDEUUUEC 

有 semicolon Is missing， 

区 用 cCeimne 有 本 ass SO 

吧 万 着 @PE 闸 直 5 怠 生 2 和 研 DOSE 和 记 EeeAESTS 9 
IE 
JOSE 


Perl 5.6 及 其 后 续 版 本 使 用 diagnostics 编译 指示 符 代 奉 了 -w 开关 和 warning 编译 指示 符 。 这 
个 特殊 的 Perl 模块 将 发 送 有 关 脚 本 出 错 详 情 的 请 息 。 由 于 这 个 脚本 中 的 字符 串 Hello 不 含 匹 配 的 引 
号 , 因此 diagnostics 编译 指示 符 会 列 出 造成 问题 的 所 有 谱 在 因素 。 编 译 器 将 要 求 该 字符 串 以 另 一 个 
匹配 的 引号 结尾 。 


4.3.6 strict 编译 指示 符 
本 节 将 讨论 的 是 strict 编译 指示 符 。 当 使 用 该 指示 符 时 ， 一 有 旦 程序 建 反 了 相关 约束 条 件 ， 就 会 


编译 不 通过 。 如 上 面 例子 所 示 ， 如 果 出 现 了 裸 字符 2 〈 即 未 加 引号 的 字符 )， 则 strict 编译 指示 符 就 
不 能 通过 ， 从 而 造成 程序 退出 。 用 户 可 通过 各 种 参数 控制 strict 编译 指示 符 的 内 容 〈 完 整 的 列表 内 






































加 ”为 字符 加 上 引号 就 好 比 为 它 穿 上 衣服 。 如 果 去 掉 引 号 ， 字 符 就 好 像 裸 露 了 一 相 


tk 
吕 
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容 请 参 陪 附录 和 A)。 


了 


示例 4.16 
esScrnoty 
本 STEEL 
全 CES 辣 SS 在 
ES csscEREISEISES ECE| 


耻 use Strict "subs" 

包 Sname = 了 Il1ie'; ## UDPGuotea wora 瑟 1Jie 
孔 TOESSTIERNROL 

CGOwEEy 


$S Stricts .test 

DELESSAeN SO 届 晤 是 二 古语 0E 届 有 = 区 oa SR 和 交 OA 和 
5 

EECNeisS SEE EUociaSe 人 Emo 


解释 : 
通过 use 函数 便 可 使 用 Perl 标准 库 中 的 模块 。 当 strict 编译 指示 符 以 subs 作为 参数 时 ， 便 
会 在 内 部 编译 时 捕获 程序 中 任何 位 置 的 裸 字 。 一 旦 发 现 有 裸 字 ， 就 立刻 退出 程序 并 报错 。 


4.4 printf 函数 


printf 国 数 负责 将 格式 化 的 字符 串 输 出 到 选 定 的 文件 句柄 。 其 默认 文件 句柄 是 STDOUT。 
它 和 在 C、awk 中 使 用 的 printf 函数 功能 相同 。 如 果 printf 函数 执行 成 功 ， 其 返回 值 是 1， 否 
则 为 0。 

printf 国 数 后 面 带 有 一 个 加 有 引号 的 负责 格式 规范 的 控制 字符 串 。 其 后 则 是 一 系列 由 喜 号 隔 开 
的 参数 ， 这 些 参数 都 必须 是 简单 表达 式 。 其 格式 说 明 符 以 % 开头 。 而 对 于 每 个 以 % 开头 的 格式 说 
明 符 ， 必 须 有 一 个 参数 与 它 对 应 〈 详 见 表 4-4 和 表 4-5 )。 

用 户 也 可 选择 在 字符 串 和 表达 式 两 边 加 上 小 括号 。 





示例 4.17 


EeeRNSmESTE 是 志和 二 TEST ONOOUOG SOHE 


解释 : 

. 待 打 印 的 字符 串 位 于 双 引 号 之 间 。 其 第 一 个 格式 说 明 符 是 %s， 对 应 于 参数 John， 直 接 定位 
在 第 一 个 有 逗 号 的 丰 侧 。 跟 在 百 分 号 % 后 面 的 s 也 叫 转换 字符 (conversion character)。s 说 明 
该 处 将 进行 字符 串 转 换 。 在 本 例 中 ，John 将 在 打印 输出 时 灰 换 其 中 的 %s。 

2. %d 格式 则 说 明 十 进 制 《整数 ) 值 50 将 在 字符 串 中 打印 出 来 。 


二 
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表 4-4 格式 化 转换 符 















































转换 符 定 义 

%b 无 符号 二 进 制 整数 

%c 字符 

%d、if 十 进 制 整数 

%e 科学 计数 法 浮 点 数 

o%6E 使 用 大 写字 母 的 科学 计数 法 浮 点 数 
%f、%F 浮 点 数 

%g 使 用 e。 或 工 转换 符 的 浮 点 数 ， 取 其 最 小 宽度 
%G 使 用 e。 或 工 转换 符 的 浮 点 数 ， 取 其 最 大 宽度 
%id、%D 长 整 型 十 进 制 数 

%lu、%U 无 符号 长 整 型 十 进 制 数 

%lo、%O 长 整 型 八进制 数 

%p 指针 《十 六 进 制 数 ) 

%6S 字符 串 

9%6u 无 符号 的 十 进 制 数 

9%6x 十 六 进 制 数 

% 使 用 大 写字 母 X 的 十 六 进 制 数 

%1x 长 整 型 十 六 进 制 数 

%%% 打印 百 分 号 实 量 











标记 修饰 符 位 于 % 之 后 ， 负 责 进一步 定义 输出 的 格式 。 例 如 ，%-20s 表示 输出 长 度 为 20 个 字 
符 的 左 对 齐 的 字符 串 。 


表 4-5 ”标记 修饰 符 



































和 
%- 左 对 齐 修饰 符 
6 如 果 是 八进制 数 ， 则 在 显示 时 带 上 前 导 0， 如 果 是 十 六 进 制 数 ， 则 在 显示 时 带 有 前 缀 0x 
9h+ 对 于 使 用 d、e、f 和 g 的 转换 符 ， 显 示 其 整数 部 分 ， 并 显示 正 负 号 + 、 一 
%0 把 显示 内 容 中 的 空白 部 分 以 0 补足 
ybnumber 最 大 字段 宽度 。 譬如 ， 若 number 为 6 (如 %6d)， 说 明 最 大 字段 寅 度 是 6 
.number 指定 浮 点 数 的 精度 。 例 如 ，%.2f 表 示 小 数 点 后 两 位 ，%8.2 表示 最 大 字段 宽度 为 8， 并 
精确 到 小 数 点 后 两 位 


在 打印 参数 时 ， 字 段 〈field) 负责 为 打印 结果 提供 位 置 ， 其 宽度 是 包含 在 字段 中 的 字符 数 。 字 
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段 的 宽度 由 百 分 号 % 与 代表 字段 最 大 宽度 的 数字 来 决定 ， 甚 后 紧 跟 着 相应 转换 字符 。 璧 如 ，%20s 
表示 字段 宽度 为 20 个 字符 的 右 对 齐 的 字符 串 ;，%-25s 表示 字段 宽度 为 25 个 字符 的 左 对 齐 的 字符 
串 ，%10. 多 则 表示 字段 宽度 为 10 个 字符 的 序 点 数 〈 其 中 小 数 点 算 一 个 字符 )， 并 精确 到 小 数 点 后 2 
位 。 如 果 参 数 宽 度 超过 了 最 大 字段 宽度 的 话 , printf 也 不 会 对 数字 进行 截取 , 只 不 过 其 输出 格式 可 能 
变 得 较为 难看 。 璧 如， 如 有 果 需 要 截 去 小 数 点 右边 的 数字 的 话 ，printf 将 对 该 数字 进行 四 舍 五 人 。 如 
格式 转换 符 为 %.2f， 相 应 参数 为 56.55555， 则 会 打印 出 56.6。 


示例 4.18 


人 Eee 
#1!V/usz/bin/per1 
































由 ET 

色 本 区 王 二 OSI 

区 ET no nEOScCTaalgS 晴 二 NO 5 

4 ETISREESEmaEesaEiinos esEETOSINOELLOOL 

rain The nnmber pzanteoawtn eaainog 2zEEcs sa SO0D0QINI" 5957 

6 EAIESREIESEOIEOEEEIEEENUnosR 请 | 攻克 SI 从 

这 TIE 

8 ECEETERTmOE 王 省 E 芝 S 辣 人 En Si 央 S 汪 NE 

9 TENEREEOETSEEEOEENCaEO EGGOIOEEDDmoe 汪 二 2 辣 | 和 
14.3456: 

TS NT 

本 大 三 本 








GEGUE) 

站 ED 

2 JacK 1 

号 7TPe Dumber in aQecimal Is 45 

4 Te 工 OzmatteaQ umnper zs | 畏惧 克 | 

号 Tpe Pumpbper Printec with Jeaain9g zero5 TI5 |100000000051 . 
6 Teft-7JTuUstiea the Pumpber Is | 了 00 | 

风 SEE 

8 7TPe Dumpber In pexaaecirmal is 天 

名 Te ormaLEeECoai 5 到 On 7E7DE ES 3 
OOE 是 OOa BEOOOEEOO ES 汪 | 枢 时 过 人 UIQ 

本 天 IE 苹 EmmaieEE 关 有 


解释 : 
1. 位 于 引号 之 间 的 字符 串 含 有 %s 格式 转换 符 。 在 打印 时 用 字符 串 Sam Mcgoo 替换 %s。 
2. 字符 串 Jack 的 字段 宽度 为 15 个 字符 , 并 且 是 左 对 齐 的 。 字 符 串 Sprat 的 字段 宽度 为 20 个 字 
符 ， 也 是 左 对 齐 的 。 甚 中 的 括号 是 可 选 的 。 
3. 数字 45 将 以 十 进 制 整数 格式 打印 。 
4. 数字 100 的 字段 宽度 是 10， 并 且 是 右 对 章 的 。 





5. 数字 5 的 字段 宽度 是 10， 它 是 右 对 齐 的 ， 甚 前 绥 是 先导 零 〈0) 而 非 空 格 。 如 采 在 表示 字段 
宽度 的 数字 前 放置 修饰 符 0 的 话 ， 就 表示 在 打印 时 必须 用 先导 零 补 全 字段 前 部 的 空白 部 分 。 

6. 数字 100 的 字段 宽度 为 10， 左 对 齐 。 

7. 字段 15 以 八进制 整数 形式 打印 。 

8. 数字 15 以 十 六 进 制 整数 形式 打印 。 

9. 数字 14.3456 的 字段 宽度 为 8 个 字符 ， 包 括 一 个 小 数 点 字符 。 甚 可 选 部 分 表示 精确 到 两 位 小 


数 并 进行 四 舍 五 人 。 
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10. 数字 15 的 字段 宽度 是 8 个 字符 ， 右 对 齐 ， 默 认 精 确 到 小 数 点 后 6 位 。 
11. 数字 65 将 转换 为 ASCII 字符 A 并 打印 出 来 。 


4.4.1 Sprintf 函数 


sprintf 图 数 与 printf 国 数 基本 类 似 ， 所 不 同 的 是 前 者 允许 给 变量 赋予 格式 化 字符 串 。sprintf 函 
数 和 printf 函数 使 用 相同 的 转换 符 表 〈 详 见 表 4-4 和 表 4-5)。 有 关 变 量 的 内 容 将 在 第 5 章 “ 变 量 ” 
中 了 予以 详细 介绍 。 


示例 4.19 


(ITIhe ScEzEiRt) 
业 SS 
可 二 本 本 < 二 中 用 





多 EN 


人 EGGEE 才 
2 7TPpe name Is: 五 了 了 工 e 
TRhe Dumnper 工 5 7: 号 已 本 仆人 
解释 : 
1. sprintf 国 数 遵循 和 printt 相同 的 字符 、 字 符 串 和 数字 转换 规则 。 其 真正 的 区 别 仅 限于 sprintf 


允许 把 格式 化 后 的 输出 内 容 保存 到 变量 中 。 在 本 例 中 ， 格 式 化 后 的 输出 内 容 将 存储 于 标量 型 
变量 $string 里 。 字 符 串 中 播 入 的 会 导致 换行 的 发 生 。 有 关 标 量 的 详细 内 容 将 在 第 5 章 “ 名 
字 里 的 乾坤 ”了 予以 详细 介绍 。 本 行 的 小 括号 是 可 选 的 。 

2. 打印 出 来 的 变量 值 是 sprintt 国 数 产生 的 格式 化 输出 。 





4.4.2 无 引号 打印 : here 文档 


Perl 的 here 文档 (here document ) 特性 直接 来 自 于 UNIX shell 中 的 here 文档 。 它 人 允许 引用 一 
整 块 文档 内 容 ， 这 些 内 容 必 须 位 于 名 叫 “ 用 户 自 定义 终止 符 〈user-defined terminator)” 的 字段 之 
间 。 在 第 一 个 终止 符 到 最 后 一 个 终止 符 之 间 出 现 的 文本 就 相当 于 加 上 了 引号 ， 换 而 言 之 就 是 为 “从 
here 到 here” 的 本 文 加 上 引号 。here 文档 是 一 种 面向 行 的 使 用 格式 ， 其 格式 是 : 首先 提供 一 个 起 始 
的 终止 符 和 分 号 ， 然 后 提供 << 运算 符 。<< 运算 符 后 面 可 能 没有 空格 ， 除 非 其 终止 符 本 身 也 需要 被 
引用 。 如 果 终 止 符 的 两 边 没 有 加 上 单 引 号 或 双 引 号 的 话 ， 则 执行 变量 扩展 。 如 果 终 止 符 两 边 有 单 引 
号 的 话 ， 则 不 执行 变量 扩展 。 本 文 的 每 一 行将 插入 到 第 一 个 和 最 后 一 个 终止 符 之 间 。 最 终 终止 符 必 
须 自 己 独 占 一 行 ， 并 且 周 围 不 能 出 现 空 白字 符 。 

与 shell 不 同 的 是 , Perl 在 here 文档 中 不 能 执行 命令 替换 《〈 即 备份 引用 , backquotes) 操作 。 此 
外 ， 当 终止 符 出 现在 备份 引用 内 容 中 时 ，Perl 也 能 执行 here 文档 中 的 命令 。 
在 CGI 脚本 里 here 文档 常用 于 提供 大 块 的 HIML 标签 内 容 。 


示例 4.20 


ES 

于 SPrice=1000:; 井 忆 Varliaple Is as5igneaQ a value. 

2 PEint <<EOE : 

悦 The consumer commenteaQ，， "As 工 Look over my budget，I'"Q say 
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开 0 


下 让 


ETOEEC SEE 可 SEE 
瑟 OR 


EzEInE <<ORINIESIE 

The consumezr CommenteQ，7"As 工 1OokK ovez my buaget，I'Q say 
ne 
EINIS 


sis < 
Herze's to a new Qay . 
Cheezrsl! 


Print "NXnLet's execute some commands .N\nn; 

# IE termzinator Is iD bpackdqduotes，，wiI1 execute 05 commanas 
REDIDEEE<<wRNDD 

ScioPega niE 

Qate 

也 ND 


GEGUE) 


悦 
6 


8 


了 


解释 : 
1 
人. 


LD 


TpPpe consumer commentea "as 工 JooKkK over my bua9et，T'Qa say 
NE 
Te consuamer commenteaQa， "As 工 JooKR Orer my bua9et，TI'Q Say 
人 
Fere's to a new Qay. 

Cheezrs'! 

Fere's to a new Qay. 

Cheezs! 

Fere's to aa new aay， 

CPheezsl! 

Fere's to aa new Qqay. 

Cheer-s'! 

Tet "5 execute some commanas . 

er 万 37 人 让- 

人 


标量 型 变量 $price 的 值 是 1000。 

开始 here 文档 操作 。 其 中 EOF 表示 文件 终止 符 。 如 果 它 出 现在 双 引 号 中 ，Perl 便 会 将 它 作 
为 文本 块 进行 处 理 。 如 果 在 终止 符 前 面 存在 任何 空白 字符 , 则 应 当 把 终止 符 放 在 双 引 号 之 间 ， 
如 : “EOF “三 











. 引用 here 文档 主体 中 的 所 有 文本 块 ， 其 效果 就 像 所 有 的 文本 内 容 都 位 于 双 引 号 之 间 一 样 。 


4. 当 出 现在 双 引 号 之 间 时 ,美元 符号 $ 就 拥有 了 特殊 含义 。 由 于 here 文档 中 出 现 的 文本 效果 与 


人 (nn 


co ~ 





刍 现 在 双 引 号 中 的 一 样 , 因 此 其 变量 在 此 也 具有 特殊 含义 。$ 符号 表示 正在 使 用 标量 型 变量 。 
这 会 引起 变量 值 的 解析 操作 。 如 果 美 元 符号 前 面 带 有 反 和 斜 枉 \ 的话 ，Perl 则 把 它 当 作 实 量 ; 
行 处 理 。 如 果 在 这 里 使 用 特殊 的 反 斜 杠 序列 如 阅 的 话 ，Perl 也 将 一 样 解析 它们 。 





.here 文档 的 结尾 由 匹配 的 终止 符 标 记 ， 这 里 是 EOF。 
. 通过 把 终止 符 FINIS 置 于 单 引 号 之 间 , 随后 出 现在 程序 文本 中 的 特殊 字符 《如 美元 符号 $ 或 





反 和 斜 杠 序列 ) 的 特殊 含义 都 将 关闭 。 


. 效果 等 同 于 位 于 单 引 号 之 间 的 文本 。 
.闭合 《closing) 终止 符 ， 标 志 着 here 文档 的 结束 。 
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9. 值 x4 表 明 here 文档 中 的 文本 将 打印 4 次 。 运 算 符 x 又 称 作 是 重复 运算 符 。 在 文本 块 的 末尾 
必须 出 现 一 个 空 行 ， 以 便 使 here 0 0 吉 束 。 

10. 在 这 个 here 文档 的 未 尾 要 求 提 供 一 个 空 行 。 

11. 终止 符 出 现在 备份 引用 (backup 中 。Shell 能 够 执行 位 于 END 和 END 之 间 的 命 
令 。 本 例 中 包含 了 UNIX 命令 。 如 果 使 用 其 他 操作 系统 如 Windows 或 Mac OS 的 话 ， 其 命 
令 必 须 与 所 在 操作 系统 兼容 。 


here 文档 与 CGI。 下 面 的 程序 又 称 作 是 CGI〈 公 共 网 关 接 口 ) 程序 ， 它 是 由 Web 服务 器 而 非 
shell CA Perl 程序 。 它 和 一 般 的 Perl 程序 相同 ， 主 要 区 别 在 于 如 下 两 点 : 
1. 它 有 一 行 名 叫 MIME 〈 即 Context-type:text/html) 的 内 容 , 负责 摘 述 发 送 回 浏览 器 的 内 容 类 型 。 
2， 0 HTML 标签 的 文本 ， 以 便 浏 览 器 用 不 同 的 颜色 、 字 体 和 类 型 来 呈现 文本 
的 语言 构成 。 很 多 CGI 程序 员 都 使 用 
here 文档 , 以 免 对 程序 的 每 一 行 都 进 【RARGEAR WA GO ER OH DIEGO WUOA Help 
们 PITrInt 必 | FA 
CGI 程序 存储 于 特殊 的 cgi-bin 图 | 0 贺 硬 刘 高 | 品 | 胡 | 四 
目录 下 , 用 户 一 般 可 在 服务 器 的 根 目 “ 用 疝 击 EGRE 且 和 轩 
录 下 面 找 到 它 。 有 关 CGI 的 更 多 知识 GASNER2| WTASC6012| DERGRRGGns| RELSENGN| PEpie| Sofial 
请 参阅 第 16 章 “CGI 和 了 Perl”。 
若 要 执行 如 下 脚本 , 请 启动 Web Hear ye Hear ye Sir Richard cometh4 
浏览 器 ， 并 在 地 址 框 中 输入 ;，http:/ 


servername/cgi-bin/scriptname 日 。 详 
见 图 4-1。 图 4-1 示例 4.21 相应 的 web 浏览 器 视图 


示例 4.21 


#1V/bin/Pez1l 
# 7Tpe FTMT ta9s are embeaaea in the here aocument to avoia Usin9 
井 责 GIEIPJe Prznt Statements 
























































1 PEiIDnt << 了 OFE : #Pere aocument in a CGT script 

多 Content-tyPe: 七 ext/html 

昌 

4 用 于 币 和 有 机 次 疝 区 过 让 让 天 放下 二 开罗 用 本 全 下 下 用 六 站 产 
<H1><CENTER>Hear ye，hear ye Si Richard comethl!!</CENTER></H1> 
</HTIME> 

己 卫 OFR 

解释 : 


1. here 文档 从 本 行 开 始 , 甚 终止 符 是 EOF 。Print 国 数 将 接收 位 于 EOF 和 EOF 之 间 的 所 有 内 容 。 

2. 这 一 行 告 诉 浏 览 右 将 要 发 送 的 内 容 类 型 是 混合 有 HITML 标签 的 文本 内 容 。 本 行 的 末尾 必须 
所 人 殿 = 个 宇 衙 

3. 文档 体内 容 ， 其 中 含有 文本 内 容 和 HTML 标签 。 

4. 字符 EOF 负责 标识 文档 的 结束 位 置 。 





怠 用户 必须 在 此 提供 正确 的 服务 器 名 和 正确 的 脚本 名 。 请 注意 ， 某 些 CGI 文件 必须 提供 .cgi 或 .pl 扩展 名 。 
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4.5 读者 应 当 学 到 的 知识 


. 如 何 定义 stdin、stdout 以 及 stderr ? 

.文件 句柄 ”一 词 的 含义 是 什么 ? 

. 如 何以 八进制 格式 表示 一 个 数字 ?十进制 呢 ? 十 六 进 制 呢 ? 
. print 和 printf 国 数 的 主要 区 别 是 什么 ? 

在 处 理 字符 串 时 ， 单 引号 和 双 引 号 有 什么 区 别 ? 
什么 是 “ 实 量 (Literal)”? 
_END_ 的 用 途 是 什么 ? 

什么 是 反 斜 杠 序列 ? 

. Sprintf 国 数 的 功能 是 什么 ? 

10. 什么 是 编译 指示 符 〈progma) ? 

11. 如 何 检查 代码 以 确保 语法 的 正确 性 ? 

12. 什么 是 here 文档 ”如 何在 CGI 程序 中 使 用 它 ? 


co ~ 人 政 上 mm 一 





\ 








4.6 下 章 简介 


在 下 一 章 内 容 中 , 读者 将 学 到 有 关 变 量 和 “特殊 标志 (funny symbol)” 的 知识 。 读 者 将 会 创建 
和 访问 标量 、 数 组 、 散 列 上 下 文 以 及 命名 空间 。 读 者 还 能 从 用 户 处 获取 输入 ， 并 了 解 为 何 需要 对 其 
进行 “截取 (chomp)”。 此 外 ， 下 一 章 还 会 介绍 几 种 不 同 的 数组 和 散 列 函数 。 





练习 4 Perl 字符 串 练 习 
1. 请 使 用 print 函数 输出 如 下 字符 串 : 


"Ouch," cried MITS. O'Neil, "You musn't do that MIT. O'Nelill" 


2. 请 使 用 printf 函数 将 $34.6666666 输出 成 $S34.67 。 
3. 请 编写 一 段 名 为 literal.plx 的 Perl 脚本 ， 打 印 如 下 内 容 : 
5 Perl 1Literals 
Toaay 1I5 Mon Mar 1J2 12:58:04 PDT 2007 (Use Jocatime(f) 1) 
Thpe Dname of this PERTD SCRTIPT Is TIterals. 
FeJJo. 7The numper we WII examine IsS 725.5. 
7TpPpe NUMBPR In aecimal IsS 25. 
The fo1JowIin9 numpber Is taking UP 20 spaces ana IsS right 7Justzizea. 
| | 
7TPpe Pumber In Phpex I5S 7a 
Thpe Dumpber in octal Is 了 75 
7TPpe Pumber in scientic notation IsS 1 .255000e+02 
The Unformattea Pumber Is 125.500000 
Tpe 5EormatteQ Dumber I5 125.50 
My boss 7Just salia， "Can't you Joan me 512.50 for my 了 uncph2?7" 
工 atJy saza， "NO may1 7" 


2 


汪 


博 





Gooa-bye (Makes a beep Sounal) 


4. 向 上 述 文 件 脚 本 中 添 加 一 个 here 文档， 用 于 打印 ; 
Life is good with Perl. 
Ihave just completed my Second exercisel 


5. 读者 应 当 如 何在 脚本 中 打开 警告 功能 ? 又 该 如 何 天 


F 启 诊断 功能 呢 ? 





没 
On 
册 
时 
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5.1 Perl 变量 简介 


在 开始 阅读 本 章 内 容 之 前 ， 请 读者 留意 ， 本 章 提供 的 每 段 代码 都 是 经 过 编号 的 。 代 码 后 面 提供 
的 说 明 则 依据 代码 编号 一 一 给 出 。 这 样 做 的 意图 是 让 读者 充分 理解 每 个 程序 中 的 重要 代码 行 。 在 把 
这 些 代 码 复制 到 自己 的 文本 编辑 器 时 ， 请 读者 不 要 复制 那些 编号 ， 否 则 代码 会 执行 出 错 ! 




















5.1.1 ”类 型 





在 任何 一 种 编程 语言 中 ， 变 量 都 是 最 为 基础 的 概念 。 变 量 是 一 种 数据 项 ， 其 值 可 随 着 程序 的 运 
行 而 发 生变 化 。 与 之 相反 ， 直 接 量 和 常量 的 值 则 是 固定 不 变 的 。 变 量 可 以 位 于 程序 的 任何 位 置 ， 并 
且 不 需要 像 在 高 级 语言 中 那样 声明 它 为 特定 的 类 型 。 用 户 可 以 把 字符 串 、 数 字 或 它们 的 组 合 赋值 给 
Perl 变量 。 例 如 可 以 在 某 个 变量 中 存储 一 个 数字 , 然后 再 改变 为 存储 一 个 字符 串 。Perl 都 来 者 不 拒 。 

Perl 变量 主要 有 三 种 类 型 : 标量 型 、 数 组 型 以 及 关联 数组 型 〈 常 称 为 散 列 [Hash] )。 其 中 ， 标 
量 型 变量 合 有 单个 值 ， 数 组 型 变量 含有 一 列 有 序 的 值 ， 并 可 通过 正 整 数 形 式 的 下 标 子 以 索引 ， 而 散 
列 型 变量 则 含有 无 序 的 键 / 值 对 〈Key Value Pair) 集合 ， 由 字符 串 《〈 即 它 的 键 》 作 为 索引 ， 关 联 到 
相应 的 值 上 。《〈 详 见 下 文 的 “变量 、 数 组 和 散 列 ”一 节 内 容 )。 























5.1.2 ”作用 域 和 包 


变量 的 作用 域 决定 了 它 在 程序 中 的 哪些 位 置 是 可 见 的 。 在 Perl 脚本 中 , 变量 是 对 整个 程序 可 见 
的 〈 即 其 作用 域 是 全 局 的 )， 并 可 在 程序 中 的 任何 位 置 子 以 改变 。 
在 Perl 内 部 ， 前 面 章 节 所 述 的 Perl 程序 范例 都 会 编译 到 所 谓 的 包 〈Package) 中 ， 以 便 为 变量 
提供 命名 空间 。 几 乎 所 有 的 Perl 变量 在 包 中 都 是 全 局 的 。 全 局 变量 是 在 整个 包 范 围 内 都 可 见 的 , 如 
果 在 包 中 某 个 位 置 修 改 了 该 全 局 变量 ， 则 这 个 更 改 操作 将 永久 地 影响 该 变量 。 默 认 的 包 名 字 叫 做 
main， 类 似 于 C 语言 中 的 main 函数 。 这 种 变量 对 应 于 C 程序 中 的 静态 变量 。 在 Perl 中 , 用户 无 需 
关心 main 包 的 命名 问题 ， 以 及 它 在 编译 期 间 的 处 理 方式 。 这 里 之 所 以 提 到 包 的 概念 ， 是 为 了 让 读 
者 了 解 变量 的 作用 域 其 实 是 在 main 包 内 的 ， 也 就 是 全 局 的 。 后 面 在 讨论 main 包 中 的 our、local 和 
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my 国 数 时 ， 读 者 会 发 现 其 实 也 可 以 改变 变量 的 作用 域 和 命名 空间 。 





Package main 
标量 命名 空间 散 列 命名 空间 数组 命名 空间 
Sdepartment @deportment %department 


Sdepartment(0) Sdeportmentf'Ed'} 











图 5$-1 main 包 里 标量 、 列 表 和 散 列 的 命名 空间 
5.1.3 命名 规范 


与 C 和 Java 不同 的 是 ,Perl 变量 无 需 声明 便 可 使 用 。Perl 中 的 变量 拥有 自己 的 命名 空间 。 
它们 是 由 作为 前 组 的 特殊 字符 (funny characters) 进行 标识 的 。 其 中 ， 标 量 型 变量 的 前 绥 是 
$, 数组 型 变量 的 前 绥 是 @, 而 散 列 型 变量 的 前 绥 则 是 %。 由 于 特殊 字符 表明 了 该 变量 的 类 型 ， 
因此 用 户 可 以 对 标量 、 数 组 和 散 列 型 变量 分 别 赋予 相同 的 变量 名 而 不 必 担 心 名 字 神 突 。 例 如 ， 
$name、@name 和 %name 属于 不 同类 型 的 变量 ， 第 一 个 是 标量 型 ， 第 二 个 是 数组 型 ， 第 三 个 
是 散 列 型 。 

由 于 保留 字 和 文件 句柄 前 面 没 有 相应 的 特殊 字符 前 绥 ， 因 此 变量 名 也 不 会 和 保留 字 或 文件 句柄 
冲突 。 变 量 名 是 大 小 写 敏 感 的 。 因 此 ，$Num、$num 和 S$NUM 表示 的 是 不 同 的 变量 。 

如 果 一 个 变量 是 以 字母 开头 的 , 则 它 可 以 由 任意 数目 的 字母 (下划线 也 算 作 字母 ) 或 数字 构成 。 
如 果 变 量 名 不 以 字母 开头 的 话 , 它 就 只 能 由 一 个 字符 构成 。Perl 提供 了 一 组 特殊 的 变量 〈 如 $_ 、$^、 
$.、$1、3$2 等 )， 它 们 就 属于 上 述 | 〈 详 见 附录 A 中 的 “特殊 变量 ”一 节 )。 在 特殊 情况 
下 ， 变 量 的 前 缀 还 可 以 是 单 引 号 ， 但 这 种 情况 只 有 在 使 用 包 时 才 可 能 出 现 。 

尚未 初始 化 的 变量 值 是 0 或 者 null， 和 还 是 字符 串 而 决定 。 





























5.1.4 赋值 语句 


赋值 运算 符 也 就 是 等 于 号 〈=)， 常 常用 于 将 其 右 侧 的 值 赋 了 予 左 侧 的 变量 。 任 何 可 以 “ 赋 ” 的 

值 都 代表 了 一 个 已 经 命名 的 存储 空间 ， 称 为 左 值 (lvalue 引 )。 如 果 位 于 赋值 运算 符 左 侧 的 内 容 不 是 
左 值 的 话 ，Perl 便 会 报错 。 
在 给 变量 赋值 时 ， 如 有 果 等 于 号 左 侧 的 变量 是 标量 型 的 话 ，Perl 会 在 标量 上 下 文中 计算 等 于 号 右 
侧 的 表达 式 。 如 果 等 于 号 左边 的 变量 是 一 个 数组 ，Perl 则 会 在 数组 上 下 文中 计算 右边 的 表达 式 〈 详 
见 “ 标 量 、 数 组 和 散 列 ”一 节 )。 

简单 语句 是 指 以 分 号 结尾 的 表达 式 。 

















名 ”Perl 允许 使 用 相同 的 变量 名 ， 但 不 推荐 这 么 做 ， 因 为 这 样 可 能 会 造成 代码 阅读 时 的 困惑 。 
提 ” 等 于 号 左边 的 值 称 为 左 值 (lvalue)， 等 于 号 右 侧 的 值 称 为 右 值 Crvalue ) 。 
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\D oo~OD 居 一 由 0 一 OU 心 


EST 
间 题 SC 天天 交 三 六 用 存世 本 六 二 区 思 归 三 二 二 卫 7 矶 ES 站 二 


解释 : 


电 


LD 


CN CR 


Co 


$salary=50000 ; # Sca7Iar assIig9nmen 
Qmonths=('Mar'，!'RPE'I，'May'): # Array assIgnment 
乞 S 七 ates= 人 ( # asph assi9nment 
"CRA' => "California' ， 
MB) => 'Maine'， 
IMT' => 'Montana'/ 
INM' => 'New Mexico'， 
)) 隐 
SEN 
nneamemeEANR 
SCOTTETEOIEESONEIEINNRESSOTEITEES 全 从 
NAN 
ETiEmnEESICETESAINDOY 提 5 有 了 USELCame CEoO LI EU 
PEFint "*xxSnamexyyNnn / 站 > 万 二 三 记 DRERL 
人 UEDA 
OO 
NMar7 AP MY 
风电 7 风 避 六 全 克 
CalIzfornia Nemw Mexico 
吕 
人 
. 为 标量 型 变量 $salary 赋值 50000〈 详 见 “标量 型 变量 ”一 节 )。 


. 为 数组 @months 赋予 以 逗号 隔 开 的 列表 : Mar，Apr，May。 该 列表 包含 在 括号 中 ， 并 且 表 
中 每 一 项 都 加 上 了 引号 《〈 详 见 “ 数 组 ”一 市 )。 

. 散 列 型 变量 %states 赋值 为 由 连 字 符 〈=> ) 或 逗号 隔 开 的 一 组 字符 串 组 成 的 列表 `。 左 侧 的 
字符 串 称 为 键 ” (Key)， 右 侧 的 字符 串 称 为 值 (Value )。 键 及 其 相应 值 之 间 存 在 相互 关联 的 
关系 〈 详 见 “ 散 列 ” 一 节 )。 

. 打印 标量 $salary 的 值 ， 然 后 换行 。 

. 打印 数组 @months 的 内 容 。 借 助 双 引号 预 留 各 个 元 素 之 间 的 空格 位 置 。 

. 数组 @months 中 的 单个 元 素 属 于 标量 ， 因 此 其 前 组 应 当 是 美元 符号 〈$)。 数 组 是 从 雯 开 始 
索引 的 。 

. 散 列 变量 %states 的 键 元 素 位 于 人 花 括 号 〈 丹 ) 中 。 本 行将 打印 其 相关 联 的 值 。 每 个 散 列 值 都 
是 独立 的 标量 值 ， 以 美元 符号 〈$) 作 前 组 。 

. 这 里 首次 引用 了 标量 型 变量 $x。 由 于 上 下 文 是 数字 型 的 ， 因 此 本 行 代码 将 把 3$x 加 上 3。 甚 
中 ，$x 的 原始 值 是 0。 

. 这 里 首次 引用 了 标量 型 变量 Sname。 其 上 下 文 是 字符 串 型 的 ， 因 此 其 初始 值 是 null。 

a. 在 Perl 4 和 了 Perl 5 中 都 可 以 使 用 过 号 ， 而 => 连 字符 则 是 由 了 Perl 5 引进 的 。 
b. 与 过 号 不 同 ，=> 连 字符 用 于 给 键 (key) 加 引号 。 如 果 一 个 键 由 多 个 字符 组 成 的 话 ， 则 无 需 为 其 加 引号 。 





5.1.5 引号 规范 


由 于 引号 影响 着 解释 变量 的 方式 , 因此 这 里 有 必要 回顾 一 下 Perl 的 引号 规则 。Perl 的 引号 规则 





多 < _- 立 
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与 shell 相似 。 对 于 shell 程序 员 而 言 ， 这 可 不 是 什么 好 背 息 ， 因 为 他 们 对 于 使 用 引号 往往 感觉 很 灰 
心 ， 经 常 难以 决定 使 用 哪 一 种 引号 ， 在 何 处 使 用 才 好 ， 而 且 在 磁 到 引号 相关 错误 时 也 难以 找到 问题 
所 在 。 换 句 话说， 引号 是 真正 的 调试 亚 焚 9。 对 于 这 类 人 ，Perl 也 提供 了 另 一 种 加 引号 的 方法 9 。 

Perl 拥有 三 种 类 型 的 引号 , 均 提供 不 同 的 功能 。 它 们 分 别 是 单 引 号 、 双 引号 和 反 引 号 (backquote ) 。 

反 和 斜 杠 的 行为 类 似 于 一 组 单 引 号 ， 但 它 只 能 用 于 引用 单个 字符 。 

单 引 号 和 双 引 号 可 用 于 界定 字符 串 。 根 据 所 用 引号 类 型 的 不 同 ， 引 号 可 以 解释 特殊 字符 ， 也 可 
用 于 保护 字符 免 于 解释 。 

单 引 号 是 一 种 “民主 ”的 引号 。 它 对 位 于 其 中 的 所 有 字符 均一 视 同 仁 。 换 而 言 之 ， 单 引号 不 支 
持 特 殊 字符 ， 而 双 引 号 则 会 区 别 对 竺 一 般 字 符 和 特殊 字符 。 后 者 会 将 字符 串 中 的 部 分 字符 当 作 特 殊 
字符 对 待 。 其 特殊 字符 包括 美元 符号 $、@ 符号 以 及 转 义 序 列 ， 如 \t 和 An 等 。 

当 命 令 位 于 反 引 号 中 时 ， 该 命令 将 由 shell 执行 。 这 种 特性 又 称 为 命令 置换 。 该 命令 的 输出 内 
容 可 作为 print 国 数 的 输出 内 容 ， 也 可 赋 给 某 个 特定 变量 。 如 果 使 用 的 操作 系统 是 Windows、Linux 
或 UNIX 的 话 ， 位 于 反 引 号 中 的 命令 必须 是 具体 操作 系统 支持 的 命令 。 

无 论 用 户 使 用 哪 一 种 引号 ， 都 必须 成 对 匹配 使 用 。 由 于 引号 负责 标识 字符 串 的 起 始 或 结束 ， 因 
此 如 果 忘 记 了 其 中 某 个 引号 的 话 , Perl 会 报 “Might be a multilane runaway string” 或 者 “Execution 
of quotes aborted” 或 者 “Can't find terminator anywhere before EOF...” 错 误 ， 并 停止 编译 。 

双 引 喜 。 除 非 出 现在 单 引 号 中 间 ， 否 则 双 引 号 必须 成 对 匹配 出 现 。 

当 字 符 串 位 于 双 引 号 之 间 时 , Perl 将 允许 解释 标量 型 变量 〈 以 $ 开头 ) 和 数组 型 变量 〈 以 @ 开头 )， 

即 字符 串 中 的 变量 名 将 由 相应 变量 值 替 换 。 不 过 双 引 号 之 间 的 字符 串 不 能 出 现 散 列 变量 〈 以 % 开头 )。 
如 果 字 符 串 中 含有 字符 串 型 实 量 (如 \t、\n)， 则 必须 带 有 反 和 斜 枉 ， 并 位 于 双 引 号 之 间 。 

在 双 引 号 之 间 也 可 出 现 单 引号 ， 艾 如 “Idon't carel”。 
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1. 为 标量 型 变量 $num 赋值 为 5。 

2. 字符 串 位 于 双 引 号 之 间 。 打 印 标量 型 变量 的 值 ， 并 解释 字符 串 实 量 nm。 
3. 当 以 反 斜 本 “开头 时 ， 美 元 符号 会 作为 实 量 打印 出 来 ， 即 忽略 变量 置换 。 
4. 当 出 现在 双 引 号 之 间 时 ， 解 释 特 殊 符号 \t 和 \n。 


单 引 号 。 如 果 字 符 串 出 现在 单 引 号 之 间 ， 则 直接 打印 其 实 量 内 容 即 可 《所 见 即 所 得 )。 
如 果 在 字符 串 中 需要 单 引 号 ， 则 可 以 将 其 戏 入 双 引 号 中 ， 或 者 放 在 反 斜 杠 后 面 。 如 果 需 要 把 双 





























乒 在 Barrg Rosenberg 的 KornShell Programming Tutorial 中 专门 有 一 章 的 名 字 就 叫 *The Quotes From Hell”。 
旨 Larry Wall 是 Perl 的 创始 人 之 一 ， 他 称 这 种 替换 途径 为 “语法 宝贝 ”。 
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引号 当 作 实 量 对 待 ， 也 可 将 其 颈 入 单 引 号 中 。 
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示例 5.3 
aeEScenoty 
# SIin9lIe G9uotes 
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攻 基 和 | 
1. 美元 符号 $ 将 解释 为 直接 量 。 在 双 引 号 中 , 美元 符号 也 可 解释 为 标量 型 变量 的 起 始 字符 。 为 了 
解释 反 斜 杠 ， 则 需要 把 mn 置 于 双 引 号 之 间 。 
2. 这 里 不 会 把 字符 串 型 直接 量 \t 解释 为 制 表 符 ， 而 是 以 实 量 形式 直接 输出 。 
3. 出 现在 单 引号 之 间 的 这 个 双 引号 将 被 如 实 输 出 《〈 即 以 实 量 形式 打印 )。 


反 引 号 。 位 于 反 引 号 之 间 的 UNIX/Windows 8 命令 将 由 shell 负责 执行 ， 并 将 其 输出 内 容 返回 
给 Perl 程序 。 这 些 输出 内 容 一 般 会 赋 给 某 个 变量 ， 或 者 直接 作为 print 国 数 的 输出 部 分 。 当 把 命令 
输出 内 容 赋予 变量 时 ， 其 上 下 文 语 境 必 须 是 标量 〈 即 赋予 单个 值 ) 日 。 为 了 支持 命令 置换 ， 用 户 不 
能 把 反 引 号 置 于 单 引 号 或 者 双 引 有 号 之 间 (CUNIX shell 程序 员 请 注意 ， 与 shell 程序 一 样 ， 不 能 把 反 
引号 放 在 双 引 号 之 间 )。 
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示例 5.4 


TESTNOE 汪 会 SWINE SS 
# Backdquotes and commanad substitution 





Reaueawaieesaocn Gaten 用 
受 TELE 生 QQaEE 芍 9EE 人 7 
司 $directory='Pwd' 井 inaows Users: "ca' 
人 NE 
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4 有 所 二 二 下 天 二 辣 全 本 放生 全 二 已 克 E 允 区 省 E 才 记 二 天 村 
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1. 本 行 的 date 命令 由 UNIX shell 执行 ,其 输出 内 容 将 返回 给 Perl 的 Print 国 数 。date 命令 的 输 
出 内 容 中 含有 换行 符 。 

2. 当 反 引号 位 于 单 引 号 或 者 双 引 号 之 间 时 ， 就 不 会 发 生命 令 置 换 。 

3. 把 UNIX pwd 命令 的 输出 内 容 〈 如 当前 工作 目录 ) 赋予 标量 型 变量 $dir。 对 于 Windows 用 
户 而 言 ， 相 同 功能 的 命令 则 是 “cd ”。 

4. 将 标量 $dir 的 值 输出 到 屏幕 上 。 








@” 如 果 使 用 其 他 的 操作 系统 如 DOS 或 Mac 08 9.1 的 话 ， 可 供 使 用 的 0S 命令 也 相应 不 同 。 
@ 昌 如果 将 命令 的 输出 内 容 赋予 数组 的 话 ， 输 出 的 第 一 行将 成 为 数组 的 第 一 个 元 素 ， 第 二 行 会 成 为 数组 的 第 二 
个 元 素 ， 依 此 类 推 。 
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Perl 的 替换 符号 。 Perl 提供 了 另 一 种 表示 引号 的 形式 一 一 即 q4、qq、qx 和 qw 结构 。 
d 代表 一 个 单 引号 。 

qd 代表 一 个 双 引 号 。 

dx 代表 一 个 反 引 号 。 

qdw 代表 引用 的 字 列 表 。( 详 见 “ 数 组 ”一 节 )。 


表 5-1 引号 替换 结构 





引用 结构 含义 
q/Hello/ “Hello” 
qq/Hello/ “Hello” 
qx/date/ “date” 
@1list=dqw/red yellow blue/; @list={f red” “yellow” blue”} 





其 中 , 被 引用 的 字符 串 位 于 正 斜 枉 〈/) 之 间 , 其 定 界 符 可 适用 于 所 有 4 种 q 结 构 。 定 界 符 可 以 
是 单个 字符 ， 也 可 是 成 对 字符 。 

>q/Hello/ 

q##Hello# 

qd{fHello} 

dq[Hellol 

qd(Hello) 


示例 5.5 
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1. 这 里 的 字符 串 位 于 单 引 号 之 间 。 这 样 就 允许 以 实 量 的 形式 输出 其 中 的 普通 引号 。 位 于 can\'t 
中 的 单 引号 由 反 和 斜 枉 引 用 ， 因 此 它 也 将 作为 实 量 进行 输出 。 如 果 没 有 反 斜 枉 的 话 ， 它 就 必 

须 与 第 一 个 单 引 号 进行 匹配 。 如 果 最 后 一 个 单 引 号 疫 有 响应 的 匹配 项 ， 程 序 就 会 告诉 用 户 出 

现 了 失控 的 引号 ， 或 者 查找 其 匹配 项 直到 文件 末尾 。 

qq 用 于 代表 双 引 号 。 正 斜 杠 则 负责 界定 字符 串 的 起 始 范围 。 

. 由 于 使 用 了 qq，$5.00 中 的 美元 符号 〈$) 将 解释 为 含有 空 值 的 标量 型 变量 。 因 此 本 行将 输 
出 .00〈 这 可 不 是 对 待 钱 的 好 办 法 )。 

4. 单个 qd 代表 单 引 号 。$5 将 作为 实 量 处 理 。 不 过 名 也 会 被 当 作 实 量 。 在 单 引 号 中 间 ， 是 不 解 
释 反 和 斜 杠 的 。 

.Mn 位 于 带 有 qd 结构 的 双 引 号 之 间 , 而 字符 串 Ineed $5.00 则 是 使 用 9 结构 的 单 引 号 引用 。 其 

中 第 三 个 站 使 用 老式 的 双 引 号 形式 。 

惊叹 号 〈! ) 是 一 个 替换 了 的 界定 符 ， 它 和 d 结构 一 起 使 用 ， 负 责 界定 字符 串 的 起 止 位 置 。 

7. 字符 串 The present working directory is 位 于 双 引 号 中 ，UNIX 命令 pwd 则 位 于 反 引 号 之 间 ， 
用 于 命令 置换 。 

. qq 结构 引用 了 Today is 字符 串 ; qx 结构 则 用 于 替换 反 引 号 ， 用 于 进行 命令 置换 。 

9. 花 括 号 是 一 个 替换 的 界定 符 , 它 《〈 而 不 是 斜 枉 ) 与 qx 结构 一 起 使 用 。 本 行将 打印 UNIX date 

命令 的 输出 内 容 。 


LU hi 








(LA 


CN 


Co 


5.2 标量 、 数 组 和 散 列 


前 文 介绍 了 Perl 变量 的 基本 概念 《〈 包 括 其 类 型 、 可 见 性 、 特 殊 字 符 等 )， 下 文 将 更 详细 地 对 它 
们 进行 介绍 。 在 学 习 了 本 节 内 容 后 ， 读 者 将 对 变量 的 引用 机 制 有 更 深入 的 了 解 ， 并 了 解 到 引号 是 如 
何 影响 Perl 程序 解释 过 程 的 。 








5.2.1 标量 型 变量 


标量 是 以 $ 开头 的 单个 数字 或 者 字符 串 。 在 引用 标量 或 给 标量 赋值 时 ， 必 须 为 其 加 上 8$ 前 缀 。 
如 果 读 者 已 经 熟悉 了 shell 编程 的 话 ， 一 定 会 对 赋值 时 也 使 用 美元 符号 感到 不 习惯 。 

赋值 。 在 赋值 时 ，Perl 会 把 等 号 右边 的 值 作为 单 值 进行 运 算 〈 即 其 上 下 文 语 境 是 标量 )。 即 便 
其 中 含有 很 多 字符 ， 系 统 还 是 会 把 加 了 引号 的 字符 串 当 作 标 量 来 处 理 。 





示例 5.6 

外 Smumber = 1507 
Sname = "JUJodqy Savage" 
Stoday = localtime(): 


受 

芒 
解释 : 

1. 为 标量 型 变量 $number 赋予 数字 值 150。 

2. 字符 串 Jody Savage 将 作为 单 值 字 符 串 赋值 给 标量 Sname。 

3. Perl 函数 localTime 的 输出 内 容 将 以 字符 串 形式 赋值 给 $today。 
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功 5 章 





花 括号 。 如 果 一 个 标量 位 于 花 括号 〈{ }) 之 间 的 话 , 其 后面 出 现 的 字符 串 将 不 会 妃 加 到 标量 后 面 
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炳 SVar="netn"; 

习 STRWOEENDE 
OUEoUE) 

习 DetwoOFK 

1 . 为 标量 $var 赋值 为 net。 


2. 变量 位 于 花 括 号 中 ， 以 表达 它 与 后 面 的 work 字符 串 的 





区 别 。 如 采 不 使 用 花 括 号 的 话 ， 本 行 


将 不 会 输出 任何 内 容 ， 因 为 程序 中 没有 定义 名 为 Svarwork 的 变量 。 


人 ES 


站 本 CS 


S$num 8 
S$SfEriend = 
Smoney 本 交 
Snow LocalLtime () : 
Smonth="Jan" 
STR 
GameSERETONOE 
Print "I need \$S$money.NAn"; # Protectin9 
Print ddq/S$Sftriend gave me \$Smoney.NXn/:， 
EneESCEOSEEITYiIE ESTSWNDY 
NSOGEESNONIEUSTEVNTO LI 


"John Smith" 


# JIocaltzime() 工 S 


OH OOOENOUNRHSOO RS 世 


ED 
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Our 画 oney 


# CurIy braces shielda 


# the var7apbple 
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En 
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工 DeeaQ 5S7125.75. 

DEADE 汪汪 5 5 

RE 本 me 是 S 丰 站 本 到 2 
ET 
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TESTE 本 SmTiICTD EL TU 


ER 


上 上 上 
过硬 到 时 = 


解释 : 

. 给 标量 $num 赋值 为 5。 

. 给 标量 $friend 赋予 字符 串 值 John Smith 。 

. 给 标量 $money 赋予 浮 点 数字 值 12$.75 。 

. 将 Perl 函数 localtime0 的 输出 内 容 赋予 标量 $now。 

. 将 标量 $month 赋予 字符 串 值 Jan。 

. 打印 标量 $sum 的 值 。 

. 打印 标量 $friend 的 值 。 

. 打印 位 于 引号 之 间 的 字符 串 。 其 中 的 反 斜 杠 使 得 第 
后 ， 将 Smoney 的 值 插入 到 双 引 号 中 ， 并 打印 它 的 值 。 


oo ~ 了 宁 愉 上 上 wwi 一 


一 个 美元 符号 〈$) 


# Concatenate 


以 实 量 形 式 打印 ， 然 


变 0O7 


hs 





9. 本 行 以 Perl 的 qq 结构 代替 了 双 引 号 。 其 中 被 引用 的 字符 串 位 于 正 斜 杠 之 间 。 这 里 还 插入 了 
$friend 的 值 ， 并 在 Smoney 的 值 之 前 加 上 了 $ 前 绥 。 
10. 打印 位 于 引号 之 间 的 字符 串 ， 其 中 插入 了 $now 变量 值 。 
11. 和 在 UNIX shell 中 一 样 ， 花 括号 会 让 变量 字符 免 受 后 面 跟随 的 其 他 字符 的 干扰。 本 行将 输 
出 January 。 
12. 读者 还 可 借助 点 号 〈.) 操作 符 把 两 个 不 同 的 字符 串 链接 到 一 起 〈 详 见 第 6 章 内 容 ), 这 项 
能 又 称 作 串 联 (concatenation ) 。 


defined 国 数 。 如 果 一 个 标量 既 不 是 有 效 的 字符 串 ， 又 不 是 有 效 的 数字 值 的 话 ， 就 称 它 是 未 定 
义 的 。defined 图 数 可 以 检查 变量 值 的 有 效 性 。 如 果 变 量 中 含有 值 ， 该 国 数 返回 值 为 1， 否 则 就 返 
null。 该 国 数 还 可 用 于 检查 数组 、 子 例 程 和 null 字符 串 的 有 效 性 。 


未 





可 
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示例 5.9 
Sname="Tommyn" 
Print "OK NXn" if defined $name : 





undef 国 数 。 该 国 数 用 于 为 已 经 定义 的 变量 解除 其 定义 。 它 能 够 释放 那些 分 配给 变量 的 内 存 空 
间 。 该 函数 将 返回 未 定义 的 值 ， 并 能 释放 与 数组 或 子 例 程 相关 联 的 内 存 空间 。 





示例 5.10 


undeft Sname: 


$_ 标 量 型 变量 。$_ 是 随处 可 见 的 一 个 字符 。 尽 管 它 在 Perl 中 也 很 有 用 ， 但 用 户 却 很 少 能 看 到 
它 。 在 执行 搜索 时 ， 它 可 以 用 作 黑 认 的 模式 空格 符 ， 并 负责 保有 当前 行 号 。 一 且 为 $_ 赋予 了 某 个 
数值 , 则 诸如 chomp 、split 和 print 之 类 的 图 数 就 会 把 新 的 $_ 值 当 作 输入 参数 。 读 者 将 在 后 面 学 到 
更 多 有 国 数 及 其 参数 的 知识 。 不 过 在 这 里 ， 读 者 可 以 先 看 看 如 下 这 段 代 码 ; 


AN\ 








ET 
玫 $_ = "Donald Duck": 
包 ETEEY JeanDe 本 2 Eee 
DonaIa DucK 


AN 


解释 : 
1. 本 行 向 $_ 标量 型 变量 中 赋予 字符 串 值 “Donald Duck”、 
2. print 畏 数 没 有 收 到 任何 待 打 印 的 内 容 ， 因 此 它 会 输出 $_ 的 值 ， 后 者 是 没有 其 他 字符 串 参 数 
情况 下 的 默认 输出 。 


5.2.2 ”数组 


如 果 用 户 需 要 保存 一 组 相似 的 数据 元 素 的 话 ， 那 么 使 用 数组 要 比 为 每 个 元 素 单独 创建 变量 来 得 
更 方便 。 用 户 可 以 借助 数组 名 把 单独 的 变量 名 与 数据 元 素 列 表 关 联 起 来 ， 然 后 通过 数组 名 与 下 标 引 
用 列表 中 的 每 一 个 元 素 。 

与 C 语言 不 同 , Perl 并 不 要 求 数组 元 素 具 有 相同 的 数据 类 型 。 数 组 元 素 可 以 是 数字 和 字符 串 的 
混合 体 。 在 Perl 中 ， 数 组 是 一 个 有 名 字 的 列表 ， 含 有 有 序 的 标量 型 变量 集合 。 数 组 名 必须 以 @ 开 
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头 。 数 组 名 的 后 面 是 位 于 方 括号 〈[]) 之 间 的 下 标 ， 它 们 都 是 非 负 整数 ， 从 0 开始 计数 。 
赋值 。 在 初始 化 数组 时 ， 用 户 可 以 把 所 有 元 素 放 在 括号 中 ， 并 以 喜 号 分 隔 它们 。 这 里 要 为 列表 
加 上 括号 ， 是 因为 和 逗号 运算 符 的 优先 级 低 于 赋值 运算 符 。 数 组 中 的 所 有 元 素 必 须 是 标量 型 变量 。 
Perl 5 引入 了 qw 结构 ， 它 也 能 用 于 创建 列表 《类似 于 qq、q 和 qx)。 列 表 中 各 项 内 容 将 作为 带 
有 单 引号 的 字符 串 来 处 理 。 











$Spal = "John"， # Scalar holas one valIue 
Qpals = ( "Uohn"， "Sam"， "Nicky"，"Uake" ); # Array holas a Jist of valIues 


@pals 


间 几 


标量 数组 








图 5-2 ”标量 和 数组 








示例 5.12 
下 Qmame=("Guy" "Tomn"，"Dan" 7， EC 天 
2 辣 晤 宇 S 王 人 人 人 中 于 
下 agesaqss 王 全 性 6D GE H 玉 
4 GEemss= (SEARESC IT 
本 Qempty=() ， 
6 S$Ssize=e@items'” 
可 GQmammals = Gqw/dqogs cats cows/:， 
8 Qfrzuit = Gw(apples peaczs Peaches) : 
解释 : 
1. 使 用 一 个 含有 4 个 字符 串 实 量 的 列表 对 数组 @name 进行 初始 化 。 
2. 为 数组 @list 赋值 ， 其 内 容 是 从 2 到 10 的 所 有 整数 《参见 示例 3.14)。 
3. 使 用 一 个 含有 6 个 数字 实 量 的 列表 对 数组 @grades 进行 初始 化 。 
4. 使 用 一 个 含有 3 个 标量 型 变量 的 列表 对 数组 @items 进行 初始 化 。 
5. 使 用 一 个 空 列表 对 @empty 数组 进行 初始 化 。 
6. 将 数组 @items 赋值 给 一 个 标量 型 变量 $size。 该 标量 的 值 将 是 数组 中 的 元 素 个 数 〈 在 本 例 


中 ， 其 值 等 手 3)。 
.qw( 引 用 字 ) 结构 后 面 跟随 选 定 的 定 界 符 。 列 表 中 每 个 字 都 作为 带 有 单 引 号 的 字 来 对 待 。 末 
尾 的 定 界 符 说 明 列 表 到 此 结束 。 本 例 亦 可 写作 : 


namnais 玫 王 滞 [ECSESEEAEOSOE OSI 


8. qw 结构 支持 任何 成 对 的 字符 如 0O、 屿 、<> 和 癌 作为 定 界 符 。 


< 


特殊 标量 和 数组 赋值 。 特 殊 标 量 9#arrayname 能 返回 数组 中 最 后 一 个 元 素 的 下 标 。 由 于 数组 下 
标 是 从 0 开始 的 ， 因 此 该 值 将 比 数组 长 度 小 1。$#arrayname 还 可 用 于 缩短 或 者 截取 数组 的 长 度 。 

$[ 变量 表示 当前 数组 的 初始 下 标 0。 用 户 可 以 改变 这 个 变量 ,从 而 使 得 下 标 从 1 而 不 是 0 开始 。 
但 是 ，Larry Wall 并 不 鼓励 这 样 做 。 





hs 
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示例 5.13 
山 eaqes 划 二 人 SOT SD 从 本 
ENE 旺 SEO SEE 全 ES 
乌 PEint "The number of the last index is S$#g9radesNn" 7 


司 S#d9rades=3; 
PEint "The array is truncated to 4 elements: gradesNn" 


4 Qgrades=() 
EDIEEETY EECSESORE SOSSANE 








ww 
天 Je 本 CR 网 庆 二 玫 3 
了 PE UPemcE Ene yaS Ce 
JE 
7TPe array 15 CompJeteJy tancateda: 


释 : 
1. 把 一 个 含有 5 个 数字 的 列表 赋予 @grades 数组 。 

2. $# 结构 能 够 获得 数组 最 后 一 个 元 素 的 下 标 《〈 即 索引 值 )。 
3. 将 数组 下 标 缩减 为 3。 

4. 本 行使 用 了 一 个 空 列表 ， 使 得 该 数组 被 完全 清空 为 空 列 表 。 


范围 运算 符 和 数组 赋值 。 当 用 在 数组 上 下 文 语 境 中 时 ， 运 算 符 … 又 称 为 范围 运算 符 ， 负 责 从 
左 到 右 逐 个 返回 一 组 值 。 








示例 5.14 
下 dmenweEs 三 (OO9E 
受 [SEARRSE 
3 ealpha=( 'R' .1421，al 2 ) 1; 
4 ES 2 忆 ) 
解释 : 


1. 把 从 0 到 20 的 数字 列表 赋予 数组 @digits 。 

2. 把 从 A 到 过 的 天 写字 母 列 表 赋 予 数组 @letter。 

3. 把 所 有 大 写字 母 和 小 写字 有 母 的 列表 赋予 数组 @alpha。 
4. 把 从 -5 到 20 的 数字 列表 赋予 数组 @n。 


访问 元 素 。 如 要 引用 数组 中 的 某 个 元 素 ， 用 户 必 须 把 每 个 元 素 都 看 成 是 标量 〈 即 以 美元 符号 
$ 作为 前 绥 )， 并 且 从 0 开始 计算 下 标 。 数 组 下 标 都 是 整数 。 例 如 , 在 数组 @names 中 ,第 一 个 元 素 
是 @names[0]， 下 面 一 个 是 @names[1]， 依 此 类 推 。 


NE 
SpalsJ10) Spaks1Jj Spakk12) Spals13) 








图 5-3 ”数组 元 素 
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示例 5.15 


(The Scipt) 


1 io 六 届 


也 Qnames=('John'，'Joe'，'UJake') : # names=dqmw/ophn vJoe Jake/ 
构 Pint Gnames，"N\n"i; # Prznts without the separator 
马 Print "Hi S$names[0] ，S$names[1]，and S$names[2]1!Nn" ; 
4 Snumber=Qnames: # The scalar is assignea the Dumper 
# of elements in the array 
5 PEint "There are S$Snumpber elements in the \eQnames array.N\n"i 
6 Pint "The last element of the array is $names[Snumber - 1].\n"; 
了 Print "The last element of the array is $names[S$#names] .\n"; 
# Remember， the array Inaex Starts at Zerol! 
8 Qfruit = qw(apPLes Pears Peaches PLums) : 
习 DERIE 和 HS 上 IEmenEESAEEEISRNGEEUOT 二 二 ELSE SEOIEILOI 了 
the second element is $Eruit[1] .\n"; 
下 ORG SESETOOE SEE 二 ECOEETE 本 VE 三 二 3HINTE 
(ESUE) 
到 JopnuvoeuUaKke 
3 FUopn oa ee 
与 Tere are 3 eJements ID the names array。 
6 Thpe Jast eJement of the array LS JUake. 
哆 The Jast eJement of the array Is JUake-. 
3 Thpe 万 FSL eJIement coF the Qtf7Fruzt array I5 appJes”the secona eJementLt 1I5 Pears. 
10 Sart2an at he ena or he arra7 Lans Dears 
释 : 


片 
几 
引 
4. 
习 
6 


8。 


10. 


向 数组 @names 赋予 三 个 字符 串 : John、Joe 和 Jake。 


. 将 整个 数组 打印 到 STDOUT 中 ， 忽 略 其 中 的 空格 。 
. 从 下 标 0 开始 打印 数组 的 每 个 元 素 。 


把 数组 @names 的 元 素 个 数值 赋予 标量 型 变量 Saumber。 


. 打印 数组 @names 中 的 元 素 个 数 。 
. 打印 数组 的 最 后 一 个 元 素 。 由 于 数组 下 标 是 从 0 开始 的 , 因此 只 要 把 数组 长 度 减 去 1 就 能 得 


到 数组 中 最 后 一 个 元 素 的 下 标 值 。 


. 打印 数组 的 最 后 一 个 元 素 。$#mnames 表示 数组 最 后 一 个 元 素 的 下 标 值 。 本 行使 用 该 变量 直接 


检索 数组 @names 中 的 最 后 一 个 元 素 。 

结构 可 用 于 创建 字数 组 ， 同 时 无 须 将 这 些 字 包 含 在 引号 中 或 用 喜 号 分 隔 。 这 里 的 定 界 符 
可 以 是 任意 匹配 的 字符 对 《〈 详 见 “ 替 换 引 号 ”一 节 )。 
打印 @fruit 数组 的 前 两 个 元 素 。 
当 使 用 负数 作为 下 标 时 ， 将 从 数组 未 端 选 择 数组 元 素 。 其 中 ， 最 后 元 素 fruit[-1]) 是 plums， 而 
倒数 第 三 个 元 素 ($fruit[--3]) 则 是 pears 。 请 注意 , 当 索 引 值 位 于 同一 组 括号 中 时 , 譬如 ($fruit 
[1=-3])， 则 表示 引用 列表 而 非 标量 。 这 也 是 为 什么 要 在 数组 名 前 面 带 有 @ 而 非 $ 符号 。 


数组 分 片 (Array Slices)。 当 把 某 个 数组 的 值 赋予 到 另 一 个 数组 中 时 ， 得 到 的 数组 称 之 为 数组 


分 搬 。 





如 果 位 于 赋值 运算 符 右 侧 的 数组 长 度 大 于 左边 的 数组 ，Perl 会 把 多 余 的 那 部 分 元 素 丢 弃 否则 ， 
则 将 剩余 的 元 素 赋值 为 未 定义 值 。 如 下 面 的 示例 所 示 ， 位 于 数组 片 中 的 索引 不 必 是 连续 编号 ， 只 需 
为 每 个 元 素 指定 赋值 运算 符 右 侧 的 相应 数组 元 素 即 可 。 














变 





示例 5.16 
(The Scipt) 


# Array SIices 


下 mamesS= ecCmi DC IS ET 和 世 号 

电 QPal=enames [1,2,3]; 上 # sJIice -- 6names/1..31) al1so 0. 开 . 

马 DEGREE 

4 ($SEriend[0] ，S$SEriend[1] ，$Eriend[2])=Gnames: # Array SIice 
5 AN 

ouEsuey) 

渴 DTICK Harry Pete 

号 天 GT 


1. 把 元 素 值 “Tom: 、“ Dick” 、 “Harry” 和 “Pete” 赋予 数组 @mames。 
2. 把 数组 @names 元 素 1、2 和 3 赋予 数组 @pal。 本 行 会 把 数组 @names 的 元 素 分 片 存储 到 


@pal 数组 中 。 


3. 通过 抽取 数组 @names 的 分 片 元 素 1、2、3， 创 建 数 组 @pal。 


示例 5.17 
加 EST 


# Array SIices 











业 Qcolors=('zed'，'green'，'YyelLlLlow'，'orange ') : 

忆 (ScirolRaScIIERSCIRUIR SCcISINEGCorors eee 

| RE 天 AN 

4 天 下 而 让 息 站 全 ETGSSSDS ee 要 OSIS 
Do separate elJements 9uoteda 

瑟 人 Prints tnpe entIzre array WwWItRn 
eJements separateaQ 

6 RE 咱 大 火炎 火炎 页 大 火炎 大 NI 

也 下 ed 

8 人 9reeDn 

9 人 Unpae 太 nea 

ORDEROEESCIESIETANT 人 ye 了 了 omw 

1 同人 Unpae 太 neda 

下 二 Oran9e 

和 过 15S 电 的 思 咱 大 大 大 火炎 大 大 大 炎炎 NI 

全 

ee) 

3 污 光 光 光 光 光 光 光 光 光 

4 FeaoreenyeJI oworan9e 

号 SECUREesn 古 ee5oe 

6 人 

及 工 eQ 

8 9PeEem 

加 

山居 汪 双 < 风 宫 允 

蕊 中 

12 Orange 

起 污 赤 光 光 光 光 光 光 光 光 

14 The size of the Q@c array II5 6. 





又 称 


. 将 元 素 “Tred” 、“green” 、“yellow” 和 “orange” 赋予 数组 @colors 。 
. 创建 数组 分 片 ， 它 由 四 个 标量 型 元 素 组 成 : $c[0]、$c[1] 、$c[3] 和 $e[5]。 请 注意 : 这 个 数 


组 分 片 中 的 下 标 编号 不 是 连续 的 。 


. 为 清楚 起 见 ， 这 里 打印 一 行星 号 。 


在 打印 时 不 分 开 各 个 元 素 。 
当 数 组 位 于 双 引 号 之 间 时 ， 会 保留 元 素 之 间 的 空白 字符 。 





: 打印 另 一 行星 号 。 

. 打印 数组 分 乒 的 第 1 个 元 素 red。 

. 打印 数组 分 乒 的 第 2 个 元 素 green。 

. 数组 分 片 的 第 3 个 元 素 值 是 未 定义 的 。 由 于 没有 给 它 赋 值 ， 所 以 它 的 内 容 是 空 值 。 


10. 打印 数组 分 片 的 第 4 个 元 素 yellow。 

11. 数组 分 片 的 第 5 个 元 素 未 定义 。 

12. 打印 数组 分 片 的 第 6 个 元 素 orange。 

13. 打印 另 一 行星 号 。 

14. 即便 @c 数组 中 的 某 些 元 素 是 未 定义 的 ， 但 通过 该 数组 的 容量 ， 仍 旧 能 说 明 这 些 未 定义 元 


多 维 数组 : 列表 的 列表 。 多 维 数 组 有 时 也 称 作 是 表 或 者 矩阵 。 它 由 行 和 列 构成 ， 并 通过 多 重 下 
标 子 以 表示 。 在 一 个 二 维 数组 中 ， 第 一 个 下 标 代表 行 号 ， 第 二 个 下 标 则 表示 列 号 。 











在 Perl 中 ,二 位 数组 的 每 一 行 都 包含 在 方 插 号 之 间 。 每 一 行 都 是 一 个 无 名 列表 Cunnamed list )， 
匿名 数组 Canonymous array), 由 其 本 身 的 元 素 组 成 。 箭 头 运算 符 (arrow) 又 称 为 中 组 (infix ) 








运算 符 ， 用 于 获取 数组 中 的 单个 元 素 。 相 邻 的 方 括号 之 间 等 效 于 隐 含 了 一 个 箭头 运算 符 。( 第 13 章 
将 详细 讨论 匿名 变量 。) 


示例 5.18 


Eee 


于 








1 


Qmatrix=( [3 ，4，10 ]， # 瑟 ach Frow Is an unnamea 11s 
7 和 2 
[到 OSI7 
IEG 5 29] 


全 


ROOTEESmaEacchOollnO]ENEY 
1 
EGROTETITeCmmnaEOiEESma 上 上 zwIOIERRNIY 
直人 站 


EC 
将 轴 站 攻 考 用 计 
Era SmaEzccnslrsxcl 几 ai 
】} 
EN 
】 


OOuEouey) 


hk 


067 





及 ARRAY(OXDPDFE838) ARRAY(OXC7768) ARRA7Y(OXC77a4) ARRATY(OXCc77e0) 
马 ROOT OA 
4 RCR OO S 攻 二 
吕 2 
马 有 72 
0 县 2 是 攻 
车 汝 弓 
解释 : 


1. 把 四 个 无 名 或 匿名 数组 赋 给 数组 @matrix， 其 中 每 个 匿名 数组 中 含有 3 个 元 素 值 。 

2. 打印 4 个 匿名 数组 的 地 址 。 如 要 访问 芽 名 数组 中 的 单个 元 素 ， 则 必须 使 用 其 双重 下 标 ， 或 者 
使 用 箭头 运算 符 。 

3. 打印 数组 @matrix 中 第 一 个 芽 名 数组 的 第 一 个 元 素 值 。-> 符号 又 称 作 箭 头 或 者 中 组 运算 符 ， 
用 于 分 隔 对 数组 或 者 散 列 的 引用 。@matrix[0][0] 或 $matrix[0]->[0] 表示 第 一 行 的 第 一 个 元 
素 ， 甚 下 标 是 从 0 开始 的 。 

4. 打印 @matrix 第 2 行 的 第 1 个 元 素 。 其 中 ,， $matrix[1]->[0] 是 @matrix[1][0] 的 另 一 种 表达 方式 。 

5. 外 部 for 循环 负责 从 第 0 行 开 始 遍 历 每 一 行 。 在 for 循环 体 第 一 次 执行 完毕 后 ， 进 入 第 二 个 


for 循环 。 
6. 内 部 for 循环 的 速度 要 比 外 部 循环 快 。 它 负责 打印 指定 行 的 每 一 个 元 素 值 ， 然 后 将 控制 权 返 
回 给 外 部 循环 。 


7. 打印 矩阵 中 的 每 个 元 素 。 其 中 第 一 个 下 标 代表 行 数 ， 而 第 二 个 下 标 则 代表 列 号 。 
5.2.3 散 列 


关联 数组 〈associative array) 又 称 作 散 列 。 它 是 由 成 对 的 标量 〈 和 譬如 字符 串 、 数 字 或 布尔 量 ) 
所 构成 的 。 其 中 第 一 组 标量 必须 与 第 二 组 标量 相关 联 。 在 字符 串 对 中 , 第 一 个 字符 串 称 为 键 (key )， 
第 二 个 字符 串 则 称 为 值 (value)。 请 留意 ， 数 组 是 有 序 的 列表 ， 其 下 标 是 从 0 开始 顺序 排列 的 ， 而 
散 列 表 则 是 无 序 的 ， 其 字符 串 下 标 是 随机 分 布 的 。( 因 此 请 不 要 指望 在 打印 散 列 表 时 能 按照 当初 输 
入 的 顺序 得 到 输出 。) 

散 列 是 一 组 无 序 的 键 / 值 对 (key/value pair)。 它 类 似 于 一 张 数据 表 , 其 中 左 侧 是 键 , 右 侧 则 是 
与 这 些 键 相 关联 的 值 。 散 列 的 名 字 必 须 以 % 开头 。 






































对 pet = ( "Name" => "Sneaky"y， 
"Typen => "Catn， 
"Owner" => nmCarol'y 


"Color" => "Yellow"， 





键 值 
“Name” “Sneaky” 
“Type?” CC 
“Owner” “Carol” 
Colon2 “yellow” 


散 列表 
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赋值 。 在 引用 元 素 前 ， 必 须 首 先 定义 散 列 。 由 于 散 列 是 由 键 / 值 对 组 成 的 ， 通 过 其 第 一 个 字符 
串 予 以 索引 ， 因 此 一 旦 键 值 对 中 的 元 素 设 有 出 现在 数组 定义 里 面 ， 就 会 对 键 及 其 相应 值 造成 影响 。 
在 为 键 和 值 赋值 时 ， 请 确保 该 键 和 对 应 的 值 是 关联 的 。 在 索引 散 列 时 ， 应 当 使 用 花 括号 ， 而 不 是 方 
括号 。 














示例 5.19 


外 sseascns= (SiD7 三 > SDDSY 
SU 三 > 人 SmRne 荆 5 
mREnm 一 > 和 加 导 克 
mWnm 一 > EU 
) 
2 as 人 INC 三 三 MSOSWT 
"Tue" => "Tuesday"yv 


"Wed" => unadef， 

号 
瑟 S$days{f{f"Nwed"}j="Wednesaday": 
4 ER 


解释 : 
1. 向 散 列 %seasons 赋予 键 和 值 。 其 中 每 个 键 与 值 都 通过 连 字 运 算 符 => 隔 开 。 字 符 串 Sp 是 一 
个 键 ， 其 相应 的 值 则 是 Spring; 字符 串 Su 是 另 一 个 键 ， 其 相应 值 则 是 Summer， 等 等 。 如 果 
是 单个 字 的 话 ， 用 户 无 需 给 键 加 引号 。 
2. 向 散 列 %days 赋予 键 和 值 。 其 中 向 第 三 个 键 Wed 赋值 ndef。undef 函数 等 效 于 空 值 字 符 串 。 
3. 散 列 内 的 单个 元 素 是 标量 型 的 。 本 行将 向 Wed 键 赋 字符 襄 值 Wednesday。 其 下 标 包含 于 花 


括号 中 。 
4. 向 键 5 赋 字 符 串 值 Friday。 请 注意 ， 键 是 没有 连续 编号 的 ， 而 键 / 值 对 则 可 通过 序号 和 /或 
字符 串 构 成 。 


访问 元 素 。 在 访问 散 列 中 的 值 时 ， 其 下 标 由 位 于 花 括 号 中 的 键 构成 。Perl 提供 了 一 组 国 数 ， 铺 
够 列 出 散 列 的 键 、 值 以 及 每 个 元 素 〈 详 见 “ 数 组 函数 ”一 节 )。 
由 于 使 用 了 内 部 散 列 技术 来 存储 键 ， 因 此 在 打印 散 列 内 容 时 Perl 不 保证 其 顺序 性 。 





CC 





示例 5.20 
(The Script) 


# assi9nzin9 Keys ana values to a hash 
了 gdePartment = ( 


7 = 三 > "EmogineezEing7y 
人 
ES => "Science"y， 
CS" = 三 > Conmncuter Scenece" 
本 

二 志 


$dePartment = $department{f'M'}:; # Either sin9le or aoupble Gd9uotes 
# ok For the Keys 

$Sschool = $dqepartment{'Ed'l: 

Print "I work in the S$Sqdqepartment sectionNxn" : 

GroundsaanaenesSscnmocn assetneTe EECUERNO 

Print daqdq/I'm current1ly enrolledq in a S$dePartment{f'CS'} course.NXn/:; 

Pint daqdq/ 人 The daepartment hash looks 1Like this:NXn/; 


\ 避 co ~ OO 





册 


( 
6 
昌 
8 
名 
业 


中 


SEENIENELOOUR HIDEUSCIOEOUULDSOODOLIOULEEUEEZEBSCEEC 
# oraer aue to internal Phasphing9 


Gu 


0 


解释 ; 


] 
之 
引 
4 
马 
0 
多 
8 
钨 
] 


于 


工 WOozK Im thphe Math Section 

Runas Im tpe aucatzion Qepartment are DeInog CUt， 

天 C 到 玉 eV7EEDEOULEOC ED LSRComEEemscnencecc Se 

The aepartment hasnh JooKks JIKe this: 

SScIiencecsScomputer SclencepamaucatIionMNatnpnoEnoIneerino9 


散 列 的 名 字 是 %department。 赋 了 予 它 键 和 值 。 
一 个 键 是 字符 串 Eng， 和 它 关 联 的 值 则 是 Engineering。 

者 尾 的 括号 和 分 吕 负 责 结束 赋值 操作 。 

把 值 Math 赋予 标量 $ department， 并 将 它 和 键 M 相关 联 。 
把 值 Education 赋予 标量 $ schoo1l， 并 将 它 和 键 Ed 相关 联 。 
打印 位 于 引号 内 的 字符 串 ， 并 插入 标量 $ departmen 的 值 。 
打印 位 于 引号 内 的 字符 串 ， 并 插入 标量 $ school 的 值 。 
打印 位 于 引号 内 的 字符 串 以 及 与 键 CS 相关 联 的 值 。 

打印 位 于 引号 内 的 字符 串 。 





0. 将 键 和 值 放 在 一 起 打印 整个 散 列 表 ， 发 现 其 打印 顺序 不 同 于 事先 的 预期 。 


散 列 分 片 Chash slices)。 所 谓 散 列 分 请， 是 一 组 散 列 键 的 列表 ， 并 且 这 些 键 的 关联 值 是 另 一 
组 键 的 列表 。 该 列表 由 多 个 散 列 名 组 成 ， 并 以 @ 符号 开头 。 散 列 键 的 列表 则 位 于 花 括 号 中 。 


示例 5.21 


aeSC on 


# Hash sI1ices 

officer= ("NAME"=> "Tom Savage"， 
网 故 三 一人 二 过 过 全 二 得 汪 全 汪 
EGGE 三 三 税 区 5 
到 


anto=ogm(tMarcne eaotaanao0000) 

Qofficer{'BRRANCH'， 'TITILE' ，'SRALRARY' }=Qinfo: 

# This Is a hash s1ice 

QslLliceinfo=Qofficer{ 'NRAME' ，'BRRANCH ' ，'TITIBE' 1}:， 

1 

Print "The new values from the hash slice are: QsliceinfoN\nNn"; 

TGSE 汪 和 RioOwaliceRs 基 辣 Wes 量 让 

EReacehEESkey 量 NAMESSNDOT 和 RERRANCHICOUIEOSATARN 坟 刘 | 
PEintf "Key: $%$-10sValue: $-15sNn"，$key，$officez{Skeyl:; 

】} 


GEGUE) 


号 


Te aew7raues om Enc nasnsacee ae cmsaraoeMarneuCEaDEssn 


JI EEC 是 
eaNAVSVSUERS os7sge 
Re 
和 





大人 证 
Z0 钊 了 齐 
Key: BRANCT VaIue: Marine 
Ke DOORVsAe CDEsEn 
Key:” 5a7raR7 VaJue: 20000 
解释 : 


1. 赋予 散 列 %officer 相应 的 键 和 值 。 


2. 把 三 个 值 赋 予 数 组 @info 。 


3. 这 是 一 个 散 列 分 片 的 实例 。 本 行 把 散 列 officer 对 应 的 键 BRANCH、TITLE、SALARY 赋值 
为 一 个 数组 , 该 数组 含有 Marine 、Captain 和 50000 这 三 个 元 素 。 散 列 的 名 字 必 须 以 @ 开头 ， 
因为 它 是 一 组 键 的 列表 ， 并 能 接受 另 一 组 值 列表 @info 的 相应 值 。 

4. 在 赋值 时 ,本 行 通过 散 列 分 片 创 建 了 一 个 名 叫 @sliceinfo 的 数组 。 该 数组 由 关联 到 键 BRANCHS、 
TITLE 和 SALARY 的 散 列 值 组 成 。 

5. 打印 所 创建 的 散 列 分 片 的 值 。 

6. 借助 foreach 循环 遍历 键 列表 。 

7. 打印 键 及 其 相应 值 的 内 容 。 分 片 在 第 三 行将 创建 新 的 键 / 值 对 。 





5.2.4 复杂 数据 结构 


如 果 把 数组 和 散 列 结合 起 来 使 用 ， 用 户 便 能 得 到 一 些 更 为 复杂 的 数据 结构 ， 璧 如 散 列 数组 、 内 
仍 散 列 的 散 列 表 、 含 有 数组 的 数组 ， 等 等 。 为 了 创建 这 些 数据 结构 ， 读 者 必须 首先 了 解 Perl 指针 的 
工作 原理 。 本 节 将 通过 几 个 示例 介绍 这 方面 的 部 分 知识 。 有 关 如 何 创建 复杂 数据 类 型 的 详细 内 容 将 





在 第 13 章 详细 介绍 。 





散 列 的 散 列 。 散 列 中 可 以 含有 其 他 的 散 列 。 这 就 和 在 记录 中 肯 套 记录 的 情况 一 样 。 被 散 套 的 散 
列 没 有 名 字 ， 即 为 匿名 散 列 ， 可 通过 箭头 运算 符 予 以 引用 。 在 有 名 字 的 散 列 中 ， 每 个 键 对 应 的 值 本 





身 也 是 一 个 散 列 。 


匿名 散 列 则 由 其 本 身 的 键 / 值 对 组 成 。 


示例 5.22 


(The Scipt) 
# Nestea hashes 


Valuess 
keys Key Se Key aue 

站 gstudents=( "Mathy" => { "Joe" => 100， mgoamnc 一 > 下 25 二 

"Science" => { "BilLl1Ll" => 85， "Dan" => 76 } 

) ; 

之 人 
二 Print qq/$students{Math}->{fJIoanl.Nn/; 
4 Eees 有 SSEREILNLS DOES 
可 Print qq/$students{Science}->{fBil1L}.N\n/: 
CeEE 
电 OPn tpe matnp test Joan 9ot 95. 
号 OnEepEEScece 研 SEOURNUESG DO 
性 
] 


解释 : 


散 列 %student 由 两 个 键 组 成 : Math 和 Science。 与 这 些 键 相 关联 的 值 则 位 于 花 括 号 中 ， 并 


含有 肯 套 的 键 / 值 对 。Math 键 的 相应 值 中 含有 两 个 能 套 的 键 : Joe 和 Joan， 其 值 分 别 是 100 
与 95。Science 键 的 相应 值 中 则 含有 另外 两 个 伦 套 的 键 : Bill 和 Dan， 其 值 分 别 是 85 和 76。 





人 
箭头 运算 符 ->〈 或 中 绥 运 算 符 ) 用 于 访问 散 列 %students 中 匿名 散 列 内 的 值 。 


示例 5.23 


人 Eeety 
# Anonymous arrays as Keys in a hasph 
也 ggrades=("Mathy" => 划 [90 LOORR 94 DT]EE 


Semence => 汪 [IESZIRARRESIGR] 让 
Rolliush 三 > [WIIG5SARIORSELO9O9RETOONRE 
六 
及 PEint %5grades，"\n"; 
电 Pint "The third math grade lis: $grades{Math}->[2]\n" 7 
Print "AL1 of the science graqdes are: Q{S$grades{Science}}\n"y; 


GETED) 

到 n9JIiSsphaAaRRAY(OX8a65128)ScienceARRAT7(OX86a650DPD0)MatphAaRRA7(OX8a6F7T34) 
于 矶 全 丰 A 让 三 马帮 站 3 

4 有 AIJJI ofF the science 9raaqes are: 77 87 86 


解释 : 
1. 赋予 散 列 %grades 相应 的 键 和 值 。 其 中 的 值 是 匿名 的 数字 列表 。 Perl 知道 这 是 匿名 列表 ， 因 
为 它们 的 值 都 位 于 方 括号 中 。 这 些 匿 名 数组 存储 于 内 存 中 ， 用 户 可 通过 箭头 标记 访问 这 些 内 
存单 元 。 
2. 本 行将 每 个 键 的 相应 值 打 印 为 十 六 进 制 的 地 址 ， 并 以 保存 在 该 位 置 的 类 型 ARRAY 开头 。 
3. 通过 把 箭头 运算 符 放 在 散 列 键 之 后 ,本 行 检索 了 第 一 个 列表 中 的 第 3 个 元 素 。 由 于 列表 下 标 
是 从 0 开始， 因此 $[Math]->[2] 指向 数组 的 第 3 个 元 素 。 
4. 如 需 访问 Science 程序 的 整个 列表 ， 用 户 应 当 把 键 / 值 对 置 于 花 括 号 中 ， 并 以 @ 符号 为 前 绥 字 符 。 


散 列 数组 。 数 组 可 以 含有 航 套 的 散 列 ， 正 如 在 数组 中 上 租 套 记 录 一 样 。 其 中 ， 数 组 的 每 个 元 素 都 
是 匿名 的 散 列 表 ， 有 具有 一 组 键 以 及 相应 的 值 。 


示例 5.24 


ESeeniety 
# AD array of hashes 
下 Qstores=( { "Boss'" =>"Ari Goldberg" ， 
"EmPloyees" => 24， 
"Registers" => 10， 
"Sales" => 15000.00， 


网 { "Boss" =>"Ben Chien'" ， 
"EmPloyees" => 12， 
"Registers'" => 5， 
"Sales" => 3500.00， 
] 
儿 字 
司 ETADeannosr oheemsnes nene acay 
4 SEEGies 本 7 # The Pumpber of the Jast subscript + 了 


本 六 和 站 世相 作证 玉 和 村 
6 1 # access an array elJement 
站 


72 条 了 章 





ES 
OSI 
疝 二 1 记 EU 和 AN 


OUWEoE) 
加 Thpe Dumper of eJements In the array: 2 
6 有 FUGoG5s9 


了 


1. 数组 @stores 含有 两 个 散 列 ， 一 个 是 Ari Goldberg 的 商店 ， 另 一 个 则 是 Ben Chien 的 商店 。 
该 数组 的 每 个 元 素 值 都 是 散 列 。 

2. 这 是 @stores 数组 的 第 二 个 元 素 ， 它 是 一 个 散 列 。 

3. $#stores 能 够 歼 得 @stores 数组 中 最 后 一 个 下 标的 数值 。 由 于 下 标 是 从 0 开始 的 ， 因 此 把 它 
加 上 1 即 可 得 到 数组 中 的 元 素 总 数 ， 这 里 是 2。 

4. 若 要 访问 数组 中 某 个 元 素 的 值 ， 首 先 需要 在 散 列 中 规定 下 标 数字 ， 然 后 规定 键 。 这 里 不 要 求 
必须 使 用 箭头 运算 符 ， 但 是 使 用 的 话 能 让 程序 可 读 性 更 好 。 


5.3 从 STDIN 读 取 输入 


请 读者 回忆 一 下 ， 文 件 句柄 STDIN、STDOUT 和 STDERR 分 别 是 三 个 预定 义 流 stdin、stdonut 
和 stderr 的 名 称 。 在 默认 情况 下 , 这 三 个 文件 句柄 都 与 终端 屏幕 相连 。 在 打印 输出 到 屏幕 时 , 可 使 用 
STDOUT; 打印 出 错 信 息 时 ， 使 用 STDERR;， 而 在 将 用 户 输入 内 容 赋 予 变量 时 ， 则 可 使 用 STDIN 。 

如 果 使 用 Perl 的 输入 运算 符 <> 包围 STDIN 文件 句柄 ， 则 程序 会 从 终端 键盘 上 读 取 标 准 输入 ， 
并 保存 到 某 个 变量 里 。 与 shell 和 C 读 取 输 入 的 操作 不 同 , Perl 在 从 标准 输入 读 取 各 行内 容 时 会 保留 
行 尾 的 换行 符 。 如 果 程 序 不 需要 换行 ， 则 必须 显 式 地 删除 或 截 除 (chomp ) 掉 换 行 符 〈 详 见 “chop 
与 chomp 国 数 ” 一 节 )。 






































5.3.1 把 输入 内 容 赋 值 给 标量 型 变量 


当 从 文件 句柄 STDIN 读 取 输 入 内 容 时 ， 倘 若 上 下 文 语 境 是 标量 型 ， 程 序 将 每 次 读 取 输 入 的 一 
行 〈 包 括 换行 符 )， 并 将 其 内 容 作为 单个 字符 串 赋 予 标量 型 变量 。 


示例 5.25 
人 ssecenety 


# Gettin9 a Jine of Input Erom the Keyboara.， 
和 BE ORDER 








/ 呈 





Sname = <STDIN>: 

RISESIE TEST 
$Paname=<>: 

Pint "Hello respected one，S$paname" 


CEOONINO 


OUWE 

外 万 二 ES ODSme2ssez 

习 What 5 your father"s mame2 NIcCcK 
号 FeJJo respectea one，NicK 


解释 : 


1. 把 字符 串 What is your name? 发 送 给 STDOUT 文件 句柄 ， 该 句柄 默认 指向 终端 屏幕 。 


2. 位 于 输入 运算 符 <>〔〈 又 称 方块 运算 符 ) 中 的 STDIN 读 取 一 行 输入 ， 并 把 这 一 行内 容 及 其 末 
尾 的 换行 符 赋 值 给 变量 Sname。 在 把 输入 内 容 赋 予 标量 型 变量 时 , 程序 会 一 直 读 取 输 入 字符 


直到 用 户 按 下 Enter 键 。 
3. 把 字符 串 打 印 到 STDOUT 文件 句柄 。 


4. 如 果 输 入 运算 符 是 空 的 ， 则 从 STDIN 读 取 下 一 行 输入 内 容 ， 其 行为 与 上 述 第 2 步 相 同 ， 只 


不 过 这 次 是 将 输入 值 赋予 Spaname。 


5.3.2 chop 与 chomp 函数 








chop 函数 负责 删除 标量 型 变量 的 最 后 一 个 字符 或 数组 中 每 个 元 素 的 最 后 一 个 字符 , 并 返回 修改 
后 的 值 。chop 一 般 用 于 删除 程序 接收 到 的 输入 行 末 尾 的 换行 符 ， 这 些 输入 行 可 以 来 自 STDIN、 文 

















件 或 者 命令 置换 结果 。 对 于 Perl 初学 者 来 讲 ， 位 于 行 末 的 换行 符 确实 很 让 人 头疼 。 





Perl 5 中 引入 了 chomp 函数 ， 负 责 删除 标量 型 变量 中 的 最 后 一 个 字符 ， 或 者 数组 中 每 个 字 的 最 
后 一 个 字符 ， 并 保证 只 有 当 该 行 末 字符 是 换行 符 《〈 或 者 更 精确 地 说 ， 是 代表 输入 行 分 隔 符 的 字符 ， 
该 字符 初始 值 是 换行 符 , 存储 于 $/ 变量 中 ) 时 才 进行 删除 操作 。 它 会 返回 删除 后 的 字符 数目 。 使 用 





chomp 畏 数 来 代替 chop ， 就 能 有 效 避 免 删 除 换行 符 之 外 的 其 他 有 用 字符 。 


示例 5.26 


人 ee 


# Gettin9 rzia of the traliJin9 newIine。. Use chomp insteaa of cpop. 


工 EEC HE EEGNeERESDOR ar 二 ESmER 着 
又 Sm 二 全 下 DIM 
加 SSmSETIE 和 5 亲生 二 IE 性 二 和 NU 
4 choP ($Sname) ; # Removres the Jast character no matter what It Is. 
与 ESNSTIEETE 和 SEE 本 ER 
6 choP ($Sname) ; 
凡 EPERSSTE Eee EEC ET 
8 SEE 
晶 ChompP ($age=<STDIN>) ; # Removes the Jast character 工大 
# IL Is the newIine， 
10 chomP ($age) : # Zhe Jast character Is not zemovea 


# unIess aa newI1ine， 
TESTEAICOURISCOEESSS OU 


OUEoUE) 
也 FeJI1o there，anQ What 25 your Dame2 Uoe Sm 
引 JUoe Smztpn 





TEARESES 是 ETmER 
号 Uoee Smithnp sa VYery hogp cyass mamee 


也 Joe Sm has been choppeaQ a JIiLLJe too mucn 


Mpat 工 s5 7YoUur age2 25 
2 


1. 把 引用 字符 串 打印 到 屏幕 ， 默 认 就 是 STDOUT 句柄 。 

2. 把 用 户 输 入 的 单行 文本 内 容 赋予 标量 型 变量 。<> 运算 符 用 于 读 取 输 入 。 在 这 里 , 它 是 从 STDIN 
文件 句柄 “〈 即 终端 键盘 ) 中 读 取 的 。 在 赋予 $name 的 文本 内 容 末 尾 存在 一 个 换行 符 。 

.打印 Sname 的 值 。 请 和 注意， 换行 符 断 开 了 用 户 输入 中 Joe Smith 之 后 的 内 容 。 

. chop 函数 负责 删除 赋予 Sname 的 字符 串 的 最 后 一 个 字符 ， 并 返回 删 去 的 字符 。 

在 执行 chop 函数 后 再 次 打印 字符 串 内 容 。 其 最 后 一 个 字符 〈 在 这 里 即 为 换行 符 ) 已 经 删除 。 

. 本 次 chop 操作 将 删除 Joe Smith 的 最 后 一 个 字符 ， 即 Smith 中 的 h。 

. 将 引用 的 字符 串 打 印 到 STDOUT 文件 句柄 中 ， 可 见 已 经 删除 了 最 后 一 个 字符 。 

. 本 行 代码 首先 把 用 户 输入 赋值 给 变量 $age。 然 后 删除 未 尾 的 换行 符 ， 也 就 是 保存 在 特殊 变量 
$/ 中 的 字符 , 其 默认 值 就 是 换行 符 。 最 后 返回 删 去 的 字符 数 。 由 于 赋值 运算 符 〈=) 的 优先 级 
较 低 ， 所 以 本 行 通 过 括号 保证 在 chomp 图 数 删除 之 前 予以 赋值 。 

9. 第 二 个 chomnp 国 数 将 不 起 作用 。 本 行 代 码 将 仅仅 删除 未 尾 的 换行 符 。 这 样 做 要 比 使 用 chop 

区 砚 站 区 全 有 
10. 打印 chomp 后 的 变量 字符 串 。 





oo ~ 人 了 内 上 








5.3.3 read 函数 








read 函数 8 可 以 从 指定 的 文件 句柄 中 将 指定 数目 的 字 节 读 入 到 变量 里 。 如 果 是 从 标准 输入 中 读 
取 的 话 ， 相 应 的 文件 句柄 就 是 STDIN 。read 函数 将 返回 读 到 的 字 节 数目 。 





格式 : 


Dose 本 CEeS 汪 人 二 让 证 天下 有 OGAONEmaDS SEES 


示例 5.27 


oa 
# Reaaing9 Input In a reGuestea numnpber of Dytes 
于 ES 
aiEEE 
ETESETEEEROLL 
殉 Snumber=read(STDIN，S$favorite，10) : 
号 ESEVRSORESESCTOIEENY 


4 ENEE mmose SOEEEESQEESSSnUmoerNne 
Key 
站 Descripe 7ouar farorite fooa im 0 Dytes or Jess. 


EC 





@ read 国 数 类 似 于 C 语言 里 的 fread 国 数 。 


和 


hs 





SS 和 

appJe pie ana ice crea 三 < 全 呈 和 9 上 
习 Yo Just ypea: appJe Pie 
4 Te Dumpber of DPytes FreaQ was 10. 


解释 ; 
1. 本 行 首 先 要 求 用 户 提供 输入 。 如 果 输 入 的 字符 数 小 于 10 个 ， 则 应 按 下 <Ctrl>-d 退出 。 
2. read 函数 带 有 多 个 参数 第 一 个 参数 是 STDIN, 表示 输入 源 第 二 个 参数 是 标量 型 变量 Sfavorite， 
用 于 保存 输入 内 容 ， 第 三 个 参数 则 是 要 读 取 的 字符 数 〈 按 字 节 算 )。 
3. 打印 读 入 的 前 10 个 字符 ， 并 售 弃 其 余 的 字符 。 
4. 实际 读 取 的 字符 数 〈 按 字 节 算 ) 将 存储 在 Snumbper 中 ， 并 打印 出 来 。 


5.3.4 getc 函数 


getc 函数 能 从 键盘 或 者 文件 中 获得 单个 字符 。 如 果 磁 到 EOF，gete 函数 会 返回 空 字符 串 。 





格式 : 
getc (EILEHANDLIE) 
GetC 下 IIELEHANDLE 
getc 


示例 5.28 
meEEScreneoy 
# Gettin9 onJy one character of InPput 


mr 


SNWE 


AN\ 


站 $answer=getc: # Gets one character From StaiDn 
到 Srestofit=<>， # wpat remains in the InPut PuffFer Is 
# assigonea to Sresto 帮 上 
马 EPEEISSaTSWEENDULL 
4 ep NO SENsEVeIS So VE 
SrestofitNnn7 
OUWEoUEy) 
灿 有 TSTer ZOLY7eSSE SeDODPRE NTER 
3 了 
4 Thpe characters Jeft In the Input Purfer were: es5s1IrreeDpop 


齐 


1. getc 国 数 从 输入 缓冲 区 中 只 读 入 一 个 字符 ， 并 存储 到 标量 型 变量 $answer 中 。 

2. 将 输入 缓冲 区 中 剩余 的 字符 存储 到 $restofit 中 , 然后 清空 缓冲 区 。 如 果 后 面 的 程序 需要 读 取 
输入 ， 则 不 必 再 去 从 缓冲 区 中 获取 那些 剩 下 的 字符 。 

3. 打印 由 getc 函数 读 入 的 字符 串 。 

4. 打印 存储 在 $restofit 变量 中 的 字符 。 





5.3.5 “将 输入 内 容 赋 予 数 组 


当 从 文件 句柄 STDIN 读 取 输 入 内 容 时 ， 如 果 基 上 下 文 语 境 是 数组 型 的 ， 则 读 取 到 的 每 一 行 
内 容 都 将 带 着 换行 符 作 为 独立 的 数组 项 来 对 待 。 用 户 可 连续 读 取 输 入 ， 直 到 磁 见 表示 文件 结束 符 
(EOF) 的 <Ctrl>-d (CUNIX 中 ) 或 <Ctrl>-z (Windows 中 )。 一 般 最 好 不 要 直接 把 输入 内 容 赋 给 
数组 ， 因 为 这 样 做 可 能 会 占据 大 量 内 存 ， 或 者 会 碰 到 用 户 忘 记 按 下 <Ctrl>-d 或 <Ctrl>-z 来 终止 输 
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入 的 情况 。 


示例 5.29 


ES 
让 大 SS 了 DO 本 志恒 万 本 天 天 2 到 


王 EEC 

2 [三光 

总 全 

4 En enunmnoer io elenmnenes nne 有 sara are 7 
SS 打 SET 


5 TIEITRIE 和 和 SEETEEE SEEe 本 SSETER SIOE 


OUwE ti) 
也 TeJJ me evrerytnpino apout 7YorseJ 工 . 
允 OK Tet's see 工 was Dorn before computers. 


os De 
并 Was In the hnIppie 9emneration， 
0 
0 
加 OK。TDet'5s see 工 Was Porn berfore Computer-s . 
os EUe 
并 was In the hnIppie 9eneration. 
WSI EEC 
4 Tpe Dumnpber of eJements In the array are:” 4. 
已 The 万 rsLt eeJement of tpne array 1S: 
OK。 Tet7"5s see 工 Was Dozn berfore computer-s. 


1. 将 字符 串 Tell me everything about yourself 打印 到 STDOUT。 

2. 位 于 输入 运算 符 <> 之 间 的 SITDIN 文件 句柄 负责 读 取 输 入 行内 容 ， 直 到 磁 见 EOF 文件 结束 
符 , 或 者 碰 到 用 户 按 下 <Ctrl>-d CUNIX 中 ) 或 <Ctrl>-z (Windows 中 )。 每 一 个 输入 行 与 其 
末尾 的 换行 符 一 起 保存 为 数组 @all 中 的 元 素 。 

3. 当 用 户 按 下 <Ctrl>-d 或 <Ctrl>-z 后 ， 程 序 会 把 用 户 输入 内 容 打 印 到 屏幕 上 。 

4. 8# 结构 负责 获得 数组 中 最 后 一 个 元 素 的 下 标 或 索引 值 。 只 要 把 $#all 加 上 1， 就 得 到 了 该 数 
组 的 容量 ， 也 就 是 需要 读 取 的 行 数 。 

5. $all[0] 表示 用 户 输入 第 一 行 数 组 里 的 第 一 个 元 素 。 基 中 , 读 取 到 的 每 一 行 都 会 成 为 数组 中 的 
三 介 元 条 5 


5.3.6 ”将 输入 内 容 赋 予 散 列 


ssScrnioty 
# assioc9n Input to a hasph 





于 SeoUrSecinunmoe 三 下 0 

之 WSI ENename 硬 OECDEESe 人 可 0 

写 chomp ($course{S$course_number} = <STDIN>) ， 

4 OECDTEEERRAD 

OOuEswey 

2 pat 工 5 the mame of Course 1 1072 Inux AdamnznIstzatoDn 


4 本 感人 1 且 0 玫 2EEe 和 5 


变 重 77 





虑 把 标量 量 型 变量 $course number 赋值 为 101。 

2. 将 字符 串 What is the name of course 101? 打印 到 STDOUT。 

3. 散 列 的 名 字 是 %course。 这 里 为 该 散 列 赋值 , 它 的 键 是 位 于 花 括 号 中 的 $course_number 变量 
值 。chomnp 函数 负责 从 用 户 输入 的 值 中 删 去 换行 符 。 

4. 打印 新 的 数组 。 该 数组 含有 一 个 键 和 相应 的 一 个 值 。 


5.4 数组 函数 


数组 是 可 以 扩大 或 者 缩小 的 。Perl 提供 了 一 系列 数组 图 数 ， 能 够 在 数组 的 开头 、 中 间或 末尾 进 
行 元 素 的 插入 、 删 除 操作 。 


5.4.1 chop 和 chomp 函数 ( 用 于 列表 ) 


chop 函数 负责 截 去 字符 串 的 最 后 一 个 字符 , 并 返回 删 掉 的 这 个 字符 值 。 其 用 途 一 般 是 在 把 输入 
内 容 赋 了 予 标量 型 变量 时 删除 其 末尾 的 换行 符 。 如 果 处 理 的 是 列表 ， 则 chop 函数 将 删除 数组 中 每 个 
字符 串 的 最 后 一 个 字符 。 

chomp 国 数 能 够 删除 列表 中 每 个 带 有 换行 符 的 元 素 的 最 后 一 个 字符 ， 并 返回 删 掉 的 换行 符 数目 。 






































格式 : 
es 
Gome RS 


示例 5.31 


ES 
站 色 DDoS 莉莉 3 必 运 
下 Renecnoceeno ecanoe yj 下 
choP (GeLine) : # Chops the Jast character ofFff each 
1 


司 EDITIE 

4 QlLine=( "reaQ"，"green"，"orange") ; 

本 chompP (6Line); # Chomps the newIJIine ofFf each string9 In the Is 
6 1 

GO) 

国 eecorang 

6 eolozeencsamnoe 


释 : 


1. 把 数组 @line 赋值 为 列表 元 素 。 

2. 对 该 数组 进行 chop 处 理 。chop 函数 会 删除 数组 中 每 个 元 素 的 最 后 一 个 字符 。 
3. 打印 得 到 的 数组 内 容 。 

4. 把 元 素 值 赋予 数组 @line。 

5. chomp 函数 会 删除 数组 中 每 个 元 素 末尾 的 换行 符 。 该 国 数 要 比 chop 更 加 安全 。 
6. 如 果 数 组 元 素 末尾 不 含 换行 符 ， 则 不 会 删除 它 。 


| 川 ， 


Z]4 


汪 
ww 
示 





5.4.2 exists 函数 


如 果 数 组 的 下 标 〈 或 散 列 表 的 键 ) 已 经 定义 ， 则 exists 国 数 会 返回 true， 否 则 就 会 返回 false。 


格式 : 


exists SARRRAY [Indqex]; 


AN 


示例 5.32 


和 
包 
] 


也 


#1V/usz/bin/Pe1l 


Qnames = Gqw(Tom Raul Steve Jon) :; 

Print "Hello S$Snames [1]\n"，if exists S$names [1]: 

print "Out of fangelN\n"，if not exists S$Snames [5]:; 
USE 

FeJyJJ1o Ra 

加 厅 且 省 忆 下 国王 二 两 ge 局 


本 


解释 : 
下 
2 
3. 


数组 的 名 字 是 @names 。 
如 果 下 标 1 已 有 定义 ， 则 exists 函数 会 返回 tue， 并 打印 该 字符 串 。 
如 果 下 标 5 尚未 定义 〈 在 本 例 中 确实 尚未 定义 )， 则 打印 字符 串 Out of rangel! 。 


5.4.3 delete 函数 


delete 国 数 用 于 从 数组 元 素 中 删除 指定 的 值 ， 但 它 不 会 删除 该 元 素 本 身 ， 只 是 将 它 的 值 设 定 为 
“未 是 尽 


A\\ 


示例 5.33 
人 esSeF in 


非 
也 


RICE RUIS 


甩 
4 


RSmo7yanoanarrar eememn 万 

Qcoelozcs=("red" "green" "blue"y nyellLlow") 

ES 

delete S$colors[1]: # 9Freen Is Femoveda 

TeEoaecelemsNney 

用 

$size=Qcolors:; # va 了 7Iue Is now unaenea 

本 
oueeuy 

ecozeecn5ue yeow 

ec RE 7 

The sze of the array Is5 4. 


到 


5.4.4 grep 函数 





grep 国 数 能 够 对 数组 〈LIST) 中 的 每 个 元 素 都 求 出 表达 式 〈EXP) 的 值 , 并 据 此 返回 另 一 个 数 
组 ， 该 数组 仅 由 上 述 表 达 式 值 为 真 的 元 素 组 成 。 如 果 其 返回 值 是 标量 的 话 ， 则 保存 了 表达 式 值 为 真 
的 次 数 〈 即 找到 匹配 样式 的 次 数 )。 





格式 : 


rep(EXEPRAILISTI) 


示例 5.34 


ssScrenothy 
站 SET 
下 Qlist = (tomatoes， tomoczow，， Potatoes， phantecm，Icmmy) 
2 S$count = grep( /tom/i，Q@list) ; 
Qitems= grep( /tom/i，Qlist) : 
GregaRonnaoieenmsanmeemsNnNnnmos conna SeconnENT 


OUWEoUE) 
4 RonaEemns craoes oOCPO 克 疙 Da 厂 二 OPm 晴 并 DO 站 六 允 
Numpber Founa: 4 


ee 
1. 把 数组 @line 赋值 为 列表 元 素 。 

2. grep 函数 会 搜索 正则 表达 式 ttm， 其 中 i 表示 关闭 大 小 写 敏 感 选项 。 当 把 返回 值 赋予 标量 型 

变量 时 ， 其 结果 是 正则 表达 式 匹配 成 功 的 次 数 。 

. grep 国 数 会 再 次 搜索 正则 表达 式 ttm， 其 中 i 表示 关闭 大 小 写 敏 感 选项 。 当 把 返回 值 赋予 数 

组 型 变量 时 ， 其 结果 是 匹配 成 功 的 元 素 列表 。 


LD 


5.4.5 join 函数 


join 函数 能 够 把 数组 元 素 连 接 到 单个 字符 串 中 ， 并 借助 指定 的 定 界 符 划 分 各 个 数组 元 素 。 该 国 
数 功能 正好 与 split 国 数 〈 见 “split 国 数 ”一 节 ) 相反 。 用 户 可 以 在 通过 split 了 国 数 将 字符 串 分 割 为 
数组 元 素 后 再 使 用 本 国 数 。 表 达 式 DELIMITER 是 分 隔 数 组 元 素 的 定 界 符 的 取 值 。LIST 则 由 数组 
元 素 构成 。 

















格式 : 


人 国有 和 TREE 


示例 5.35 


Eee 

# oznina9 each elJements of a Jist with colons 
工 Sname="Joe BLIow"; 

si | 思 全 本 EGR 

SS 人 MSO 


AN 


2 Print join(":"，S$name，S$Sbirth，S$address )， "An"; 
oueEewey) 
包 加 辣 本 


解释 : 
1. 把 字符 串 赋 值 给 标量 。 
2. join 函数 借助 冒号 定 界 符 连 接 三 个 标量 ， 然 后 打印 生成 的 字符 串 。 


AN 


示例 5.36 
WE 
# Joznin9 each element of aa Jist with aa newJIine 
memeSWDsm DELESCGOIEEO ICZLLIOInEI)E> 





80 入 了 章 
受 names=join("\n"，sort(eanames)) : 
号 nneQnmamesRNnD 
OU 
引 Da 
Dee 
到 
SECUREY 
工 Om 
解释 : 


1. 把 数组 @line 赋值 为 列表 元 素 。 
2. 在 按照 字母 表 顺 序 对 列表 进行 排序 后 ， 再 用 join 函数 以 换行 符 Cn) 将 每 个 数组 元 素 连接 


起 来 。 


3. 打印 保存 的 列表 内 容 ， 其 中 每 个 元 素 都 占 一 行 。 


5.4.6 map 函数 


map 图 数 能 把 数组 中 的 每 个 元 素 值 映 射 到 表达 式 或 者 块 中 ,并 返回 另 一 个 数组 。 这 里 通过 示例 
来 介绍 更 好 理解 。 


格式 : 


ER 
IaeaEEOGIREISUY 


AN 


示例 5.37 
esESCenetny 


GE 


人 
习 
6 


# Mappina aa JIist to an expressioDn 

四 本 辣 是 起 三 从 八 E 局 靖 作 且 计 有 人 全 人生 入 用 有 和 EGG 有 
Qwords = maP chr，QGlist: 

EECeDeelS7 
[0 
en=mapS$S x2+6，en:; 
OGA 


masuna 


SmweaQemn 
了 帮 2 


荐 


1. 数组 @list 由 6 个 十 六 进 制 整数 和 1 个 八进制 整数 组 成 。 

2. map 国 数 将 @list 数组 中 的 每 一 项 映射 为 其 对 应 的 chr 〈 字 符 ) 值 ， 并 返回 新 的 列表 。 

3. 打印 新 数组 内 容 。 使 用 chr 函数 把 每 个 数字 值 转换 为 与 该 ASCII 值 对 应 的 字符 。 

4. 数组 @n 由 一 组 整数 组 成 。 

5. map 函数 能 够 对 Cn 数组 中 的 每 个 元 素 分 别 匹配 正则 表达 ,并 将 匹配 得 到 的 新 数组 返回 到 Cn 中 。 
6. 打印 映射 的 结果 。 


AN 


示例 5.38 
人 esccnpty 


1 





变 量 7 
由 6ecmENA aatsocoksmaseer SEOULST 
及 QlLines=<FH>， 
号 afields = maPp { sPLit(":") } QlLines: 
4 foreach S$fielda (efields)1{ 
5 EEC 
} 
(GuEGE) 
己 Sr Zamnceo 


昌 本 7 二 汪汪 三 避 基 交 

474 CameJot BouJevrara，Bath，H7 28356 
7 

24500 


Tommy Sava9e 

408-724-0740 

ecoera 
有 全 

34200 


YUKizo akesnp7zaa 

人 7 三 昌 27 研 2 

TI3 Uno Tane， ashevIiJJe，NC 23556 
7 号 

OO 


1 

全 罗 央 二 大 和 有 和 

2 所 是 Me 本 SEE 下 洒 帮 帮 了 训 丰 CO 亲 并 22085 
6 

68900 


解释 : 
. 打开 datebook.master 文件 ， 读 取 了 H 文件 句柄 。 该 文件 每 一 行内 容 都 是 以 逗号 隔 开 的 字段 ， 
并 以 换行 符 结尾 。 

2. 读 取 文 件 内 容 ， 并 将 其 赋予 数组 @lines。 文 件 的 每 一 行内 容 都 将 成 为 数组 的 一 个 元 素 。 

3. map 国 数 设 定 为 使 用 块 〈block) 格式 。split 国 数 将 把 数组 元 素 内 容 从 分 号 处 隔 开 ， 从 而 得 
到 新 的 列表 ， 其 列表 项 成 为 数组 的 元 素 。 

4. 借助 foreach 循环 遍历 整个 数组 ， 依 次 将 每 个 元 素 值 赋 给 $field。 

5. 显示 映射 的 效果 。 在 映射 前 ， 行 的 内 容 是 : Sir Lancelot: 837-835-8257:474 Camelot Boulevard, Bath， 
WY 28356:S/13/69:24500 


IE 





5.4.7 pack 和 unpack 函数 


pack 和 unpack 国 数 用 途 很 多 。 它 们 可 用 于 把 列表 内 容 压缩 成 二 进 制 结 构 ， 或 者 将 压缩 的 值 展 
开 成 列表 。 当 用 于 文件 时 ， 这 两 个 国 数 能 用 于 创建 解码 文件 、 关 系 型 数据 库 和 二 进 制 文件 。 

pack 国 数 能 够 将 列表 转换 为 可 存 于 内 存 中 的 标量 值 。 其 中 ，TEMPLATE 负责 指定 字符 的 类 型 
以 及 如 何 格式 化 字符 。 例 如 ， 字 符 串 c4 或 cccc 表明 把 列表 压缩 为 4 个 无 符号 的 字符 ; 而 al4 则 表 
明 将 列表 压缩 为 长 度 是 14 个 字 节 的 ASCII 字符 串 ， 并 用 空白 字符 补足 多 余 的 字符 。unpack 函数 能 
把 二 进 制 格式 的 字符 串 转 换 为 列表 ， 并 将 字符 串 变 回 Perl 格式 。 
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表 5-2 pack 和 unpack 所 用 模板 类 型 和 值 





5.4.8 pop 函数 


pop 国 数 能 弹 


吕 





硬 






















































































模板 描述 
3 ASCII 字符 串 《〈 以 空 值 补 全 ) 
和 A ASCII 字符 串 〈 以 空格 补 全 ) 
b 比特 字符 串 〈 按 从 低位 到 高 位 的 顺序 ) 
B 比特 字符 串 〈 按 从 高 位 到 低位 的 顺序 ) 
c 带 符号 的 字符 值 
C 无 符号 的 字符 值 
d 本 机 格式 支持 的 双 精 度 浮 点 数 
本 机 格式 支持 的 单 精度 浮 点 数 
h 十 六 进 制 字符 串 《 从 低位 到 高 位 的 4 位 表示 法 ) 
匡 十 六 进 制 字符 串 《〈 从 高 位 到 低位 的 4 位 表示 法 ) 
i 带 符号 整数 
I 无 符号 整数 
1 带 符号 长 整数 
工 无 符号 长 整数 
了 以 “network”( 高 位 在 前 ) 为 顺序 的 短 整 数 
N 以 “network”( 高 位 在 前 ) 为 顺序 的 长 整数 
p 指向 以 空 值 结 束 的 字符 串 的 指针 
了 指向 结构 〈 定 长 字符 串 ) 的 指针 
d 带 符 号 的 64 位 值 
Q 无 符号 的 64 位 值 
S 带 符 号 的 短 值 (16 位 ) 
S 无 符号 的 短 值 (16 位 ) 
未 编码 的 字符 串 
v 以 “VAX”( 低 位 在 前 ) 为 顺序 的 短 值 
V 以 “VAX”( 低 位 在 前 ) 为 顺序 的 长 值 
w 128 为 基数 的 BER 压缩 无 符号 整数 ， 高 位 在 前 
x 空 字 节 
X 字 节 的 备份 什 
@ 填 入 到 绝对 位 置 的 空 值 


上 数组 的 最 后 一 个 元 素 ， 并 返回 该 元 素 内 容 。 此 后 ， 该 数组 的 长 度 将 减 1 。 





变 重 3 了 
格式 : 
Pop (ARRRAY ) 
Pop ARRRAY 
示例 5.39 
全 症 SeeeE 
# Remo7Izng an eJement Erom the enaQa of aa 15 七 
灿 mm 三 HE 
及 PTRYQTSTESNDOI 
引 $got = Pop(anames) ; # Pops off Jast elJement of the array 
而 ES 
本 PEint "enamesNn" 7 
oOEewe) 
2 SS 
4 Guy 
己 5 


[解释 
1. 把 数组 @names 赋值 为 列表 元 素 。 
2. 打印 该 数组 。 
3. pop 函数 将 移 除 该 数组 的 最 后 一 个 元 素 ， 并 返回 该 弹出 项 内 
4. 标量 Sgot 中 含有 弹出 项 Guy。 
5. 打印 新 的 数组 。 


吉 


5.4.9 push 函数 


push 国 数 能 把 一 个 数值 追加 到 数组 末尾 ， 同 时 增 大 该 数组 的 长 度 。 


格式 : 


Push (ARRAY，ILIST) 


| 示例 540 
SC 
# AQaain9 eyements to the ena of aa 了 ITS 
下 einmes 一 EC STATEIS 二 
有 Push(enames，"Jim"，"Joseph"，"RArchie") : 
号 Pint "enames N\n"; 


wwe 
到 Bop Danm 7Tom GuU7 wm yosepn Arcnphie 


齐 


1. 把 数组 @names 赋值 为 列表 元 素 。 
2. push 畏 数 将 把 3 个 元 素 添 加 到 数组 的 尾部 。 
3. 新 数组 中 将 舍 有 刚 添加 的 这 3 个 元 素 。 


5.4.10 shift 函数 

















shift 函数 能 移 除 并 返回 数组 的 第 一 个 元 素 ， 同 时 把 数组 长 度 减 去 1。 如 果 省 略 掉 数 组 名 参数 
ARRAY， 则 会 移 除 ARGY 数组 的 首 元 素 ;， 如 果 是 在 子 例 程 中 的 话 ， 则 移 除 @_ 数 组。 





04 


笋 4 音 





格式 : 


Shiftt (ARRRAY) 
Shift ARRRAY 


加 | 员 生 千夫 
ES 5i 国 ) 
# Remo7Iznog eements Erom front of a 了 IIS 
册 SWISS 
网 Sret = shift Qnames: 
本 PTRQTSTESNDOI 
4 ETERIE 本 Enm 本 STE 世 E 名 和 本 起 人 ID 
wweeuwuey 
加 四 RomGUD 
4 NE 是 SEESS OO 


训 


1. 把 数组 @names 赋值 为 列表 元 素 。 
2. shift 函数 负责 移 除数 组 的 第 一 个 元 素 ， 并 将 该 元 素 值 返回 到 标量 $ret 中 。 该 元 素 值 是 Bob 。 
3. 新 数组 将 减少 一 个 元 素 。 


5.4.11 


splice 函数 


splice 国 数 能 移 除 并 替换 数组 中 的 指定 元 素 。 其 中 ， 参 数 OFFSET 指定 需要 移 除 的 元 素 起 始 位 


置 ， LENGTH 则 指定 从 OFFSET 位 置 开 始 需要 移动 的 元 素数 目 。LIST 则 指明 用 户 替 换 旧 元 素 的 新 





元 素 内 容 。 


格式 : 


SECceIARRAYAULOERSETAURNGEHUARTST) 
SDlice(ARRAY，， OFERSET，LENGIHI) 
SmceRRRAYAREORRSETI) 


示例 5.42 
人 eecenety 


EUR 让 由 尼 


# SPIIicIin9 out elJements of aa Jist 


WU@weeneyh 


珊 
4 
己 


eeeess (edAOEESRO DUOUECRISAAROOLUSEI CN NE 
ITECTIOEISESEE VECICCSINTE 

adiscarded = sPLice(aecolors，2，2) : 

PEint "The elements removed after the splice are: discardqed.NXn"y; 
TELORE 本 eegEESRESIEETOEECCTEOSR 

Tpe OFrcinaJl array 1I5 FeaQ 9reen PuUrPJe PbPJue Prown 

Thpe eyements FremoveaQ arfter the SPJIice are: PurpJe DJue. 

The spJicea array Is5 now rea 9reen Drown 。 


4 


1 


. 创建 一 个 含有 5 种 颜色 值 的 数组 。 


2. 打印 原 数组 内 容 。 
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3. splice 函数 将 移 除 从 偏 移 量 2 〈 偏 移 量 是 从 0 开始 计算 的 ) 开始 的 两 个 元 素 : purple 和 blue， 
并 将 删除 的 元 素 返 回 到 另 一 个 名 为 @discarded 的 数组 。 

4. splice 国 数 移 除 元 素 purple 和 blue, 并 将 其 返回 到 @discarded。 其 内容 从 元 素 $colors[2] 开 
从 辐 关 度 是 罗 人 元 2 

5. 拼接 @colors 数组 。 删 除 其 中 的 元 素 purple 和 blue。 


示例 5.43 


(The Script) 
# SPIicin9 ana replacin9 eJements of a JIst 





站 EeeS 全 人 TEST OSI 

2 EEC SN 

六 QlLlostcolors=sPLice(aecolors，2，3，"yellow"，"orange") ， 
4 Print "The removed items are QQlostcolorsNxn'" 

己 ETAEE 本 RISETEEETOCeESTESNOS YY 

人 ES 

2 Te orzogIinal array I5 FeQ 9reenm DuUCPJe PPJue Prowa 

4 Te FemoreaQ 2Iems are PuUCPJe DPIuUe Do 

与 NE 本 BUS ES eeSE EECSnoe 

1. 创建 一 个 含有 5 种 颜色 值 的 数组 。 


勾 
下 


打印 原 数组 内 容 。 

splice 国 数 将 移 除 从 偏 移 量 2“〈 偏 移 量 是 从 0 开始 计算 的 ) 开始 的 两 个 元 素 ， 并 删除 接 下 来 
的 3 个 元 素 。 删 除 的 元 素 (purple、.blue 和 brown ) 存 储 在 @1lostcolors 中 。 然 后 用 颜色 yellow 
和 orange 替换 被 删除 的 颜色 。 

4. 被 删除 的 颜色 值 保 存在 @lostcolors 数组 中 ， 打 印 该 数组 内 容 。 

5. 打印 拼接 后 的 数组 内 容 。 


5.4.12 _ split 函数 


split 函数 能 够 基于 一 些 定 界 符 〈 软 认为 空白 字符 ) 拆 分 字符 串 〈EXPR)， 并 返回 一 个 数组 。 
其 第 一 个 参数 表示 定 界 符 , 第 二 个 参数 指定 待 拆 分 的 字符 串 。Perl 的 split 函数 可 以 在 处 理 文本 时 
用 于 创建 字段 ， 正 如 使 用 awk 一 样 。 如 果 没 有 指明 待 拆 分 的 字符 串 ， 则 该 函数 会 默认 拆 分 $_ 字 
符 串 。 

DELIMITER 语句 负责 匹配 那些 用 于 分 隔 字段 的 定 界 符 。 如 果 在 程序 中 省 略 掉 DELIMITER 的 
话 ， 即 表示 定 界 符 是 空白 字符 《〈 即 空格 、 制 表 符 、 换 行 符 等 )。 如 果 DELIMITER 与 定 界 符 不 匹配 
的 话 ，split 函数 便 会 返回 原始 字符 串 。 用 户 可 使 用 正则 表达 式 元 字符 口 来 指定 多 个 定 界 符 。 璧 如 ， 
[+\t:] 表示 0 到 多 个 空格 符 或 者 制 表 符 或 分 号 。 

LIMIT 负责 指定 需要 拆 分 的 字段 数目 。 如 果 存 在 多 个 LIMIT 字段 , 则 其 他 字段 都 是 最 后 一 个 字 
段 的 一 部 分 。 如 果 在 程序 中 省 略 了 LIMIT 的 话 ，split 函数 会 使 用 其 自 带 的 LIMIT， 它 比 EXPR 的 
字段 数目 多 1 《有关 自 动 拆 分 的 模式 请 参阅 附录 A 中 的 -a 开关 )。 

















格式 : 


Se 汪 忆 EIETTTITVTTLENTI 





国生 汪 信 人 DFTTIRTOTERYESSRRTTTTTTI 
本 阅 计 本 志和 RTMIETRRYESS ER 
TCDDTEIAENRNEEEES ER 

癌症 疝 于 全 人 下 本 TIM 王 开本 民 人 ) 

局 


示例 5.44 


EUoa 
北三 7 


业 Sme 三 mao cos 

及 QlLetter=sPlLit(' '!/$1Line) ; 

瑟 EN 

4 PEint "The seconq Letter is S$1letter[1]NXn": 
DISy) 


( 
马 JE 
4 Tpe secona Jetter Is D 


释 : 


1. 把 字符 串 abecde 赋值 给 标量 型 变量 $line。 

2. $line 〈 标 量 ) ee split 函数 能 人 并 
把 数组 @letter 赋值 为 单个 字母 a、b、c、d 和 ee。 背 况 与 使 用 
正则 表达 式 /是 不 同 的 。 在 以 空白 字符 拆 分 时 ,，“” 的 作用 类 似 于 awk， 2 白 
字符 。 而 正则 表达 式 / 则 会 保留 开头 的 空白 字符 ， 并 创建 与 这 些 空白 字符 一 样 多 的 空白 字段 。 

3. 打印 @letter 数组 的 第 一 个 元 素 。 

4. 打印 @letter 数组 的 第 二 个 元 素 。 


示例 5.45 


人 ESeemiety 

计 罗 5 丈 汪 人 放 2 人 
和 while(<DRATRA>) 1{ 
2 QLine=sPlLit(":") 站 
瑟 TEST 

} 
LI 
Betty Boop: 245s8SI6s5SS516OSS5RECUEUSSUTSNEARNTOIIRRASOOARLCA TAR 2EI2SRS00 
FECHETSREESS5ES 5ESS95RS5OIRECEUIUEEEEISSCSALCSLOSIRENOEE228M SS OSINGOSR2SAUU 
NGFEma CO 三 8 三思 5 AURETOEESEESe ETE5DOERTARNMT 38 从 2 有 05700 
UUSEE 
本 ORDERETERGA 三 8 用 司 | 区 SA20RESEETSNESARDOOED ME23850RE 人 2SRSSN0 


| 


ein 本 on al 

Betty BooP 

下 9OFECPers 天 7 
Norma Coraer 
UenniFfer ComwaDn 
EreaQ FaraQparKkIe 


解释 ; 
上 





$_ 变量 能 够 保存 DAIA 文件 句柄 的 每 一 行内 容 ， 需 要 处 理 的 数据 位 于 _DAIA_ 行 之 下 。 其 
每 一 行内 容 都 将 传 给 $_ 变量 ， 后 者 也 是 split 函数 的 默认 行 。 
2. split 国 数 使 用 $_ 利用 冒号 : 作为 定 界 符 ， 并 返回 结果 到 数组 @line。 
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3. 打印 @line 数组 的 第 一 个 元 素 line[0]。 


示例 5.46 


CE 有 SEE 局 ) 
放生 是 
While(<DRATA>){ 
放 ($name, SPhone,S$address,S$bd,S$sal)=sP1Lit(":") 
2 ETIOGRSmSTESNEESPNSTENTL 
】} 
上 Bus 
BEEE7EBocD3245S8S6S8S57 OOS5CUESSYATSNSARANOIAOCOAEC 95964507237 和 2 区 500 
ECFESNE7SKYRESSEST5E SSRSSSIERoSUIE 汪 BESESECSISWETIIR NO 全 228 人 全 是 及 
NOFEmalcoEasE2397E857=27257AU ETISE SEESESEARDSSEDOETRARMT2387 风 从 2 8 人 瑟 司 22500 
EDIIEETECoWaD SSESS23 汪 和 anFESTRAERR ERTTGEST 本 性 抱 5 900 
RSORRSaEQDSEIIIER6OM 三 33ETSS5S20OURPSRARTSNSAUDUIUEIMNE2S850R 人 7 278900 


(OU 总 司 ) 

蚂 5 
WE 
Nonemecaas 关 证 罗 几 二 交 
JUennirer Comwan 548-834=-2348 
FreaQ FarabarKkJe 674-843-1385 


1. Perl 会 逐 行 遍 历 DATA 文件 句柄 ， 并 将 文件 的 每 一 行内 容 存 入 $_ 变量 中 。split 国 数 则 负责 
拆 分 每 一 行内 容 ， 并 以 冒号 : 为 定 界 符 。 
2. 该 数组 含有 5 个 标量 : $name、$phone、$address、$db 和 $sal。 打 印 其 中 Sname、$phone 的 值 。 


示例 5.47 


Eee 
让 





也 SS 
及 QlLine=sPlit(":"，$string) : # 7Tpe strin9 aeJimiter Is a col1on 
疝 TEST 
4 EAIaE 汪 SIEROIIENL TY 
与 AN 
6 Qstr=sPlLit(":"，$string，2) : 
芝 1 人 0 
8 TSIS ET ER 二 二 下 在 有 全 本 交友 玫 局 SEE 下 二 二 天 汪 有 
四 1 
0 QQstr=sPlLit(":"，$string) ; # 工 ImzIzt not statea wiiI1 be one more 
# 上 than tota7l numpber of 五 e1as 
AR 
下 
思量 省 训 TaEOIEEESIS 2 让 改 NTDi 
二 证 训 1 
SS 
全 
症 纪 ( S$Sname，S$Sbirth，S$address )=sPLit(":"，S$string) ; 
OSI 
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# the Pumber of 石 eJas specziTfeda 
SOTnEESname ANT 
9 
AN 


OUE 

习 OOE 丰 了 人 0 基 ME 大 人 二 现 忆 可 二 让 人 六 有 汪 允 有 人 有 5 芝 届 
4 meisrameeSs 有 GOem 几 BOOT 

过 36 


~ 


Joe BIom 
加 人 太 二 于 人 世 帮 志 厅 且 是 必 吧 丰 人 区 汪 生 履 


AD Oo 


Joe BJIow 
2 
和 
瑟 OSEONDPR MA 
0 


Joe BJIom 
3 局 3 
下 


[解释 
1. 以 逗号 为 定 界 符 拆 分 标量 Sstring。 
2. 定 界 符 是 逗号 ， 其 限制 值 为 2。 
3. 如 果 没 有 说 明 的 话 ，LIMIT 的 默认 值 是 字段 总 数 加 1。 
4. LIMIT 的 隐 含 值 是 4， 比 规定 的 字段 多 1 。 





ESSOSECNODEHSARUESO SF 


ID 上 


5.4.13 sort 函数 


Sort 国 数 能 返回 经 过 排序 后 的 数组 。 如 果 疫 有 指定 SUBROUTINE， 则 该 函数 将 按照 字符 串 先 
后 顺序 进行 排序 。 如 果 程 序 中 指定 了 SUBROUTINE， 则 sort 国 数 的 第 一 个 参数 将 是 排序 子 例 程 的 
名 称 ， 甚 后 第 二 个 参数 则 是 一 组 待 排序 的 值 。 如 果 在 程序 中 使 用 了 字符 串 的 cmp 运算 符 ， 则 这 些 值 
将 按照 字母 表 顺 序 〈 即 ASCIH 表 中 的 顺序 ) 进行 排序 ， 如 果 使 用 的 是 <=> 运算 符 〈 又 称 作 “space 
ship” 运 算 符 ) 的 话 ， 则 以 数字 顺序 对 这 些 值 进 行 排序 。 根 据 比 较 结 果 ， 排 序 子 例 程 会 返回 大 于 、 
小 于 或 等 于 0 的 整数 值 。 值 是 通过 引用 方式 传送 给 子 例 程 的 ， 该 值 由 特殊 变量 $a 和 $b 表示 ， 而 不 
是 一 般 的 @_ 数组。( 更 多 介绍 请 参阅 第 11 章 “ 子 例 程 7。 请 务必 不 要 修改 变量 $a 或 $Sb， 因 为 它 
们 存 有 待 排序 的 内 容 。 

如 果 读 者 需要 让 Perl 根据 某 种 特定 语言 对 数据 进行 排序 ， 就 应 当 在 程序 中 包含 一 个 use locale 
编译 标识 符 。 有 关 这 方面 的 详细 信息 和 编程 步骤 ， 请 读者 参考 : http://search.cpan.org/~nwclark/ 
Perl-5.8.8/pod/perllocale.pod 。 


















































格式 : 
Se 思想 了 必 R 民 GUEST 
GE 七 MEST) 
六 全 轴 且 民 放 大 
二 人 下 二 本 让 本 
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示例 5.48 


ES 

# SImpIe alIpPhabpetic Sort 

JUQLast= (aog"yeat ba snake) 忆 
EN 

2 Qsorted = sort(QGlList) : 

SEANEESOEE ScoreEEeONDS 





# Reversea alIphabetic So 
4 QQsorted = reverse(sort(Q1List) ) : 
Print "Reversed Ascii sort: Qsortedxn" 


(GEGE) 
四 

网 本 CO 
RerenseaEAscC SO SEE EEE 


1. @string 数组 中 含有 待 排序 项 目的 列表 。 

2. sort 函数 负责 对 项 目 执行 字符 串 〈ASCI) 排序 。 排 序 得 到 的 值 必 须 赋值 到 另 一 个 数组 或 原 
数组 中 。sort 函数 不 会 改变 原 数组 的 内 容 。 

3. 打印 排序 后 的 数组 内 容 。 

4. 首先 按照 字母 表 顺 序 对 列表 进行 排序 ， 然 后 翻转 该 列表 。 


1. 使 用 子 例 程 完成 ASCIl 型 与 数值 型 排序 


示例 5.49 


Eee 
QiS 上 = (aogeato bdousnake7) 甩 
ETIOESOOSULRRUYS ES 

1 SC 

2 sub asc sortti 

下 S$a cmP S$b; # Sort ascenain9 order 
】} 

4 sorted 1List=sort asc_sort (List) ， 
TEST Eee 


# Numeric Sort Usin9 SuUpbroutIine 
SuUDEnumerzcEscz 上 大 { 
S$a <=> Sb : 
} # Sa ana SP are comparea DumericalIy 


Cannnosrgsorme=scozEenunmerrcEsocEOnROESR ERSRELOR LOOOL 
ENUmeceOEE Goes 本 SEN 

WOWEowEy) 

全 ee 

区 EC 

Nemaie 旺 si 0 


1. @list 数组 中 含有 一 组 待 排序 的 数据 项 。 
2. 为 子 例 程 asc_sortO 提供 一 组 待 排序 的 字符 串 。 
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3. 特殊 变量 $a 和 $b 会 按 升序 比较 待 排序 的 数据 项 。 如 果 把 $a 和 $b 的 顺序 反 过 来 (譬如 $b cmp $a)， 
则 上 述 排序 操作 将 按照 降序 进行 。 在 比较 字符 串 时 ， 需 要 用 到 cmp 操作 符 。 

4. sort 国 数 会 把 一 个 列表 发 送 给 用 户 定义 的 子 例 程 asc_sort0, 并 由 后 者 完成 排序 操作 。 排 序 后 
得 到 的 列表 将 返回 并 存 入 到 @sorted_list 数组 中 。 

5. 本 行 提供 了 一 个 用 户 定义 的 子 例 程 ， 其 名 称 是 numeric_sortO)。 特 殊 变 量 $a 和 $b 会 按 数字 
升序 比较 待 排序 的 数据 项 。 如 果 把 $a 和 $b 的 顺序 反 过 来 〈 艾 如 $b cmp $a)， 则 上 述 排 序 操 
作 将 按照 降序 进行 。 在 比较 数值 时 ， 需 要 用 到 <=> 操作 符 。 

6. sort 国 数 会 把 一 个 列表 发 送 给 用 户 定 义 的 子 例 程 aumeric_sort0, 获得 排序 后 的 数字 列表 , 并 
将 结果 保存 到 @number_sort 数组 中 。 





2. 使 用 内 联 (Inline) 函数 对 数值 列表 进行 排序 


示例 5.50 
SS 
# Sortin9 Dumbers with an unamea supbroutIine 
于 Qsorted_numbers= sort {$a <=> S$b} (3,4,1,2) : 


AN 


2 PEint "The sorted numbezs are: Qsorted numbers"，".Nn"; 
ouEsway) 
多 Tpe sortea numpbers are: 1 2 3 4. 


解释 : 
1. 为 Sort 国 数 提 供 一 个 无 名 的 子 例 程 ， 又 称 作 内 联 国 数 ， 用 于 对 通过 参数 传 入 的 数值 型 列表 进 
行 排序 。<=> 运算 符 和 特殊 变量 $a、$b 一 起 实现 对 数字 的 排序 。 排 序 得 到 的 数值 型 列表 则 保 
存 到 @sorted_numbers 数组 中 。 
2. 打印 排序 得 到 的 数组 内 容 。 


5.4.14 reverse 函数 
Teverse 国 数 负责 翻转 数组 中 元 素 的 排列 顺序 ， 使 得 原本 降序 排列 的 数组 元 素 变 成 升序 ， 反 之 亦 然 。 


格式 : 


zeVerse (LIST) 
zeVersSe LIST 


SEO 

# Reversin9 the elJements of an array 
由 meamesEWEB CAST IST 是 下 
翌 PEint "enames N\n"y; 
Qreversed=reverse (anames) ,"N\n": 
4 TYTEVEeSEOND 


key 
汉 JE 
4 后 可 7 生 到 Gm 量 肪 5 五大 BO 
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1. 将 列表 赋值 给 数组 @names 。 

2. 打印 原 数组 内 容 。 

3. reverse 国 数 将 翻转 数组 中 元 素 的 顺序 ， 并 返回 得 到 的 新 数组 。 原 数组 @names 将 没有 变化 。 
新 得 到 的 数组 会 保存 到 @reversed 中 。 

4. 打印 翻转 后 的 数组 内 容 。 


5.4.15 unshift 函数 


unshift 函数 能 把 LIST 追加 到 数组 的 起 始 位 置 。 


格式 : 


SO ERRORSI 


So 
# Puttzin9 Pnew eJements at the FEront of aa 了 Ist 
直 meanmes= (wwcw BSA ICTmo) 央 7 
unshift(anames，"Liz"，"Daniel1L") : 


ESTIESSARR 


OUEUE) 
司 IIi2Z Dan7iel Joay Bert 7o 亚 


解释 : 
1. 向 数组 @names 赋 3 个 值 : Jody、Bert 和 Tom。 
2. unshift 函数 会 在 数组 前 面 追 加 2 个 元 素 Liz 与 Daniel。 
3. 打印 @names 数组 。 


5.5 散 列 〈 关 联 数 组 ) 函数 


5.5.1 keys 函数 


keys 国 数 将 返回 一 个 数组 ， 该 数组 的 所 有 元 素 都 是 指定 散 列表 〈Hash) 的 键 〈 请 参 雾 “values 
国 数 ” 和 “each 函数 ”相关 内 容 )。 


格式 : 
KEEwsinRsSOCERARRRAYJ) 
KEews 硬 SSG 全 民 RR 


示例 5.53 
人 下 Se 
# ZnPe 大 eys FnctIion returns the Keys of a hasn 
下 和 当 Weekday= (人 
"1 =>"Monaay' 


AN 
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"2 =>"Tuesaay'" 
"37=>'"Wednesqdqay'"' 
SEE 于 
本 
6 是 王 之 全 S 本 贡生 可 3 是 
Te 
) 
最 foreach S$Skey ( keys (%$weekday) ){Print "S$Skey "7} 
1 
妃 foreach $key ( Sort keys (%$weekday) ){Print "S$key" 7} 
疝 王 下 而 让 


1. 为 散 列 变量 %weekday 赋予 键 和 值 。 

2. 针对 散 列 变量 %weekday 中 的 每 一 项 ， 调 用 keys 国 数 获得 它 的 键 。 然 后 把 键 的 内 容 赋 值 给 
标量 $key， 并 以 随机 顺序 打印 它们 。 

3. 最 后 对 这 些 键 进行 排序 和 打印 。 


5.5.2 values 函数 


values 国 数 能 以 随机 顺序 返回 含有 一 个 散 列 表 中 所 有 值 的 数组 。 


格式 ; 
VaniesWRsSOC 是 RRRSYI) 
ERSSSSSOCSw 


示例 5.54 


十 硬 See 
# 7Tpe values function returns the values in a hasnh 
于 gsweekday= (人 
由 二 区 EEEN7 
"2 =>"Tuesadaay' 
"3'=>'"Wednesaqay' 
7 
本 
6 和 二 2 革 S 二 让 可 5 
TS 
) 
多 foreach S$value ( values ($weekday) ) {Print "S$value"7} 
你 


AN 


COwEEy) 
到 Monaay 7uesaay Meanesaay 7TPpursaay Fr7Toay Saturaay Sunaay 


解释 : 
1. 为 散 列 变量 %weekday 赋予 键 和 值 。 
2. 针对 散 列 变量 %weekday 中 的 每 一 项 ， 调 用 values 函数 得 到 它 的 值 。 然 后 ， 把 值 赋 给 标量 
$value， 并 打印 到 STDOUT。 
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5.5.3 each 函数 


each 国 数 能 以 随机 顺序 返回 一 个 双 元 素数 组 ， 该 数组 的 一 个 元 素 是 散 列 表 项 的 键 ， 另 一 个 元 素 
则 是 该 键 所 对 应 的 值 。 


格式 : 


SO 


示例 5.55 


So 
1 淹 国 AS 
# Thpe each Function retrieves both Keys ana values From aa Phasp 
也 sweekday=( 
Mn ENMEmOSRN 
"Tue' => 'Tuesaday'"'， 
"Wed' => '!Wednesdqay'v 
多 后 有 几 人 
| 风 2 放 几 和 有 
SS 
三 IE 
) 
2 while(($key,S$value)=each ($weekday) ) { 


马 ETOELLSSEY EVENENTIY 
】} 

OUwE 

习 Sat=Sacrea7 
人 
Sun = Sunaay 
Thpua = Thpursdqay 
ea = Meanesaay 
Tue = 了 esaay 
Mopn = MonaQay 

解释 : 


1. 为 散 列 变量 %weekday 赋予 键 和 值 。 

2. each 函数 返回 散 列 变量 %weekday 中 的 每 个 键 及 其 对 应 值 。 然 后 分 别 将 这 些 键 和 值 赋 给 标量 
$key 与 $value。 

3. 以 无 序 方式 打印 这 些 键 和 值 。 


5.5.4 对 散 列 进行 排序 


如 果 要 对 一 个 散 列 进行 排序 ， 读 者 可 以 像 前 面 对 待 数组 一 样 ， 借 助 内 建 的 sortO) 命令 方便 地 按 
字母 表 顺 序 对 键 key) 进行 排列 。 但 也 有 可 能 需要 按 数字 顺序 排序 ,或 者 根据 散 列 值 来 排序 。 为 了 
满足 这 些 需 求 ， 读 者 还 需要 自行 定义 一 个 子 例 程 ， 用 于 比较 键 或 者 值 的 大 小 。(〈 详 见 第 11 章 )。 内 
建 的 sortO) 函数 将 调用 该 子 例 程 ， 并 传 给 它 一 组 待 比 较 的 键 或 者 值 。 根 据 所 用 运算 符 的 不 同 ， 该 子 
例 程 可 以 按 ASCII〈 字 母 表 ) 顺序 ， 亦 可 按 数字 大 小 进行 比较 。 其 中 “cmp” 运 算 符 用 于 比较 字符 
串 ， 而 “<=>” 运 算 符 则 负责 比较 数字 。 全 局 标量 $a 和 $b 负责 在 进行 比较 时 为 子 例 程 保存 比较 的 
值 ， 并 且 这 两 个 标量 名 是 固定 不 变 的 。 
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-和 


条 5 章 








按键 升序 排列 散 列 。 对 散 列 的 键 按 ASCII 或 字母 表 顺 序 进 行 排列 , 是 一 项 相对 而 言 较为 容易 的 


工作 。 只 需 向 sortO 国 数 提 供 一 组 待 排序 的 键 , 便 可 按 升序 排列 它们 了 。 这 里 需要 使 用 一 个 foreach 
循环 来 逐个 访问 散 列 中 的 所 有 键 。 详 见 示例 5.56。 


示例 5.56 


So 

站 区 Wins = (人 
EeenaoRBamee 这 三 > 
SUnmyYZaleSluodgers7 三 之 
EDseoNaiee se 区 三 > 


SEESVemswaliieeTirgezs 三 过 
"Lewiston BLazezsn" 芝 
由 二 玫 必 Scene E。 > 


属 : 


EnOENNESOEEESWS OSISETQTTSEOEOETAANTE 


电 foreach $key( sort(keys gwins)) 1{ 
吉 EN 20S25UND SEESNWSISRE 


】} 
(ESGUE) 
Sort Teams In ASscenain9 Oraer: 


ECO 本 NTROESis 河 
VE 本 7 S 3 
TemwIzston BJIazers 天 
PortJana Pantners 天 砚 


StevrensVvIil1Ie TI9ers 6 
SunnyvaJe 5SJU99ers 则 汉 


1. 向 散 列 变量 %wins 赋予 一 组 键 / 值 对 。 
2. 使 用 foreach 循环 遍历 散 列 中 的 每 个 元 素 。foreach 循环 将 从 sortO 国 数 得 到 和 输出， 该 输出 是 
一 组 按 字母 表 顺 序 经 过 排序 的 列表 。 而 sort 国 数 则 从 内 建 的 keys 函数 得 到 输入 ， 因 为 keys 





函数 能 返 


回 一 个 散 列 中 所 有 键 的 列表 。 


3. printfO 国 数 用 于 格式 化 并 打印 各 个 键 ， 以 及 排列 后 的 值 。 


按键 反 序 排列 散 列 。 如 需 根 据 散 列 的 键 按照 字母 表 顺 序 进 行 





反 序 排列 ， 只 需 为 前 面 的 示例 添加 


内 建 的 reverseO 国 数 便 可 。 在 完成 反 序 排列 后 ,再 通过 一 个 foreach 循环 逐个 获取 散 列 的 每 一 个 键 。 


示例 5.57 


了 gwins = (人 


EGRiamoRRBameneTs 三 > 
SUnnyYale 量 Suogodesrns7 三 > 
re Waicic ss 一 > 
SEEeVvemsvieeEaOSzSD 三 之 
"Lewiston BLazezsn" 三 > 
WERE RE ESaEGNSTS 三 > 


1 汪 


TENESOEEEIEmSETORDSSCEmonoyREETSEOEQUESNDE 


有 foreach $key (Feverse sort(keys S$wins)) 1{ 


志 ESSDONO SeY 


S$Swins{Skeyl: 


hs 


093 





】 


GDEGUE) 
Sort 7Teams in Descenain9/Revrerse Oraer: 


解释 : 


让 站 站 区 Se S 2 
SevrensVvIilJIe TI9ers 6 
PortJana Pantnhers 了 0 
TemwIston BJIazers 可 浊 
DamnvII1 Je 7TerzrIors 六 
eeO 人 TREE 二 引 芭 二 


1. 向 散 列 变 量 %wins 赋予 一 组 键 / 值 对 。 


2. 使 用 foreach 循环 遍历 散 列 中 的 每 个 元 素 。 





3. printfO 国 数 用 于 格式 化 并 打印 各 个 键 ， 以 及 排列 后 的 值 。 


以 数值 方式 按键 排列 散 列 。 如 需 根 据 键 的 数值 大 小 对 散 列 进行 排序 
子 例 程 。 在 使 用 各 种 运算 符 执行 比较 时 ,标量 $a 和 $b 负责 为 子 例 程 保存 待 比 较 的 值 。 nn 


运算 符 负 责 比 较 数字 “cmp ”运算 符 则 用 于 比较 字符 串 。sort(O) E 


子 例 程 ， 然 后 返回 排序 后 的 列表 结果 。 


示例 5.58 


下 
用 


司 
4 


Sub desc_sort_subject 1{ 
Sb <=> $a: # Numeric sort aescenain9 
Sub asc_sort_subjecti{ 
$a <=> S$b: # Numeric sort ascenain9 
上 
gcourses = (人 ( 
"101"” => "Intro to ComPuter Science"， 
站 22 三 > 二 nguS 上 上 ITCSL 
"300"” => "RARAstzronomy"， 
了 02 忆 三 > 光 Re 
"103" => "PHP"， 
"200" => "Language arts"， 
本 
ETANNECOOESSS TD 有 SeEmangENDneEc 本 OPEN 
foreach S$key (sort asc_sort_subject(keys ($%courses) ) ) 
有 
】 
TENECOUESESOEDESSETOIOORENUTETTEC 有 OUETOOE 
foreach $key (sozrt desc sort _subject (keys ($couzses) ) ) 
EEC ESOEESRNOOESKEEY COUESSEIE SEE 
} 
OUwEo) 


GaNSSE 


JIJ07T TInEro Lo Comnputer Science 
JI02 Per 
0 


阐 ， 则 需要 使 用 用 户 


函数 将 把 一 组 键 传送 给 


{ 


让 


reverse(0) 国 数 负责 从 sort0O) 函数 获得 排列 后 的 列 
表 数 据 ， 并 完成 反 转 处 理 。 然 后 ，foreach 函数 使 用 翻转 后 的 列表 从 散 列 变量 %wins 中 解析 
出 每 个 键 和 值 。 














96 苑 了 5 章 
200 Tan9ua9ge arts 
清和) 

300 astronomy 
候 SEE 有 SEEIOOOENOTEENC 伺 SEE 

300 AsLtFronomny 
2 

200 Dancuacge arts 

了 局 

2 

071 TITntro to Computer Science 

解释 : 

1. 本 行 含 有 一 个 用 户 自 定义 的 子 例 程 desc_sort subjectO。 当 在 sortO 国 数 中 指定 该 子 例 程 名 
时 ， 该 函数 便 会 比较 传 进来 的 各 个 键 ， 并 按照 数值 大 小 对 它们 进行 排序 。 

2. 标量 $a 和 $b 负责 比较 来 自 散 列 %courses 的 键 值 。<=> 是 一 个 数值 比较 表达 式 ， 它 会 把 每 
个 键 当 作 数 值 来 进行 排列 。 在 前 面 示 例 中 ， 按照 字母 表 顺 序 对 键 值 进行 排列 。 由 于 
$b 位 于 $a 之 前 ， 因 此 上 述 排序 操作 是 降序 

3. 这 里 又 是 一 个 用 户 自 定义 的 子 例 程 ， 该 国 数 和 前 面 第 一 行 的 国 数 一 
模 一 样 ， 惟 一 的 差别 在 于 它 将 按照 数值 升序 排列 散 列 键 ， 而 不 是 降序 。 

人 特殊 变量 $a 和 $b 顺序 是 反 过 来 的 ， 因 此 比较 后 的 排序 结果 将 是 升序 的 

5. 向 散 列 变量 %courses 赋予 多 个 键 / 值 对 。 

6. 使 用 foreach 循环 逐个 遍历 散 列 中 的 每 个 元 素 。 其 输入 则 来 自 于 sortO 函数 的 输出 。 

7. printf0O 国 数 用 于 格式 化 并 打印 各 个 键 ， 以 及 排列 后 的 值 。 


以 数值 方式 按 值 升 序 排 列 散 列 。 如 需 根 据 值 的 大 小 对 散 列 进行 升序 排列 ， 则 需要 使 用 用 户 自 定 
义 的 子 例 程 。 标 量 $a 和 $b 负责 比较 来 自 散 列 的 值 。 如 果 $a 位 于 比较 运算 符 的 左 侧 ， 则 该 排序 过 























程 将 是 升序 的 反之， 如果 $b 位 于 左 侧 ， 则 排序 过 程 将 是 降序 的 。<=> 运算 符 将 以 数值 方式 比较 


左右 两 个 参数 。 


示例 5.59 


So 


由 
受 


4 
号 


Sub asc_sort_wins { 
Swins{Sal <=> S$Swins{Sbl: 
】} 


swins = (人 ( 
"Pozrt1land Panthezs" => 10， 
"Sunnyvale SLuggers" => 12， 
CheoENadcats => 5， 
"StevensvilLlle Tigers"” => 6， 
"Lewiston BLIazezs" => 11， 
"DanvillLle TezLziors" => 8， 


外 有 
rneNnNENEETOENSCEonnoENUnETTIECOQESTAOE 
foreach S$Skey (sort asc_sort_wins (keys ($wins))) { 
PEintf "Ntg -20sgs5dXn"，$key，S$Swins{Skeyl:， 
} 





(ESGuE) 


MIins in ascenazng NamerIc Oraer : 


GO 二 1 

StevensviIJ Je Ti9ers 6 

JE 明 必 三 8 

Ce 六 吉大 RENERS 0 

ZewIzston BJazers 了 

SunnyVvaye 5SJ0a99er5 2 
解释 : 
] 


-这 是 一 个 用 户 自 定义 的 子 例 程 ， 其 名 字 是 asc_sort wins(O)。 当 在 sortO 国 数 中 指定 该 子 例 程 


名 时 ， 该 国 数 便 会 比较 传 进来 的 各 个 散 列 值 ， 然 后 以 数值 方式 按 值 的 天 小 进行 排序 。 
2. 特殊 Perl 变量 $a 和 $b 负责 比较 来 自 散 列 %wins 的 值 。<=> 运算 符 将 以 数值 方式 比较 每 


待 排序 的 值 。 如 需 对 字符 串 进 行 比较 ， 则 应 使 用 “cmp” 运 算 符 。 
. 癌 散 列 变量 %wins 赋予 多 个 键 / 值 对 。 

4. 使 用 foreach 循环 逐个 遍历 散 列 中 的 每 个 元 素 。 
. printfO 函数 用 于 格式 化 并 打印 各 个 键 ， 以 及 排列 后 的 值 。 


LD 


(LA 


以 数值 方式 按 值 降序 排列 散 列 。 与 前 面 的 示例 一 样 ， 如 需 根 据 值 的 大 小 对 散 列 进行 


其 输入 则 来 自 于 sortO 函数 的 输出 。 


降序 排列 ， 





则 需 要 使 用 用 户 自 定义 的 子 例 程 。 不 过 这 一 次 $b 变量 应 当 位 于 数值 比较 运算 符 <=> 的 左 侧 ， 而 $a 
变量 应 当 位 于 其 右 侧 。 这 样 就 能 让 sortO 国 数 以 降序 进行 排列 。 


示例 5.60 





全 三 Se ns 
二 SET EPZXSUTS 5 帮 


1 sub desc_ sort_ wins 1{ 
到 S$wins{Sb} <=> S$wins{S$Sal:; 
1 


3  $wins = (人 


SeDsiEUEDOVG 央 SEESSS AL 三 > 
SnZ7aleSsumooers 三 三 
ne eaeic ss 三 > 
"StevensVville Tigezs" => 
"Lewiston BLazetsn 三 > 
本 SEEGNSS 三 > 


7 

DOATINEWIS 天 人间 人 CO 可 
4 ftoreach S$kKkey (sort daesc sozt 
号 NE 

】 
GEEUE) 


Wins in Descendqing Numeric Orader: 


SunnyvaJe 5SJU99ers JI 治 
Tewzston BJazers 了 


SSeSRGTDOOQeE 


# Revrerse 5a ana SP 


Ne oOEJe EN 
ins (keys (%$wins))) { 
ey，S$wins{Skeyl:; 





PortJana Pantnhers 列 
DamnvIiI1 JIe 7TerzrIors 
SEEe7ems72 eg IIers 
ON 


maooD 


1. 这 是 一 个 用 户 自 定义 的 子 例 程 ,其 名 字 是 desc_sort_ wins()。 当 在 sortO 人 
名 时 ， 该 函数 便 会 比较 传 进来 的 各 个 散 列 值 ， 然 后 以 数值 方式 按 值 的 大 小 进行 排序 。 
这 次 是 按照 降序 进行 排列 的 。 
2. 特殊 Perl 变量 $a 和 $b 负责 比较 来 自 散 列 %wins 的 值 。$a 和 $b 的 相对 位 置 表 明了 排列 顺序 
究竟 是 升序 还 是 降序 。 如 果 $a 位 于 数值 比较 运算 符 <=> 的 左 侧 ， 则 该 排序 过 程 将 是 升序 的 ; 
如 果 $b 位 于 数值 比较 运算 符 <=> 的 左 侧 ， 则 该 排序 过 程 则 是 降序 的 。 如 需 对 字符 串 
行 比较 ， 则 应 使 用 “cmp ”运算 符 。 
; 交合 %wins 赋予 多 个 键 / 值 对 。 
4. 使 用 foreach 循环 逐个 遍历 散 列 中 的 每 个 元 素 。 其 输入 则 来 自 于 sortO 函数 的 输出 。 
. printf(O) 国 数 用 于 格式 化 并 打印 各 个 键 ， 以 及 排列 后 的 值 。 





LD 


(LA 


5.5.5 _ delete 函数 


delete 函数 负责 从 散 列 中 删除 指定 值 。 如 果 成 功 就 返回 删 掉 的 这 个 值 。9 





格式 : 


delete SAssocC ARRAYTIKEY1 


示例 5.61 


作 王 卫 Se ee 
二 
由 要 empPp1loyees=( 
"Nightwatchman"” => "JUJoe BlJow"， 
0EaC 三光 区 人 ET 人 
BEE 古人 E 辣 攻 有 的 S 本 全 


1 

受 $1Layoff=delete S$SemPLloyees{"Janitor" }: 
站 
Rom OUEREEEmaunanogsEeaEETICUOSSR 
NO 
while((S$Skey，S$value)=each(semployees) ) 1( 

TESTESENIUENTTOD 

】} 


UnwEy 

Ne haa to Jet Teaay Punoer 9o. 
四 证 放生 9 重大 用 玉 人 SS 
NIi9ptwatchman: vJoe BJIow 

GEAR Se 


解释 : 
玉 用 3 个 键 / 值 对 定义 二 个 散 列 型 变量 。 





加 ”如果 删 除了 %ENY 中 的 值 ， 则 会 影响 系统 环境 变量 〈 详 见 “%BENY 散 列 ”一 





变 时 一 





2. 根据 指定 的 键 ，delete 图 数 将 从 散 列 中 删除 一 个 相应 的 元 素 。 在 此 过 程 中 ， 该 元 素 的 键 和 值 
都 会 删除 。 
3. 删除 并 返回 与 键 Janitor 相关 联 的 散 列 值 。 然 后 把 返回 值 Teddy Plungers 赋予 标量 $layoff。 





5.5.6 exists 函数 


如 果 散 列 的 键 〈 或 数组 下 标 ) 已 经 定义 ， 则 exists 函数 返回 true， 人 否则 返回 false。 





格式 : 


SGXZTSESLSASSOCUARRAYTRKEY1 


示例 5.62 
SS 
王 semployees=( "Nightwatchman"” => "Uoe BlLow"， 


ED 和 世 oa 和 二 esy 区 区 npes5a 
Re 三 之 可 7 证 En 
六 
马 Print "The Nightwatchman exists.\n" if exists 
S$emPlLloyees{"Nightwatchman" } : 

纪 Print "The Clerk exists.\Xn" if exists S$SemPLloyees{"ClLlerk"l: 
4 TeaROEEBSSE 莉 Oo EEE 人 二 
S$employees{"Boss"}: 


( 

2 天 二 本 全 人 的 证 记 Se 站 二 ES 交 SS 
浊 Tpe CJerk exists。 

4 Tpe Boss aoes mot exITst. 


解释 : 
1. 用 3 个 键 / 值 对 定义 一 个 散 列 型 变量 。 
2. 如 果 已 经 定义 了 键 “Nightwatchman”，exists 图 数 会 返回 true。 
3. 如 果 定 义 了 键 “Clerk”，exists 国 数 会 返回 true。 
4. 如 果 尚 未 定义 键 “Clerk”，exists 国 数 将 返回 相反 的 结果 。 








5.6 ”有 关 散 列 的 更 多 内 容 


5.6.1 从 文件 载 入 散 列 


AN\ 


示例 5.63 

(The Database) 
Steve BlLenheim 
Betty Boop 
Togormenswsky 
Neems 本 Eeed 
Jon DeLoeach 
Karen EVich 


EN 2 
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汪 
ww 
地 





WeSerniotny 

#1!Vusr/Vpbin/per1l 

# ZIoaarzin9 a Hash from a 万 Je. 
业 open (NAMEPS， "emp .names") || Qie 
受 while(<NRAMES>) { 
泡 (ESDUmRESmSTmE DIEE 本 STEEL 
4 Srealida{fSnuml = S$Sname'7 


SN 


"Can't open emp.names: 


人 二 汉 ) 
】} 
号 Close NAMES， 


6 while(1)1{ 

记 ToyBlease echoose anuinoez Ecomene sobnanmes2 
8 chomp (S$num=<STDIN>) ; 

久 last unless Snunm; 

二 才 SN 


《GuUEUE) 

以 ByJease choose aa numper 

10 Steve BJenpezm 
Number For mwpicn 
Norma Cora 
Numpber For mwphicn 
Jon Derpoacn 
Numpber For mwphicn 
Betty BooPp 
Numpber For mwphicn 
Karen 五 vIcp 
Numpber For mwpicn 
Numpber For wphicn 
而 GE 古 EAeSKY 
Numbper For wpich name2? 
区 ER 三 可 人 二 


0 
Dame2? 4 
ame2? 2 
Dame2? 2 
五 ame2? 6 


name2? 8 
交 ame2? 3 


解释 : 
1. 打开 文件 emp.names， 并 通过 文件 句柄 NAMES 访问 它 。 
2. 通过 一 个 while 循环 逐 行 读 取 文 件 内 容 。 


坷 居 竺 国生 但 是 < 宇 属 


后 ， 由 split 函数 返 


制 表 符 和 换行 符 ) 作为 定 界 符 ， 将 读 入 的 $_ 内 容 拆 分 为 两 个 字段 。 之 
回 拆 分 得 到 的 列表 内 容 ， 即 Snum 和 $name 〈 由 姓 和 名 构成 )。 





4. 以 $num 为 键 , 以 Sname 作为 与 该 键 相 关联 的 值 , 创建 散 列 变量 %realid。 在 每 次 循环 时 ,都 





向 %realid 添加 新 的 键 / 值 对 。 
. 关闭 文件 句柄 。 
. 再 次 进入 while 循环 。 
. 要 求 用 户 输入 与 姓名 相关 联 的 编号 。 


oo ~1 人 小 内 


chomp 上 归 整 它 。 
9. 如 果 $num 是 空 值 ， 
10. 打印 %realid 散 列 


5.6.2 ”特殊 散 列 变量 


%ENYV 散 列 变量 。%ENYV 散 列 变量 中 含有 父 进 和 
环境 变量 值 。 这 个 散 列 变量 的 键 是 环境 变量 名 ， 





. 从 标准 输入 《此 处 即 为 终端 键盘 ) 中 读 取 用 户 键入 的 数字 ， 并 将 其 赋值 给 Snum， 同 时 使 用 


则 退出 循环 。 


变量 中 与 “number” 键 〈 即 $num) 相关 联 的 “name” 值 〈 即 $name ) 。 


了 


(如 shell 或 Web 服务 器 进程 ) 传 给 Perl 的 
直 则 是 相应 的 环境 变量 值 。 如 果 改 变 %ENYV 值 的 


届 








Ta 











hs 


变 
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话 ， 就 会 改变 Perl 脚本 及 其 所 有 子 进 程 的 环境 变量 ， 但 不 会 影响 Perl 的 父 进程 。 在 CGI Perl 脚本 


中 ， 环 境 变量 发 挥 着 重要 的 作用 。CGI 脚本 相关 内 容 将 在 第 16 章 介 绍 。 


示例 5.64 


全 本 本 Se ee 
证 

业 foreach $key (keys ($ENV) { 
名 TREE 

】} 

Print "XnYour login name SENV{'LOGNRAME ' }\n" 7 

SPpwd=SENV{'IPNWD']; 

疝 王 玫 二 庆生 全 GAN 二 和 
asiuiay 

OPPRNHTINFOM 

MANPAT 万 

FONTPAT 万 

工 OGNAM 

DSSR 

了 RNMCAP 

工 五 RM 

号 互 厂 了 工 工 

三 所 

万 OM 瑟 

一 有 工厂 

JITNDO_ PFARNT 

MGR 已 NV_ 已 7AC 万 万 O 了 DER 


方 一 nn 必 WwW 


习 YOU Jo9iDmn name Is eye 


号 Ahome/7Joay/home 


全 和 


1. 由 foreach 循环 负责 遍历 % ENYV 的 所 有 键 。 
2. 打印 所 有 键 的 值 。 

3. 打印 键 LONGNAME 的 值 。 

4. 将 键 PWD 的 值 赋 予 $Spwd。 

5. 打印 $pwd 的 值 。 





%SIG 散 列 变量 。%SIG 散 列 变量 负责 为 信号 指定 信号 处 理 程序 。 警 如 在 程序 运行 时 ， 如 果 用 











户 按 下 了 <Ctrl>-C， 就 会 产生 一 个 信号 ， 甚 名称 标 识 为 SIGINT 〈 如 需 了 解 完整 的 信号 多 
者 参考 UNIX 用 户 手 册 )。SIGINT 的 默认 操作 是 中 断 当 前 进程 。 所 谓 信号 处 理 程 序 , 是 太 


4 表 ， 请 读 
E 信 号 传 至 











进程 时 自动 调用 的 子 例 程 ， 一 般 用 于 在 退出 脚本 之 前 执行 清除 操作 或 检查 某 些 标记 (Flag) 值 (这 




















里 假定 所 有 的 信号 处 理 程序 都 是 在 main 包 中 设置 的 )。 
%SIG 数组 中 只 含有 在 Perl 中 设置 的 信号 值 。 





示例 5.65 


SEE 
#!Vusz/bin/per1 
于 SuUb handlLer1{ 





102 条 了 章 
名 local(Ssig) = 二” 上 First ar9ument I5 579nal mame 
EnnigeamdnisSreSsooEE UEDANRLY 
ET 
】 
4 SSICGCIINT 本 二 analez 上 


ET NT 
与 Sleep (10) ， 
NT 本 本 六 厅 下 下 由 
这 SSIG{IINITI'}='IGNORE ' 
<BEEogeamEecemamnusSmme< 且 二 


Le 


解释 : 


. $sig 是 一 个 局 部 变量 ， 含 有 信号 名 。 


~ 上 wwiPD 一 


%INC 散 列 变量 。%INC 散 列 变量 负责 保存 通过 do 或 require 国 数 导入 的 文件 名 路 径 。 
(key) 是 文件 名 ; 值 (value) 则 是 文件 的 实际 位 置 。 





5.6.3 ”上下文 (Context) 


.handler 是 子 例 程 的 名 字 。 本 行 定义 了 一 个 子 例 程 。 


. 当 收 到 SIGINT 信号 时 ， 显 示 本 消息 ， 然 后 退出 脚本 。 

. 键 INT 含 有 的 值 是 子 僵 程 名 handler。 因 此 在 信号 到 达 时 会 调用 这 个 handler 信号 处 理 程序 。 
. Sleep 国 数 给 用 户 10 秒 钟 时 间 ， 以 便 用 户 按 下 <Ctrl>-c 并 观察 发 生 的 现象 。 

. 恢复 默认 的 操作 。 默 认 操作 内 容 是 在 用 户 按 下 <Ctrl>-c 时 退出 执行 进程 。 

. 如 有 果 把 “IGNORE” 值 赋予 $SIG 散 列 变量 的 话 ， 则 程序 会 名 略 <Ctrl>-c 并 继续 执行 。 





其 键 


总 而 言 之 ， 在 判断 变量 类 型 〈 即 “funny” 字 符 ) 时 ，Perl 需要 依据 该 变量 的 使 用 方式 来 决定 。 








也 就 是 说 ， 需 要 根据 标量 型 或 列表 型 的 上 下 文 (Context) 来 决定 。 


如 果 出 现在 赋值 运算 符 左 侧 的 是 标量 的 话 ， 右 侧 表 达 式 会 在 标量 型 上 下 文中 求 值 ， 如 果 左 侧 变 

















量 是 数组 型 的 话 ， 右 侧 的 表达 式 则 会 在 列表 型 上 下 文中 求 值 。 
有 关上 下 文 处 理 的 知识 请 参阅 “从 STDIN 读 取 ” 一 节 。 
在 本 书后 面 章节 中 ， 读 者 还 将 看 到 很 多 用 到 上 下 文 的 示例 。 


示例 5.66 


他 msEeiaoeocEuneEcnEEoEsccnossow eess eeEES 


1 5$ Perldoc -fE zeverse 
IIETS ce ETTES 


Im List Context，LFeturns a ist Value consisting of the 
elLements of IIST in the cpposite orcdqez. 
ComeaesnmatsseneeismenmEs comS 开 = 2SiEUCTES 旺 SETIORYSNEUE 天 六 下 电站 三 


chacracters in the opposite oraez. 
(Te Perl Script) 
亲本 SEASOOEES 
ESE 汪 天 区 seD 


0 
六 罗 玫 二 二 三 证 总 让 和 本 有 和 全 是 55 


2 Qrevlist = reverse(Qlist) : 
司 Srevstr = reverse($stz) : 


4 neYREVSTSESES 王 37 症 六 FERIITSENRIY 


In scalLlaLr Context， 





变 重 703 
与 EGRENVETSESEESETEOOSRIET SEVEN 
6 S$newstring = FeVverse(QlList); Print "List reversed，， context 
Scanc SENSIEOIONTI 和 


Ourswue) 
国人 
四 
ResremseaSEa 0 
Reversea String Is: aJromw vvo7IIe 万 


于 


SEXeEESSSRA EEC Ce 局 是 站 天 六 六 玫 GO 人 ON2 全 50 


之 。 


在 Perl 内 建 的 Teverse 国 数 说 明文 档 中 ， 详 细 说 明了 上 下 文 的 概念 。 
reverse 畏 数 负责 翻转 一 个 数组 的 所 有 元 素 , 并 将 翻转 后 的 元 素 赋予 另 一 个 数组 。 该 操作 的 上 
开交 十 列 绽 型 和 











. 在 这 里 ,reverse 函数 又 负责 翻转 一 个 字符 串 的 所 有 字符 ,并 返回 一 个 标量 型 的 字符 串 。 其 上 
下 文 是 标量 型 的 。 
. 打印 翻转 后 的 数组 元 素 。 


5. 打印 翻转 后 的 字符 串 内 容 。 
6. 在 这 里 ,reverse 又 一 次 对 数组 进行 了 翻转 , 但 这 次 生成 的 数组 则 会 赋值 给 一 个 字符 串 。 由 于 


呆 5 





其 上 下 文 是 标量 型 的 ， 因 此 该 函数 会 翻转 数组 的 所 有 元 素 ， 然 后 把 列表 转换 为 一 个 字符 串 。 





读者 应 当 学 到 的 知识 


. 有 关 数 据 类 型 的 知识 。 


如 果 不 给 变量 赋值 的 话 ，Perl 会 赋予 它 什 么 初始 值 ? 
什么 是 特殊 标识 〈funny symbols) ? 

双 引 号 中 能 够 解释 哪些 数据 类 型 ? 

在 一 个 标量 型 变量 中 能 保存 多 少 个 数字 或 字符 串 ? 

“关联 数组 ”又 称 为 什么 ? 

在 散 列 中 ， 可 和 否 提供 名 称 相同 的 键 ? 可 否 为 同一 个 键 关 联 多 个 值 ? 
. 什么 是 列表 〈list) ? 

. 如 何 获知 数组 的 长 度 ? 

. 为 什么 数组 元 素 或 散 列 元 素 的 前 缀 是 $ ? 

. chop 和 chomp 函数 有 何 区 别 ? 

. 如 何 只 从 键盘 输入 25 字 节 内 容 到 一 个 变量 中 ? 

. splice 和 slice 有 哪些 区 别 ? 

. 如 何 对 数值 型 数组 进行 排序 ? 如 何 根据 值 对 散 列 进行 排序 ? 
. 什么 国 数 能 同时 解析 散 列 的 键 和 值 ? 

能 否 让 两 个 键 拥有 相同 的 名 字 ? 

. %SIG 散 列 的 用 途 是 什么 ? 

. 什么 是 环境 变量 ? 

.term 作用 域 是 什么 意思 ? 
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5.8 下 章 简 介 


下 一 章 将 探讨 Perl 运算 符 。 我 们 将 介绍 不 同 种 类 的 赋值 运算 符 、 比 较 和 逻辑 运算 符 、 代 数 运算 
符 以 及 位 运算 符 ; 然后 介绍 Perl 是 如 何 处 理 字符 串 与 数字 、 如 何 创 建 给 定 范围 的 数字 、 以 及 如 何 生 
成 随机 数 的 ， 最 后 介绍 一 些 特殊 的 字符 串 函 数 。 





练习 5 特殊 字符 


1. 编写 一 个 名 为 fgods.plx 的 脚本 ， 要 求 用 户 输入 最 受 吃 的 食物 ， 至 少 输入 5 种 。 然 后 把 食物 列表 
保存 到 标量 中 《这 样 就 无 法 检查 输入 了 多 少 种 食物 了 ， 不 过 不 必 在 意 这 个 )。 
a) 拆 分 标量 ， 并 创建 数组 。 
b) 打印 数组 内 容 。 
c) 打印 数组 的 第 一 个 和 最 后 一 个 元 素 。 
d) 打印 数组 元 素数 目 。 
e) 根据 数组 中 的 三 种 食物 ， 创 建 一 个 数组 分 片 ， 并 打印 其 内 容 。 
2. 给 定 一 个 数组 @names=qw(Nick Susan Chet Dolly Bill)， 编 写 一 个 Perl 语句 ， 分 别 完成 下 列 功 能 : 
a) 用 Ellie、Beatrice 和 Charles 替换 Susan 与 Chet 。 
b) 从 数组 中 删除 Bil 。 
c) 把 Lewis 和 Lzzy 添加 到 数组 尾部 。 
d) 从 数组 首部 移 除 Nick。 
e) 翻转 整个 数组 。 
人 把 Archie 添加 到 数组 开头 。 
g) 排列 整个 数组 。 
hb) 移 除 Chet 和 Dolly， 并 用 Christian 和 Daniel 代替 它们 。 
. 编写 一 个 名 为 elective 的 脚本 ， 创 建 如 下 散 列 : 
al) 它 的 键 是 一 些 数 字 编 码 : 2CPR2B、1UNX1IB、3SH414、4PL400。 
b) 它 的 值 是 一 些 课程 名 : C Language、JIntro to UNIX、Shell Programming、Perl Programming。 
c) 根据 值 的 顺序 对 这 个 散 列 进行 排序 ， 并 打印 排序 结果 。 
d) 请 用 户 输入 本 学 期 计划 选修 的 课程 编号 ， 然 后 依照 下 面 的 格式 打印 课程 内 容 。 
You will be taking Shell Programming this semesteT. 
. 修改 上 述 elective 脚本 ， 使 得 其 输出 类 似 于 如 下 格式 。 新 程序 将 要 求 用 户 输入 注册 信息 ， 并 从 菜 
单 中 选择 一 个 EDP 编号 。 接 着 程序 便 会 打印 相应 的 课程 名 。 用 户 在 输入 EDP 编号 时 无 需 考 虑 大 
小 写 问 题 。 最 后 ， 程 序 会 显示 一 行销 息 ， 确 认 用 户 的 地 址 并 感谢 登录 。 
REGISTRATION INFORMATION FOR SPRING QUARTER 
Today "s date is Wed Apr 19 17:40:19 PDT 2007 
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Please enter the following information: 
Your full name: Fred Z. Stachelin 
What is youIr Social Security Number (XXX-XX-XXXX): 004-34-1234 
Your address: 
Street: 1424 Hobart St. 
City, State, Zip: Chico, CA 959206 


变 重 705 





“FDP”NUMBFERS 4ND ELECTTFES: 





2CPR2B | C Progra1a1a1128 





7UNMNXI1B | 1atro lo UNMIT 





4PL400 | Per Programa1ai108 





3954714 | Sne1 Progra1a1101108 





What is the EDP number of the course you wish to take? 4p1400 
The course you will be taking is“Perl Programming.?” 


Registration confirmation will be Sent to your address at 
1424 HOBART ST. 
CHICO, CA 95926 


Thank you, Fred, for enrolling. 
5. 编写 一 个 名 叫 findem 的 脚本 ， 完 成 如 下 功能 : 

al) 读 取 文件 datebook 的 内 容 ， 并 赋予 一 个 数组 〈 该 文件 可 在 华章 网 站 (www.hzbook.com) 上 
找到 )。 

b) 请 用 户 输入 待 查 的 姓名 。 然 后 使 用 内 建 的 grep 国 数 查 询 数组 中 的 所 有 元 素 ， 找 到 含有 该 姓名 
的 元 素 ， 并 返回 符合 条 件 的 元 素 总 数 。 上 述 查 找 过 程 将 忽略 大 小 写 。 

c) 使 用 split 图 数 获取 当前 电话 号 码 。 

d) 使 用 splice 函数 将 当前 电话 号 码 赫 换 成 新 的 电话 号 码 , 或 者 利用 其 他 任何 内 建国 数 生 成 如 下 输出 ; 











矿 jpo are yoU SeacHi1zg 1or7 天 are7P 
历 1at is te 11ew Phone 1U1Der Jor Ka1ren2 530-222-1255 
Karem s Djpome 11aper is cuUrret0y 284-758-2857. 


ere 1 11e Le Showing te 1ew PHo1ze 71U1IDe 太 : 
天 ae1l BEVic1n:30-222-1255.23 Edgec1i Place Lincol NB 02086:7[25[53:85700 


天 Ga1e1z WaS JoU1G 1i70 11e a1r7ay 17ree 1i711eS. 


6. 编写 一 个 名 为 tellme 的 脚本 ， 打 印 datebook 文件 中 的 所 有 姓名 、 电 话 和 薪酬 数据 。 若 要 执行 该 
脚本 ， 请 键入 如 下 命令 : 
tellme datebook 
其 输入 应 当 遵循 如 下 形式 : 
9ala1J 74500 


Na11e: BelbD Doom 
Phone: 245-83 了 6-8357 


第 6 章 运 算 符 


6.1 关于 Per|l 运算 符 





在 现实 世界 中 ,操作 员 〈operator) 负责 操作 配 电 盘 、 计 算 机 、 推 土 机 、 坦 克 等 机 械 。 而 在 Perl 
中 ， 运 算 符 〈operator) 则 负责 操纵 数字 、 字 符 串 或 者 二 者 的 组 合 。 运算 符 是 一 些 能 根据 特定 的 规 
则 产生 计算 结果 的 符号 ， 艾 如 +、 一 、=、>、< 等 。 运 算 符 处 理 的 数据 对 象 即 为 操作 数 〈oprand )， 
譬如 在 表达 式 5 十 4 中 ，5 和 4 都 是 操作 数 。 表 达 式 中 含有 运算 符 和 操作 数 。 如 果 在 表达 式 末尾 加 
上 分 号 ， 就 得 到 了 一 个 独立 的 语句 ; 譬如 : n=5+4。 














sum = 5 + 才 二 
新 值 运算 符 ”操作 数 ”运算 符 ”操作 数 ”运算 符 ”操作 数 
数值 表达 式 











图 6-1 计算 一 个 表达 式 


数值 表达 式 5 十 4 一 2 中 含有 三 个 操作 数 ， 其 运算 符 是 十 号 和 一 号 。 其 中 ， 十 号 对 应 的 操作 数 
是 5 和 4， 该 运算 完成 后 ， 表 达 式 就 变 成 了 9 一 2。 全 部 计算 完毕 后 ， 整 个 表达 式 的 值 是 7。 由 于 加 
号 和 减 号 运算 符 都 只 能 处 理 两 个 操作 数 ， 因 此 它们 又 称 作 是 二 元 运算 符 (binary operator )。 如 果 能 
处 理 单 个 操作 数 的 话 ， 就 称 为 一 元 运算 符 (unary operator); 如 果 能 处 理 三 个 的 话 ， 则 称 为 三 元 运 
算 符 〈ternary operator )。 本 章 将 给 出 这 些 不 同类 型 运算 符 的 示例 。 

大 部 分 的 Perl 运算 符 都 继承 自 C 语言 ， 不 过 Perl 也 提供 了 自己 独特 的 运算 符 。9 












































6.2 混合 数据 类 型 


如 果 操 作 数 属 于 混合 类 型 〈 璧 如 数字 与 字符 串 ), Perl 会 首先 判断 运算 符 期 望 的 操作 数 类 型 , 然 
后 作 相 应 的 类 型 转换 。 这 个 过 程 又 称 为 运算 符 重 载 (overload )。 
如 果 运 算 符 是 数值 型 的 〈 如 代数 运算 符 )， 而 操作 数 却 是 字符 串 的 话 ，Perl 将 把 该 字符 串 转 换 





加 ”运算 符 既 可 以 是 符号 ， 也 可 以 是 字符 。 在 Perl 5 中 ， 如 果 省 略 了 函数 后 面 的 括号 ， 则 脚本 会 把 它 当 作 运 算 
符 来 使 用 。 











生生 


和 运 区 符 707 





为 相应 的 十 进 制 浮 点 数 。 未 定义 的 字符 串 值 会 转换 为 数字 0。 如 果 字 符 串 首部 拥有 空格 前 缀 ， 或 者 
末尾 带 有 非 数字 字符 的 话 ，Perl 会 忽略 它们 。 如 果 某 个 字符 串 无 法 转换 为 相应 数字 的 话 ，Perl 会 将 
其 变 成 0。 


入 七 去 守重 可 二 5 人 6 可 5 

SSstring2 = 47 

Snumber = S$stringl + S$string2， 井 NumerIc context 
Print "Number is Snumber.Nn"; # ResulIt Is 9 





同样 ， 如 果 Perl 碰 到 了 字符 串 型 运算 符 ， 而 相应 操作 数 是 数值 型 的 话 ， 便 会 将 数字 转换 为 字符 
进行 处 理 。 例 如 ， 下 面 使 用 了 连接 运算 符 ， 负 责 把 两 个 字符 串 连 接 到 一 起 。 








TTR 


Snumber1l = 557; 








Snumber2 = "22"; 

S$string = S$Snumber1l .Snumber2: # Context Is Strin9 

入 天 二 记 站， 下 有 七 到 而 可 让 二， 所 下 下 开 而 可 2 # ResuIt Is "55227 

表 6-1 如 何 把 字符 串 转换 为 数字 

字符 中 一 一 > 转换 为 一 > 数字 
"123 go!" 123 
"hi therev" 0 
"4e3" 4000 
-6# 灶 3XYZ0 -6 
".45611" 0.456 
"X.1234" 0 
机 0 


ESeenietay 

册 号 区 三 下 让 到 省 宙 二 Sieswn 5 

# Per 了 WII remove Jeaain9 Whitespace ana trai1zin9 Don=numnerIc 
# Characters 

2 ESG 人 

瑟 EN 


4 SS 三 二 XPRESS 
EN 


训 


1. 加 号 〈 十 ) 是 一 个 运算 符 。 字 符 串 “12hello” 和 “4abcm ”会 转换 成 数字 【〈 需 去 除 其 空格 前 
组 和 末尾 的 非 数字 字符 )， 然 后 再 执行 加 法 和 运算。 其 运算 结果 存储 到 标量 $x 中 。 

2. 打印 标量 $x。 

3. 由 于 在 转换 成 数字 时 会 把 mn 从 字符 串 4n 中 去 除 ， 因 此 在 打印 时 需要 提供 另 一 个 换行 符 汪 。 
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4. 点 号 〈.) 左右 都 是 空白 字符 , 因此 它 是 一 个 字符 串 运算 符 , 作用 是 连接 两 个 字符 串 。 在 本 行 
中 ， 数 字 5.5 将 先 转换 成 字符 串 ， 然 后 和 另 一 个 字符 串 ZAP 连接 在 一 起 。 
5. 打印 标量 8y 的 值 。 


6.3 ”优先 级 和 结合 性 


当 表达 式 中 含有 多 个 运算 符 和 操作 数 时 ， 运 算 结 果 就 有 不 止 一 种 可 能 。 这 时 就 需要 通过 优 
先 级 和 结合 性 来 告诉 编译 器 如 何 对 这 种 表达 式 求 值 。 所 谓 优 先 级 〈Precedence)， 指 的 是 运算 符 
结合 操作 数 的 能 力 。 艾 如 ， 乘 法 运算 符 结合 操作 数 的 能 力 要 强 于 加 法 运算 符 ， 因 此 具有 更 高 的 
优先 级 。 赋 值 运算 符 则 拥有 较 低 的 优先 级 , 因此 它 与 操作 数 的 结合 较为 松散 2。 括 号 拥有 最 高 的 
优先 级 ， 因 而 可 以 用 于 控制 表达 式 的 求 值 顺序 。 当 多 个 括号 骨 套 出 现时 ， 位 于 内 层 的 括号 拥有 
更 高 的 优先 级 。 

所 谓 结 合 性 〈Asscociativity)， 指 的 是 运算 符 计算 操作 数 的 顺序 : 从 左 到 右 、 未 规定 顺序 、 或 
者 从 右 到 左 。 

在 下 面 这 个 示例 中 ， 表 达 式 是 如 何 求 值 的 呢 ? 是 先进 行 加 法 、 乘 法 ? 还 是 先进 行 除法 ? 又 是 以 
何 种 顺序 呢 : 从 左 到 右 还 是 从 右 到 左 ? 


示例 6.2 
ES 
荆 人 
习 和 














asiunay 
凡 JE 


( 
[解释 

1. 本 行 的 结合 性 是 从 左 到 右 。 乘 法 和 除法 的 优先 级 高 于 加 法 与 减法 ， 而 加 法 、 减 法 的 优先 级 又 
高 于 赋值 运算 符 。 为 了 说 明 上 述 关系 ， 下 面 用 括号 组 合 了 各 个 操作 数 。 事 实 上 ， 如 果 需 要 强 
制 指定 优先 级 , 用 户 应 当 在 操作 数 两 边 加 上 括号 , 并 按照 期 望 的 求 值 顺序 对 操作 数 进行 组 合 。 
全 


2. 对 表达 式 求 值 ， 并 打印 结 采 到 STDOUT。 








表 6-2 总 结 了 Perl 运算 符 的 优先 级 和 结合 性 规则 .。 表 中 位 于 同一 行 的 运算 符 具 有 相同 的 优先 级 ， 
越 靠 前 的 行 优先 级 越 高 。 


表 6-2 ”优先 级 和 结合 














运算 符 描述 信息 结合 性 
OU 人 羡 函数 调用 ， 数 组 下 标 左 到 右 
-> 反 引 用 运算 符 左 到 右 





龟 ” 记 住 优 先 级 规则 的 一 个 简单 方法 : Please Excuse My Dear Aunt Sally。 它 分 别 表示 括号 、 乘 需 、 乘 法 、 除 
法 、 加 法 和 减法 运算 符 。 









































运 咎 符 709 
( 续 ) 
运算 符 描述 信息 结合 性 
+ 二 -- 自动 递增 、 递 减 无 
下 乘 震 右 到 左 
!1~\+- 逻辑 not、 位 not、 一 元 加 法 、 一 元 减法 右 到 左 
=~ !~ 匹配 、 不 匹配 左 到 右 
站 1 9 撤 乘 、 除 、 模 、 字 符 串 重复 左 到 右 
+-， 加 、 减 、 字 符 串 连接 左 到 右 
<< >> 按 位 左 移 、 右 移 左 到 右 
-T -WwW -x -0 等 运算 符 有 名 字 的 一 元 运算 符 ， 如 文件 测试 运算 符 等 无 
< <= > >= ltlegtge 数字 和 字符 串 测 试 ， 如 小 于 、 大 于 无 
== != <=> ed ne cmp 数字 和 字符 串 测 试 ， 如 等 于 、 不 等 于 无 
人 按 位 AND 左 到 碳 
|^ 按 位 OR 或 XOR 左 到 右 
&& 逻辑 与 AND 左 到 右 
|| 逻辑 或 OR 左 到 右 
范围 运算 符 无 
?: 三 元 条 件 运算 符 右 到 左 
= += -= #=- /= %= 赋值 运算 符 右 到 左 
=> 求 左 值 ， 丢 弃 之 ， 并 求 右 值 左 到 右 
not 等 效 于 ! ， 但 具有 较 低 优先 级 右 
and 等 效 于 && 左 到 右 
or xor 等 效 于 | 和 、^ 左 到 右 
6.3.1 赋值 运算 符 





等 于 号 (一 ) 是 
C 语言 的 赋值 和 快速 赋值 语句 。 





种 赋值 运算 符 ， 能 将 等 于 号 右 侧 的 值 赋予 左边 的 变 


量 。 表 6-3 展示 了 继承 























表 6-3 ”赋值 运算 符 
运算 符 示例 含 
= $var = 5; 把 5 赋予 变量 $Sval 
村 Srar+= 3; 把 $val 值 加 上 3， 并 把 结果 再 存 和 人 $vyal 
和 $var -= 2; 把 $val 值 减 去 2， 并 把 结果 再 存 和 人 $val 
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〈 续 ) 

运算 符 示例 含义 

二 $str .= "ing"; 将 原 字 符 串 与 “ing” 连 接 ， 并 将 结果 赋予 $str 

“ $var *= 4; 把 $val 值 乘 以 4， 并 把 结果 再 存 和 人 $val 

/= S$var /= 2; 把 $val 值 除 以 2， 并 把 结果 再 存 和 人 $val 

二 $var **# 一 2; 把 $val 值 平方 后 再 在 和 人 $val 

%= $var %= 2; 把 $val 值 除 以 2， 并 把 余数 存 和 人 $val 

X 一 $str x= 20; 把 字符 串 $str 重复 20 次 后 存 和 人 $str 

<<= S$var <<= 1; 把 $val 左 移 1 位 ， 并 把 结果 再 存 和 人 $val 

>> 一 $var >>= 2; 把 $val 右 移 2 位 ， 并 把 结果 再 存 人 $val 

信 = $var &= 1; 把 $val 值 和 1 逐 位 AND， 并 把 结果 再 存 和 人 $val 

属 $var |= 2; 把 $val 值 和 2 逐 位 OR， 并 把 结果 再 在 入 $val 

二 $var ^= 2; 把 $val 值 和 2 逐 位 XOR， 并 把 结果 再 存 和 人 $val 


























ESCrcnoEny 











#1!1/usz/bin/per1 

亚 Sname="Dan" 
SVar=07 SO 

昌 SS aaa 3 to 5Svar” same as Svar=5var+3 
De 有 SET 

已 See 三 三 要 1 2 
ENSO 

4 Sa 三 25 SGduare Svar 


TANSVSTE EU 


号 人 MoauJIus 
LOE SEE 下 全 计 息 和 








6 Sname .= "ielle"; Concatenate Strin9 "Dan"” ana "ieJ7Ie" 
Gramnesnmanme 是 7ecscneEEDSTRNNOEY 
以 S$1Line x= 10:， 本 


辣 人 本 人 放 人 二 
8 有 


(ORGUEN) 

忆 3 

习 已 2 三 

4 5Svar SG9uUarea Is 4 

5 Zhe Femazinaer of 5Svar/3 is 了 

6 用 naewneeEOEEEOS eeESionO 已 二 7 


生生 


和 运 站 符 7717 





光 赤 光 光 光 寺 光 光 光 光 


RE 


| 


其 


. 将 等 于 号 右 侧 值 赋值 给 等 于 号 左 侧 的 标量 型 变量 。 

. 赋值 运算 符 += 负责 给 标量 $var 加 3， 等 效 于 $var = $var+3 。 

. 赋值 运算 符 -= 负责 给 标量 $var 减 1， 等 效 于 $var = $var-1。 

. 赋值 运算 符 **= 负责 给 标量 $var 计算 平方 值 ， 等 效 于 $var = $var**#2 。 

. 运算 符 % 负责 计算 标量 $var 除 以 3 的 余数 。 该 运算 符 又 称 作 模 数 运算 符 或 者 余数 运算 符 。 
表达 式 $var%=3 等 效 于 $var=$var%o3 。 

6. 运算 符 . 负责 将 字符 串 “ielle” 与 标量 Sname 相连 ， 等 效 于 $name=$name."ielle"。 

7. 重复 运算 符 是 一 个 三 元 运算 符 。 甚 右 侧 的 操作 数 是 左边 字符 串 型 操作 数 的 重复 次 数 。 标 量 $line 

的 值 是 将 星 号 〈*) 重复 10 次 。 
8. 使 用 printf 函数 格式 化 并 打印 两 个 浮 点 数 的 和 。 


6.3.2 ”关系 运算 符 


关系 运算 符 用 于 比较 操作 数 的 逻辑 关系 ,其 比较 结果 是 逻辑 真 〈true) 或 者 假 (false) 8。Perl 
提供 了 两 类 关系 运算 符 ， 其 中 一 类 用 于 比较 数字 ， 另 一 类 则 负责 比较 字符 串 。 用 户 在 磁 到 ielse、 
while 循环 等 语法 结构 时 往往 需要 使 用 这 些 关 系 运 算 符 。 璧 如 ; 

和 

本 书 将 在 第 7 章 讨论 条 件 量 相 关 知 识 。 

表达 式 〈5>4>2) 会 抛 出 语法 错误 ， 因 为 它 不 符合 结合 性 要 求 〈 详 见 表 6-2 )。 

数值 型 关系 运算 符 。 表 6-4 列举 了 所 有 数值 型 的 关系 运算 符 。 


表 6-4 ”关系 运算 符 与 数值 





ni 人 总 一 






































运算 符 示例 含义 
> $x > $y $x 大 于 $y 
>= $x >= $y $x 大 于 或 等 于 $y 
< $x < $y $x 小 于 $y 
<= $x <= $y $x 小 于 或 等 于 $y 





ESG 

7 

SS 三 4 
芋 Sresult = Sx > Sy: 
罗 SESSION 人 





全 “和 其 他 多 种 编程 语言 一 样 ，Perl 也 不 支持 特别 的 布尔 型 数据 类 型 ， 而 是 通过 数值 1 或 0 来 表示 “true” 和 
“false”。 不 过 ， 任 何 非 0 的 表达 式 值 都 可 以 表示 true， 而 ! 1 则 表示 false; 譬如 : while(1) 或 者 让 !1 等 。 
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忆 Sresult = S$Sx < $yY; 
4 IO SSEUEE7 


WOUwEsuey) 

包 加 

4 0 
解释 : 


1. 如 果 反 大 于 $y， 则 返回 1《〈 真 )， 并 将 其 保存 到 $result 中 ， 否 则 返回 0〈 假 )。 


2. 表达 式 的 值 是 真 ， 因 此 把 $result 的 值 1 打印 到 STDOUT 。 





3. 如 果 $x 小 于 $y， 则 返回 1〈 真 )， 并 将 其 保存 到 $result 中 ， 人 否则 返回 0《〈 假 )。 


4. 表达 式 的 值 是 假 ， 因 此 把 $result 的 值 0 打印 到 STDOUT。 


字符 串 型 关系 运算 符 。 字 符 串 型 关系 运算 符 通过 把 前 一 个 字符 串 操 作 数 中 每 个 字符 的 ASCII 码 
值 与 后 一 个 字符 串 中 对 应 字符 的 码 值 相 比 较 ， 从 而 完成 对 两 个 操作 数 的 比较 。 上 述 比 较 过 程 将 包括 


字符 串 末 尾 的 空白 字符 。 





如 果 前 一 个 字符 串 中 某 个 字符 的 ASCII 码 值 比 后 一 字符 串 中 相应 字符 的 码 值 高 的 话 ， 返 回 1; 


否则 就 返回 0。 
表 6-5 列举 了 所 有 字符 串 型 关系 运算 符 。 


表 6-5 ”关系 运算 符 与 字符 串 值 





运算 符 示例 含义 
gt $strl gt $str2 $strl 大 于 $str2 
ge $strl ge $str2 $strl 大 于 或 等 于 $str2 
1t $strl lt $str2 $strl 小 于 $str2 
le $strl le $str2 $strl 小 于 或 等 于 $str2 





示例 6.5 
加 同 ESETeoty 
下 SET 一 
2 站 刁 GESRD7 
号 SEE 
4 1 


员 SE7 


3 忆 GE 放 可 下 让 E 丁 国 二 用 
6 1 下 辣 入 信 下 写 局 让 

OUWE 二 

4 于 

6 O 


1. 把 字符 串 pear 赋值 给 标量 $fruit1l 。 
2. 把 字符 串 perR 赋值 给 标量 $fruit2 。 


3. 在 比较 $fruitl 和 $fruit2 中 的 每 个 字符 时 ， 会 发 现 + 与 R 之 前 的 每 个 字符 都 相等 。 小 写字 母 
r 的 ASCII 码 值 是 114， 而 大 写字 母 R 的 码 值 则 是 82。 由 于 114 大 于 82， 因 此 字符 串 比 较 





结果 是 1〈 真 )。 
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4. 由 于 表达 式 为 真 ， 因 此 把 $result 值 1 打印 到 STDOUT。 


5. 与 上 述 第 3 行情 况 正 好 相反 。 由 于 大 写字 母 尺 的 ASCII 码 值 (82) 小 于 小 写字 母 的 码 值 
(114)， 因 此 字符 串 比 较 结果 是 0〈 假 ) 即 peaR 小 于 pear。 
6. 由 于 表达 式 为 假 ， 因 此 把 $result 值 0 打印 到 STDOUT。 


6.3.3 ”相等 性 运算 符 


相等 性 运算 符 既 能 处 理 数值 型 操作 数 ， 也 能 处 理 字 符 串 型 操作 数 〈 详 见 表 6-6 和 表 6-7)。 但 


请 读者 务必 在 比较 数字 时 使 用 数值 型 相等 性 运算 符 ， 在 比较 字符 串 时 则 应 使 用 字符 串 型 相等 性 运算 
符 。 例 如 ， 如 果 读 者 给 出 这 个 表达 式 : 


"5 cats "== "5 QqQogs" 

















则 该 表达 式 的 值 将 是 true。 为 什么 ? 这 是 因为 Perl 看 到 的 是 一 个 数值 型 相等 性 运算 符 ==， 期 
望 其 操作 数 都 是 数字 ， 而 不 是 字符 串 。 因 此 ，Perl 会 把 “5 cats” 转 换 成 5， 同 时 把 “5 dogs” 也 转 
换 成 数字 5S， 显 然 5 等 于 5$。 故 而 上 述 表达 式 值 为 真 。( 在 进行 转换 时 ，Perl 会 从 字符 串 的 左边 开始 
扫描 数字 。 如 果 磁 到 的 字符 是 数字 。 就 保存 它 ， 如 果 碰 到 了 非 数 字 字 符 ， 则 退出 转换 过 程 。) 








表 6-6 ”相等 性 运算 符 与 数字 值 



































运算 符 示例 含 义 
= 一 $numl == $num2 $numl 等 于 $num2 
!= $numl != Snum2 $numl 不 等 于 Snum2 
<=> $numl <=> $num2 比较 Snuml 和 $num2 的 大 小 。 
如 果 $numl 大 于 Snum2， 返 回 1; 
如 果 $numl 等 于 $num2， 返 回 0; 
如 果 $numl 小 于 $num2， 则 返回 -1 
表 6-7 ”相等 性 运算 符 与 字符 串 值 
运算 符 示例 含 义 
ed S$strl eq $str2 $strl 等 于 $str2 
ne $strl ne $str2 $strl 不 等 于 $str2 
cmp $strl cmp $str2 比较 $strl 和 $str2 并 返回 带 符号 整数 











数值 型 相等 性 运算 符 。 数 值 型 相等 性 运算 符 通 过 比较 操作 数 〈 数 字 ) 的 大 小 来 返回 表达 式 值 。 
如 果 数 字 相 等 的 话 ， 返 回 真 〈1);， 如 果 不 相 等 ， 则 返回 假 〈0 )。 


ee 比较 两 个 操作 数 的 大 小 ， 如 果 第 一 个 操作 数 小 于 第 二 个 操作 数 ， 就 返 
; 如 果 相 等 则 返回 0， 如 果 第 一 个 操作 数 大 于 第 二 个 操作 数 ， 就 返回 1 。 














示例 6.6 
ESemnethy 
SF 
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1714 多 0 
生 汉 分 
世 Sresult = $Sx == $yY; 
飞 TEN 


3 Srzesult = Sx != S$y; 
4 同人 

忆 Sresult = $xX <=> Sy; 
6 疝 玫 下 疝 生生 三 二 焉 NE 





凤 Sresult = $Yy <=> S$SxX; 
IN 





GE 

昌 O 

4 则 

6 卫 

8 三 
解释 : 





1. 如 果 $x 等 于 $y， 就 返回 1〈 真 )， 并 将 其 保存 到 $result 中 ， 和 否则 返回 0《〈 假 )。 
2. 由 于 表达 式 的 值 是 假 ， 因 此 把 $result 的 值 0 打印 到 STDOUT。 

3. 如 果 $x 不 等 于 $y， 就 返回 1〈 真 )， 并 将 其 保存 到 $result 中 ， 否 则 返回 0《〈 假 )。 
4 

司 





. 由 于 表达 式 的 值 是 真 ， 因 此 把 Sresult 的 值 1 打印 到 STDOUT。 


. 比较 标量 3$x 和 $y 的 值 。 如 果 反 大 于 $y， 返 回 1， 如 果 $x 等 于 3y， 返 回 0， 如 果 $x 小 于 


$y， 则 返回 有 符号 整数 -1。 
6. 由 于 $x 大 于 $y， 因 此 把 $result 的 值 1 打印 到 STDOUT。 


7. 比较 标量 3y 和 $x 的 值 。 如 果 $y 大 于 $3x， 返 回 1， 如 果 $7 等 于 $x， 返 回 0， 如 果 $y 小 于 


$x， 则 返回 有 符号 整数 -1。 
8. 由 于 $x 小 于 $y， 因 此 把 $result 的 值 -1 打印 到 STDOUT。 


字符 串 型 相等 性 运算 符 。 字 符 串 型 相等 性 运算 符 通过 把 第 一 个 操作 数 中 每 个 字符 的 ASCII 码 值 
与 第 二 个 操作 数 相 应 字符 的 码 值 相 比 较 ， 从 而 完成 对 两 个 操作 数 的 比较 。 上 述 比较 过 程 将 包括 字符 


串 末 尾 的 空白 字符 。 


如 果 前 一 个 字符 串 中 某 个 字符 的 ASCII 码 值 比 后 一 字符 串 中 相应 字符 的 码 值 高 的 话 ， 返 




















回 1; 


如 果 两 个 字符 串 的 所 有 字符 码 值 相等 的 话 ， 就 返回 0;， 如 果 前 一 个 字符 串 中 某 个 字符 的 ASCII 码 值 


上 





上 后 一 字符 串 中 相应 字符 的 码 值 低 的 话 ， 则 返回 -1。 


ESnsalonsi 

疙 SEE 
EGR 
SS 
TESTESUEN 
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4 Se 上 是 二 和 SS EPE2EEmE 硬 SSE 了 
TEN 


汪 SS 不 用 生 三 交 人 2 # Now Poth strings are eG9ual 
6 SSSTH 二 和 SSETRCmE 本 3 二 207 
ES 


(GEGIE) 
站 0 

2 几 

引 三 学 

4 浊 

6 O 
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1. 把 标量 $strl 赋值 为 A, 把 标量 $str2 赋值 为 C。 如 果 $strl 等 于 $str2 的 话 , 返回 真 (1)。 将 
它 赋值 给 变量 $result， 并 打印 该 变量 的 值 。 

2. 如 果 $strl 不 等 于 $str2， 则 返回 真 (1)。 将 它 赋 值 给 $result,， 并 打印 该 变量 值 。 

3. 当 比 较 $strl 和 $str2《〈 即 对 字符 串 中 的 每 个 字符 进行 比较 ) 时 ， 如 果 所 有 的 字符 都 相等 ， 把 
返回 值 0 赋予 变量 $result。 如 果 $strl 大 于 $str2， 返 回 1， 如 果 $strl 小 于 $str2， 返 回 -1。 
本 例 中 ，$strl 是 小 于 $str2 的 。 然 后 打印 $result 的 值 。 

4. 这 里 翻转 了 比较 的 顺序 。 由 于 $str2 是 大 于 $strl 的 ， 因 此 结果 是 1。 然 后 打印 $result 的 值 。 

5. 将 $strl 赋值 为 C， 即 和 $str2 的 值 相同 。 

6. 现在 $strl 是 等 于 $str2 的 。 由 于 它们 的 所 有 字符 都 相同 ,因此 将 返回 0， 并 赋 给 $result。 最 
后 打印 $result 的 值 。 











SS 


# Don't use == When You should use ed! 
业 SX = "yes"; 
Sy 三 
ENOUESEE 证 二 
也 人 # Should be S$Sx eq S$y 
人 ES 
由 ES 
2 王 所 局 必 王 SS 忆 下 
解释 : 


1. 分 别 将 标量 $Sx 和 $y 赋值 为 字符 串 yes 和 no。 

2. 这 里 错误 地 使 用 数值 型 相等 性 运算 符 == 处 理 两 个 字符 串 。Perl 将 把 这 两 个 字符 串 转换 成 数 
字 。 由 于 其 中 不 包含 任何 数字 字符 ， 因 此 这 两 个 字符 串 都 会 转换 为 0〈 零 )。 由 于 0 等 于 0， 
因此 得 到 结果 是 1〈 真 )。 事 实 上 应 当 在 这 里 使 用 字符 串 型 相等 性 运算 符 eq。 


6.3.4 远 辑 运算 符 〈 短 路 运算 符 ) 


短路 运算 符 会 从 左 到 右 依 次 测试 每 个 操作 数 的 真 假 与 否 。 当 汪 足 一 定 的 真 假 条 件 后 ， 就 不 再 进 
行进 一 步 求 值 。 与 C 语言 一 样 ，Perl 的 短路 运算 符 不 返回 0〈 假 ) 或 者 1〈 真 )， 而 是 返回 最 后 一 个 
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操作 数 的 值 。 用 户 一 般 会 在 条 件 语句 《〈 详 见 第 7 章 “ 条 件 语 句 ”) 中 用 到 这 些 运算 符 。 

如 果 运 算 符 广 & 左 侧 的 表达 式 值 为 0， 则 整个 表达 式 的 值 就 是 0。 如 果 该 运算 符 左 侧 表达 式 的 
值 是 真 〈 非 0) 的话， 才 继 续 对 右 侧 表达 式 求 值 并 返回 其 值 。 

逻辑 运算 符 也 可 通过 and、or 或 not 来 表达 , 但 是 后 者 的 优先 级 较 低 。 详 情 请 参阅 表 6-2。 如 果 
运算 符 几 左 侧 的 表达 式 值 为 真 〈 非 0)， 即 立刻 返回 该 表达 式 的 值 。 如 果 其 左 侧 表达 式 的 值 为 假 , 才 
会 继续 求 出 运算 符 右 侧 表达 式 的 值 并 返回 之 。 

表 6-8 列 出 了 所 有 逻辑 运算 符 。 


表 6-8 逻辑 运算 符 〈 短 路 运算 符 ) 














































































































运算 符 替代 格式 示例 含 义 
人 人 and $x && $y 如 果 $x 为 真 ， 则 评价 并 返回 $y 的 值 

$x and $y 如 果 $x 为 假 ， 则 评价 并 返回 $x 的 值 
| or S$x || $y 如 果 $x 为 真 ， 则 评价 并 返回 $x 的 值 

S$x or $y 如 果 $x 为 假 ， 则 评价 并 返回 $y 的 值 

Xor S$x xor $y 当 $x 和 $y 中 有 且 仅 有 一 个 为 真 时 ， 返 回 真 

! not 1$x 非 $x。 当 S$x 为 假 时 返回 真 。 

Dot $xX 


esScrnoty 
#! /USsAPInZPer 了 
和 仙人 六 全 六 靖 计 全 区 让 全 下 二 C 记 
也 Snum1=50: 
测 Snum2=1007 
马 Snum3=0: 
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| 
训 


MD oo ~ 人 了 WwWwDD 一 


. 把 标量 $numl 赋值 为 0。 


把 标量 $num2 赋值 为 100。 
把 标量 $num3 赋值 为 0。 


. 由 于 && 运算 符 左 侧 表达 式 Snuml 的 值 不 是 0 〈 即 为 真 ), 返回 && 运算 符 右 侧 表达 式 Snum3 的 值 。 
. 由 于 && 运算 符 左 侧 表达 式 $num3 的 值 为 0〈 假 )， 返 回 表达 式 $num3 的 值 。 

. 由 于 && 运算 符 左 侧 表达 式 $numl 的 值 为 真 ， 返 回 && 右 侧 表达 式 $num2 的 值 。 

.由 于 && 运算 符 左 侧 表达 式 $numz2 的 值 为 真 ， 返 回 && 右 侧 表达 式 Snuml 的 值 。 

. 由 于 | 运算 符 左 侧 表达 式 Snuml 的 值 非 0〈 即 为 真 )， 返 回 表 达 式 Snuml 的 值 。 

. 由 于 | 运算 符 左 侧 表达 式 $num3 的 值 为 0〈 即 为 假 )， 返 回 | 右 侧 表达 式 Snuml 的 值 。 





10. 由 于 | 运算 符 左 侧 表达 式 $numl 的 值 非 0《〈“ 即 为 真 )， 返 回 表达 式 $numl 的 值 。 
11. 由 于 咱 运 算 符 左 侧 表达 式 Snumz2 的 值 非 0《〈 即 为 真 )， 返 回 表 达 式 $num2 的 值 。 


6.3.5 ”逻辑 字 运 算 符 


es 但 其 功能 基本 相同 。 它 们 能 让 程 











序 更 加 易于 理解 , 并 且 也 具有 短路 特性 。 除 了 常见 的 短路 运算 符 外 , 罗 辑 字 运 算 符 还 增添 了 一 个 xor 
( 异 或 ) 运算 符 。 


示例 6.10 
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1 . 为 标量 $numl、$num2 和 $num3 赋 初 值 。 


.and 运算 符 能 评价 其 两 个 操作 数 的 值 。 由 于 $numl 和 $num2 都 为 真 〈true)， 因 此 会 返回 后 


一 个 操作 数 的 值 ， 得 到 100。 由 于 100 不 等 于 0， 因 此 整个 表达 式 的 值 为 真 。 





. ofr 运算 符 评 价 其 两 个 操作 数 的 值 。 因 为 Snuml 为 真 ， 而 逻辑 字 运 算 符 也 有 短路 性 ， 因 此 当 





第 一 个 表达 式 为 真 时 就 不 必 继 续 求 值 。 其 返回 值 是 50， 也 为 真 。 
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4. xor《〈 蜡 或 ) 运算 符 评价 其 两 个 操作 数 的 值 ， 它 没有 短路 性 。 如 果 基 中 有 且 仅 有 一 个 操作 数 
为 真 ， 就 返回 1， 如果 两 个 操作 数 都 是 真 或 都 是 假 ， 则 返回 假 。 

5. 逻辑 not 运算 符 只 处 理 其 右 侧 的 操作 数 。 如 果 操 作 数 为 真 ， 返 回 假 ;， 如 果 操 作 数 为 假 ， 则 返 
回 真 。 


示例 6.11 


ES 
# Precedaence with wora operators ana short-circuzt operators 
SX=5)” 
DY 
7 

中 SresulLt=Sx && S$SYy && $z:; 站 ESGECESSDCSE NE 人 SR 
ERESUUE SEESORENOD 


汉 $result2 = $x and $y and $z; # Preceaence of = hi9her than anda 
ERESUE SESSION 


3 S$result3 = ( S$Sx and S$Sy and S$Sz ) ; 
RSS RESNDL 


ou 

也 Resuat: 0 
习 Re 二 二 
悦 Resua7tc: 0 
驻 

由 


. 逻辑 短路 运算 符 能 评价 每 个 表达 式 ， 并 返回 最 后 一 个 表达 式 的 值 。 本 行 把 变量 $result 赋值 
为 0。 由 于 && 运算 符 比 等 于 号 的 优先 级 高 ， 因 此 先 由 逻辑 运算 符 对 该 表达 式 求 值 。 
2. 这 里 用 到 了 逻辑 字 运 算 符 ， 它 的 优先 级 低 于 等 于 号 。 本 行将 把 等 于 号 右 侧 第 一 个 表达 式 的 值 
赋予 $result2 。 
3. 通过 为 等 于 号 丰 侧 的 表达 式 添 加 括号 ， 便 能 先 求 该 表达 式 的 值 ， 并 将 其 结果 赋值 给 $result3 。 


6.3.6 ”算术 运算 符 
表 6-9 列 出 了 Perl 提供 的 所 有 算术 运算 符 。 





表 6-9 ”算术 运算 符 
运算 符 示例 含义 
十 $x+$y 加 法 
$x-$y 减法 
$xx*$y 乘法 
/ $x/$y 除法 
% $x%Sy 模 运 算 〈 求 余数 ) 


玉米 YY 乘 需 


运 算 符 0 





示例 6.12 
(The Scipt) 
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吕 出 
解释 : 
1. prin 好 国 数 会 把 算术 表达 式 的 计算 结果 格式 化 为 十 进 制 数 。 本 行 执行 了 乘法 和 除法 和 运算。 这 


两 个 运算 符 的 优先 级 相同 ， 结 合 性 为 从 左 到 有 有， 等 效 于 (4*5)/2。 
2. printf 国 数 会 把 算术 表达 式 的 计算 结果 格式 化 为 十 进 制 数 。 乘 需 运 算 符 负责 计算 操作 数 5 的 
至 光 记 ， 等 效 科 3 。 
. printf 函数 会 把 算术 表达 式 的 计算 结果 格式 化 为 十 进 制 数 。 由 于 乘法 运算 符 的 优先 级 高 于 减 
法 ， 因 此 首先 进行 乘法 运算 ， 在 从 左 到 右 结 合 。 等 效 于 5+4-(2*10)。 
4. printf 国 数 会 把 算术 表达 式 的 计算 结果 格式 化 为 十 进 制 数 。 由 于 括号 具有 最 高 优先 级 ， 因 此 
这 里 首先 计算 位 于 括号 中 的 乘 寡 操作 。 
. printf 国 数 会 把 算术 表达 式 的 计算 结果 格式 化 为 十 进 制 数 。 模 数 运算 符 负 责 获得 两 个 操作 数 
相 除 的 余数 。 


6.3.7 ”自动 递增 与 自动 递减 运算 符 


自动 递增 和 自动 递减 运算 符 继承 自 C 语言 ( 详 见 表 6-10)。 自 动 递 增 运 算 符 能 把 操作 数 加 1, 而 
自动 递减 运算 符 则 能 对 操作 数 减 1。 当 用 于 单个 变量 时 ， 这 两 种 运算 符 只 不 过 是 传统 的 加 1 或 减 1 
操作 的 快捷 方式 而 已 。 但 当 把 它们 用 于 赋值 语句 ， 或 者 与 其 他 运算 符 结 合 使 用 时 ， 其 最 终 运算 结果 
就 取决 于 运算 符 的 具体 位 置 了 《〈 详 见 表 6-11 )。 


LD 


(LA 














表 6-10 自动 递增 和 自动 递减 运算 符 

















示例 描述 等 价 形式 
二 +$xX 前 递增 $x 一 $x 十 1 
$x++ 后 递增 $x 一 $x 十 1 
--$x 前 递减 4 三 4 一 ] 
S$x-- 后 递减 $x 一 $x 一 1 


表 6-11 自动 递增 和 自动 递减 运算 符 与 赋值 运算 





示例 描述 等 价 形式 结果 
如 果 红 和 37 都 为 0 将 $x 的 值 赋予 sy， 然 后 递增 Sx $y-Sx:$x-Sx+1， $y 为 0，$x 等 于 1 





$y=$x+ 二 
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( 续 ) 
示例 描述 等 价 形式 结果 
和 汪 和 于 证 入 0。 先 通 增 8x， 然 后 将 8x 的 值 峡 子 sy Sx=Sxtrl8y-Sx: 3y 为 1; gx 等 于 1 
3 汪 和 于 定 鸭 9 将 8x 的 值 工 乎 8y， 然 后 递 诚 Sx Sy-SxiSxrSx-1; 3$y 为 0，Sx 等 于 -1 
和 和 和 为 0 先 赴 减 Sx， 然 后 将 Sx 的 值 冉 也 sy。 Sx-Sx-1Sy-Sx 3y 为 -1， 9x 等 于 -1 


示例 6.13 


Et 
村 SEE 


也 SxX=57 $Yy=0， 

久 SS 区 于 直人 全 
了 全 

4 站 

本 商 二 下 次 放生 册 汪 是 下 和 且 5 

6 加 芋 半 着 证 二 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 二 一 一 NE 

也 S$xX=57 

8 Sy=0; 

9 疝 王 玫 宙 国王 本 六 让 全 生息 和 要 和 生生 和 

闫 中 国有 证 
1 

区 

we 

电 PPFe=-Increment: 

4 2 

5 区 

习 Post=Iincrement 


2 
2 


执行 前 


OA SS5 
让 首先 递增 $x， 然 后 把 它 的 值 赋 给 $y。 
了 后 


Syry+3x 


执行 前 


执行 后 首先 把 $x 的 值 赋 给 $y， 然后 递增 9x。 
下 
SY=9x+H 


图 6-2 ”前 递增 和 后 递增 运算 符 
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6.3.8 位 逻辑 运算 符 


位 运算 简介 。 人 们 一 般 都 用 十 进 制 来 表示 数字 ， 十 进 制 数 以 10 作为 基数 ， 甚 范围 是 从 0 到 9， 
譬如 : $100000 以 及 1955 等 。HTML 颜色 编码 则 是 十 六 进 制 格式 的 ， 甚 基数 为 16， 数 字 范 围 从 0 
到 15， 璧 如 #0OOFFFF 代表 青色 ， 而 好 FOOFF 代表 洋红 色 。 计 算 机 则 是 以 二 进 制 形式 保存 所 有 信息 
的 ， 其 基数 是 2。 二进制 数值 系统 仅 使 用 0 和 1 这 两 个 数字 就 能 表达 所 有 数 ， 其 中 每 个 0 或 者 1 都 
称 作 是 一 个 “位 ”(bit)。 读 者 看 到 的 所 有 信息 都 是 以 位 的 形式 存储 的 。 一 个 字 节 由 8 个 位 组 成 ,一 
个 字 (word) 由 2 个 字 节 或 16 个 位 组 成 。 最 后 ，2 个 字 在 一 起 可 以 组 成 一 个 双 字 (dword)， 它 由 
32 个 位 组 成 。 计 算 机 只 用 0 和 1 来 表达 所 有 信息 ， 这 是 因为 可 以 用 电流 出 现 与 否 来 表达 这 两 个 值 。 
倘若 芯片 上 的 电 度 达到 了 某 个 值 ， 就 表示 1,， 否则 就 是 0。 只 用 两 个 数字 的 话 , 构建 计算 机 硬件 会 比 
用 更 多 数字 《如 10 个 或 者 16 个 ) 显得 更 容易 也 更 便宜 。 因 此 计算 机 以 二 进 制 方式 保存 所 有 信息 。 

位 运算 符 。 目 前 几乎 所 有 的 处 理 器 都 是 基于 32 位 数 构建 的 。 例 如 ，Win32 这 个 名 称 就 来 源 于 
其 Win32 编译 器 的 默认 字 长 是 32 位 。 位 运算 符 人 允许 用 户 打 开 或 关闭 某 个 整数 内 的 特定 位 。 例 如 ， 
如 果 要 为 文件 设 定 一 个 只 读 标 志 位 ， 用 户 只 需 设 定 两 个 值 : 开启 (on) 或 关闭 〈off)， 表 示 为 1 或 
0。 如 果 左 右 参 数 均 为 字符 串 的 话 ， 位 操作 符 便 会 对 字符 串 内 各 个 字符 进行 处 理 。 

位 运算 符 将 其 操作 数 视 为 一 组 32 个 位 〈0 和 1)， 而 非 十 进 制 、 十 六 进 制 或 八进制 数字 。 例 如 ， 
十 进 制 数 9 的 二 进 制 形式 是 1001。 尽 管 位 运算 符 是 以 位 的 形式 执行 运算 的 ,但 其 最 终结 果 则 是 标准 
的 Perl 数值 形式 《参见 示例 6.13 )。 如 果 读 者 需要 处 理 图 像 、 游 戏 、 加 密 、 广 册 表 、 或 设置 开关 等 
其 他 需要 进行 “ 纯 位 运算 ”的 操作 ， 就 会 感受 到 位 运算 符 的 有 用 之 处 了 。 一 般 而 言 ， 此 类 运算 应 当 
用 更 高 级 的 编程 语言 (如 C 和 Java) 来 处 理 。 

如 果 读 者 准备 在 位 层面 处 理 整 数值 的 话 ， 就 需要 用 到 位 逻辑 运算 符 。 位 朋 辑 运算 符 是 一 系列 二 
元 运算 符 ， 负 责 以 内 部 二 进 制 格式 处 理 位 于 其 两 侧 的 操作 数 。 位 运算 符 会 对 操作 数 逐 位 进行 比较 ， 
并 产生 相应 的 二 进 制 值 〈 详 见 表 6-12 和 表 6-13 ) 。 


表 6-12 位 逻辑 运算 符 























































































































运算 符 示例 含义 
你 $x &$y 逐 位 与 
| $x |$y 逐 位 或 
“ $x ^ $y 逐 位 异 或 
<< $x << 1 逐 位 左 移 ， 整 数 乘 以 2 
>> $x >> 1 逐 位 右 移 ， 整 数 除 以 2 


表 6-13 ”位 运算 符 的 执行 结果 





$x $y $x & $y $x | $y $x ^ $y 
0 0 0 0 0 
0 1 0 1 1 


] 0 0 ] 


] 1 ] ] 0 
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示例 6.14 


ES 














于 NE 加 
色 ET OO 
3 站 OO 
4 Ge ON 000 & 了 I00 
瑟 1 Print 10 equal siIgns 
6 EN 0071 & 了 I00 
融 人 | 本 人 他 
8 EN | 国人 
9 人 DO 
人 Print 10 equal signs 
OO 人 
TS 开本 天 
AN 0 
多 汪 证 人 人 DO 
(GuEGUE) 
了 
多 0 
有 0 
4 0 
5 三 三 三 三 三 三 三 三 三 三 
6 本 
允 本 
8 4 
9 4 
0 是 居 六 
了 本 国有 
2 了 
3 
解释 : 
1. 5 逐 位 与 4 得 到 二 进 制 值 100， 即 十 进 制 值 4。 
2. 5 逐 位 与 0 得 到 二 进 制 值 000， 即 十 进 制 值 0。 
3.4 逐 位 与 0 得 到 二 进 制 值 000， 即 十 进 制 值 0。 
4. 0 逐 位 与 4 得 到 二 进 制 值 000， 即 十 进 制 值 0。 
5. x 运算 符 让 print 函数 打印 10 个 等 于 号 。 
6. 1 逐 位 或 4 得 到 二 进 制 值 101， 即 十 进 制 值 5 。 
7. 5 逐 位 或 0 得 到 二 进 制 值 101， 即 十 进 制 值 5。 
8.4 逐 位 或 0 得 到 二 进 制 值 100， 即 十 进 制 值 4。 
9. 0 逐 位 或 4 得 到 二 进 制 值 100， 即 十 进 制 值 4。 





10. 5 逐 位 异 或 4 得 到 二 进 制 值 001， 即 十 进 制 值 1。 
11. 5 逐 位 异 或 0 得 到 二 进 制 值 101， 即 十 进 制 值 5。 
12. 4 逐 位 异 或 0 得 到 二 进 制 值 100， 即 十 进 制 值 4。 
13. 0 逐 位 异 或 4 得 到 二 进 制 值 100， 即 十 进 制 值 4。 


示例 6.15 


noisense 上 气动 


和 和 


并 符 723 


售 





人 生生 
# Copvert aa numpber to DPIinary 


业 while (1) 1{ 
2 Smask = 0x80000000: 盯 国 党 多 一 局 起 本 站 二 已 记 证 沫 过 
相 EAIEEEmnEUSTONECORUEESSEES ON 
4 GOTE<SUOENS 克 
号 Eee 
6 En 
这 SiSmas 汪 Sn TO 
8 人 
于 下 谎 晤 相 全 三 症 3) 
0 1 
上 

朱江 Smask /=2; # SmasKk >>= 1”Dnot Portap7Te 

1 

TEN 

】} 

(GERUEY) 


Enter an unsziognea Inte9er:， 1】 

人 7 
Enter an UnsigneaQ inte9er: 5 

二 2 人 全 入 作 人 人 人 大作 作 人 OO 和 人 有 大 放大 天真 加 帮 下 次 和 OO 
0 00 EToCoSeSUEESICAESS CS 上 0 

三 让 交配 交 雪人 大 作风 和 人 全 大 全 大 全 克 帮 人 作 大 帮 OO 
Enter an unsziognea Inte9er:， 2 
ER 
Enter an unsIiognea Inte9er: 15 
ED 
Enter an unsIonea Inte9er” 200 

ENEESV 2 公公 估 天 公关 OO 0 庆生 情 帮 扩大 人 


1. 这 个 小 程序 引入 了 一 些 尚 未 介绍 的 结构 ， 但 这 里 本 意 是 为 了 展示 如 何在 完成 实际 任务 时 使 
用 上 述 逐 位 操作 《在 此 将 把 数字 转换 为 二 进 制 数 并 打印 )。 从 第 一 行 开 始 循环 执行 ， 直 到 用 
户 按 下 <Ctrl>-c (在 UNIX 下 ) 或 <Ctrl>-d〈 在 Windows 下 ) 为 目 。 
. 把 标量 值 设 置 为 表示 32 个 0 的 二 六 进 制 值 。 本 示例 只 能 运行 在 32 位 计算 机 上 。 
. 要 求 用 户 输入 一 个 整数 。 
. 把 该 数值 赋予 变量 ， 并 执行 chomp 换行 符 。 
. printf 国 数 将 以 十 六 进 制 格式 打印 变量 值 。 
. for 循环 重复 友 代 32 次 ， 每 次 处 理 一 位 。 
.用 $mask 对 $num 逐 位 进行 与 运算 。 如 果 结 果 是 1， 则 把 1 赋值 给 Sbit;， 否则 就 把 0 赋值 给 
它 〈 详 见 后 面 的 “条 件 运 算 符 ”一 节 内 容 )。 
8. 打印 $bit 的 值 。 
9. 如 果 $j 的 值 是 15 的 话 〈 表 明 该 循环 已 经 欠 代 了 16 次 )， 打 印 两 个 下 划 线 。 
10. 用 $mask 的 值 除 以 2。 该 操作 等 效 于 右 移 1 位 ， 但 不 会 移动 符号 位 。 


6.3.9 条 件 运 算 符 


条 件 运算 符 是 另 一 种 继承 自 C 语言 的 语法 结构 。 它 带 有 三 个 操作 数 ， 因 此 又 称 作 三 元 运算 符 。 
它 是 ibelse 结构 的 简便 形式 。 








~ 人 上 hi 








多 
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格式 : 

ConmadenonmaexpreSsmcn2 eesisuon :EXEesScmn 
示例 6.16 

SS 


解释 ， 
如 果 $x 值 为 真 true) 的 话 ,表达 式 取 值 为 yy 的 值 。 如 果 Sx 值 为 假 〈 名 lse) 的 话 ,表达 式 则 
取 值 为 $z 的 值 。 


示例 6.17 
WeiSCenistny 
1 
2 chomp ($age=<STDIN>) ; 


AN 


3 SPrice=(S$age > 60 ) ? 0 : 5.55:; 
4 EN 


Use 
WPpat Is Your a9e? 44 
4 5 


OUWEeUey) 
二 
4 OO 内 0 


解释 : 
1. 将 字符 串 What is your age? 打印 到 STDOUT。 
2. 从 终端 键盘 读 取 输 入 ， 并 保存 到 标量 $age 中 ， 同 时 删除 换行 符 。 
3. 将 条 件 运算 符 的 结果 赋值 给 $price。 如 果 age 值 大 于 60， 则 把 价格 赋 为 问号 〈? ) 右 侧 的 
值 ; 否则 就 将 冒号 〈: ) 右 侧 的 值 赋 给 标量 $price。 
4. prin 寻 把 格式 化 后 的 字符 串 打 印 到 STDOUT。 








示例 6.18 
人 ssecmpty 
业 1 
乳 S$Sgrade = <STDIN>， 
色 Print S$grade > 60 ? "Passed.N\n" : "Failed.Nn" 
weemey 
出 WPphat Was your 9Frace2 76 
电 SEEYEi 必 
ouEeway) 
加 pat was your 9raaqe2? 34 
悦 Pa7JeaQ.， 
解释 : 


1. 要 求 用 户 提供 输入 。 

2. 将 输入 值 赋 给 标量 Sgrade。 

3. 将 条 件 表达 式 的 运算 结果 作为 参数 交 给 print 国 数 打印 。 如 有 果 成 绩 大 于 60， 打 印 Passed， 否 
则 打印 Failed 。 





运 站 每 725 





6.3.10 范围 运算 符 


范围 运算 符 即 可 用 于 标量 上 下 文 ， 也 可 用 于 数组 上 下 文 。 在 标量 上 下 文 语 境 中 ， 返 回 值 将 是 一 
个 布尔 值 ， 即 1 或 者 0。 在 数组 上 下 文中 ， 则 会 返回 一 个 列表 ， 其 中 从 左 到 右 第 一 个 元 素 是 范围 的 
左边 界 ， 然 后 逐一 递增 ， 直 到 磁 到 范围 的 右边 界 为 止 。 


示例 6.19 


了 im 下 ON 
OA 











2 
En 有 sismsn 
ES 


引 QQa=('"a'..! 
NS 


ERE 0 


4 一 
ENT 
下 


区 和 
1. 打印 从 0 到 10 的 所 有 整数 。 
2. 创建 一 个 名 为 @alpha 的 数组 , 并 把 从 A 到 Z 的 所 有 大 写字 母 存 和 到 该 数组 中 。 其 上 下 文 语 
境 是 数组 型 的 。 然 后 打印 该 数组 内 容 。 
3. 创建 一 个 名 为 @alpha 的 数组 ， 把 所 有 小 写字 母 存 和 一 个 列表 ， 并 将 所 有 大 写字 母 存 人 另 一 
个 列表 。 然 后 打印 该 数组 内 容 。 
4. 创建 一 个 名 为 @n 的 数组 ， 存 和 人 位 于 -5 和 20 之 间 的 所 有 整数 。 然 后 打印 该 数组 内 容 。 


6.3.11 特殊 字符 串 运算 符 和 函数 


用 户 能 够 对 字符 串 执行 许多 种 操作 。 璧 如， 可 以 通过 连接 运算 符 将 两 个 字符 串 连 起 来 ， 或 者 通 
过 字符 串 重 复 运 算 符 反复 连接 指定 数目 的 重复 字符 串 。 

Perl 还 提供 了 一 些 支持 字符 串 操作 的 特殊 函数 〈 详 见 表 6-14)。 其 中 substr 国 数 能 从 原 字 符 串 
中 截取 指定 的 子 串 ， 该 子 串 从 某 一 偏 移 量 开 始 ， 直 到 偏 移 量 右 侧 的 指定 字符 数 结束 。index 函数 能 
返回 指定 子 串 在 原 字符 串 中 第 一 次 出 现 的 偏 移 位置 。 而 length 函数 则 可 以 获取 给 定 表 达 式 中 的 字符 
总 数 。 























表 6-14 ”字符 串 运算 符 
示 例 售 义 


$strl . $str2 连接 字符 串 $strl 与 $str2 








$strl x Snum 将 $strl 重复 Snum 次 
Substr($strl, $offset , $len) 在 $strl 中 截取 从 $offset 开始 长 度 为 $len 的 子 串 











多 上- 立 












































126 和 0 部 
〈 续 ) 
示 例 含义 
index($strl, $str2) 返回 $str2 在 字符 串 $strl 中 首次 出 现 的 位 置 
length( EXPR ) 返回 表达 式 EXPR 的 长 度 
rindex($str Ssubstr POSITION) 返回 $supstr 在 字符 串 $str 中 最 后 一 次 出 现 的 位 置 ， 如 果 规 定 了 
POSITION， 则 从 该 处 开始 处 理 ， 否 则 就 从 字符 串 末尾 开始 处 理 
chr( NUMBER) 返回 ASCIL 码 值 为 NUMBER 的 字符 。 例 如 ，chr(65) 将 返回 字母 A 
lc ($str) 返回 小 写字 符 串 
uc ($stD) 返回 大 写字 符 串 








示例 6.20 


ESSee 
#1!1V/usz/bin/pPper1 
Sx="Pop7": 
Eee 

六 区 二 人 
ES 站 0 
GE 
CTUEESZ 荆 二 二 OPE 
onefSx ESYZE 


RICE 苹 WOUEOEE 


EN 
EEC 区 人 


《SGco 


[GUN 二 SEE 


人 


Popcorn 
0 


ERORGORN 


$yY) ， 


NS 
Na 
NT 


) 式 


Ai NA 


忆 


) 渤 


站 


PIT TO 在 有 关 喜 

1 三 SCEE 全 有 辣 向 可 本 交 攻 22 
放 P7I ETO 是 天 志 

# Copcatenate "pop"” ana "corn 
# 


EN 


# _ Convert Strin9 to uppercase 


Deo7 DERODODEO 天 7 和 GOOD 和 OPEC 


将 标量 $x 赋值 为 pop 。 
见 


( 
4 
号 
6 
| 
9 
泽 
1 
昌 | 
4 
写 
0 
以 
8 


. 将 标量 $z 赋值 为 *。 


吕 


将 标量 $y 赋值 为 corn。 


反复 连接 10 次 字符 串 *， 然 后 打印 到 STDOUT 。 

连接 字符 串 $x 的 值 pop 与 字符 串 $y 的 值 cormn， 然 后 打印 到 STDOUT。 
把 字符 串 $z 的 值 * 反复 连接 10 次 ， 然 后 打印 到 STDOUT。 

将 字符 串 pop 和 corn 反复 连接 5 次 ， 然 后 打印 到 STDOUT。 

把 一 个 换行 符 打印 到 STDOUT。 
uc 国 数 能 把 字符 串 转 换 为 大 写 形式 ， 而 lc 国 数 则 能 把 字符 串 转 换 为 小 写 形式 。 


示例 6.21 


(The Sciupt) 


由 $1Line="Happy New Year"; 


在 和 


并 符 727 





EPEESUDSEE(SLOIeRG ES)R AL， 前 OAFSSEESEE 天 二 552ERO 
Pint index($1ine，"Yeaz")，"ANn" 7 
nEOSEESIITERETOE 人 ITIE 全 芭 朋 有 
Substzr($1Line，0，0)="Ered，"; 
站 
SUSSIEEISIROTS 和 D 有 全 全 全 可 避 
ET 
SO 
OSIe AND 
二 SENRRES SEE5 有 CS 忆 人 ON 
inQealtSS<EEII EEC)N ON 
UGmEeReUe) 
Nemw 
过 加 
Year 
FFeQ， Happy New Year 
五 teJzreaQ，Happy New Year 
五 teJreaQ，Happy New Year Lo youl/ 
包 同 2 


FAGTECOOTESNEE OO 


解释 : 
1. 把 标量 $line 赋值 为 Happy New Year。 
2. 把 原 字符 串 Happy New Year 的 子 串 New 打印 到 STDOUT。 其 偏 移 量 从 字 节 0 开始 ,其 子 串 


(LA LD 


oo 


的 起 始 位 置 是 第 6 位 N， 持 续 长 度 是 3 个 字符 。 返 回 子 串 New。 


.index 函数 负责 返回 子 串 在 原 字符 串 中 第 一 次 出 现 的 位 置 。 其 中 ， 子 串 Year 是 从 第 10 位 开 


. 本 行 把 substr 函数 和 index 函数 混合 使 用 。 其 中 ,index 函数 负 





始 的。 请 注意 ， 位 偏 移 量 必须 是 0。 
责 返 回 子 串 Year 的 开始 位 置 。 
而 substr 国 数 则 把 index 国 数 的 返回 值 当 作 子 串 的 开始 位 置 。 其 返回 的 子 串 是 Year。 


. 把 子 串 Fred 插入 原 字 符 串 的 起 始 位 置 ， 即 字 节 0 处 ， 并 越过 标量 $line 的 长 度 0: 即 字 符 串 


的 忆 全 本 


.把 $line 的 值 打印 到 STDOUT。 

. 把 子 串 Ethel 插入 原 字 符 串 的 起 始 位 置 ， 即 字 节 0 处 ;并 越过 标量 $line 的 长 度 1。 

.将 $line 的 最 新 值 Ethelred，Happy New Year 打印 到 STDOUT。 

. 把 子 串 rto you ! 追加 到 标量 $line 上 ， 从 子 串 的 末尾 开始 ， 越 过 1 个 字符 。 

10. 将 $line 的 最 新 值 Ethelred，Happy New Year to you ! 打印 到 STDOUT。 

11. 给 标量 $string 赋值 。 

12. rindex 函数 负责 从 右 向 左 找 出 第 一 个 tom 子 串 ,并 返回 其 下 标 位 置 。 其 结果 18 是 从 字符 惠 








开头 的 第 0 个 字符 开始 计数 的 。 换 而 言 之 ， 它 是 子 串 tom 在 tomorrow 中 的 起 始 位 置 。 


6.3.12 ”算术 函数 


除了 算术 运算 符 外 , Pedl 还 提供 了 一 系列 内 建 的 算术 国 数 , 用 于 计算 各 种 算术 表达 式 〈 详 见 表 6-15)。 




















表 6-15 ”Perl 的 内 建 算术 函数 























atan2(Y,X) 返回 Y/X 的 余 切 (arctangent) 值 ， 其 范围 是 -PI 到 PI 
cos(EXPR) 返回 表达 式 EXPR〈 以 角度 单位 表示 ) 的 余弦 〈cosine) 值 
cos EXPR 如 果 疫 有 提供 EXPR 值 ， 则 对 $_ 求 余弦 值 
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exp(EXPRJ) 
exp 了 EXPR 
int(EXPR) 
int EXPR 
log(EXPR) 
log EXPR 
rand(EXPR) 
rand 下 XPR 
rand 
Sin(EXPR) 
Sin EXPR 
sqrt(EXPRJ) 
Sqrt EXPR 
Srand(EXPRJ) 


Srand EXPR. 


以 


以 


返 





e 为 底 求 EXPR 的 寡 数 


如 果 没 有 提供 EXPR 值 ， 则 求 exp($_) 
返回 EXPR 的 整数 部 分 
如 果 没 有 提供 EXPR 值 ， 则 对 $_ 求 整数 部 分 


e 为 底 求 EXPR 的 对 数值 





如 果 没 有 提供 EXPR 值 ， 则 对 3$_ 求 对 数 


回 一 个 介 于 0 和 EXPR 之 间 的 随机 数 〈EXPR 必须 是 正 数 ) 
































如 果 没 有 提供 EXPR 值 ， 则 返回 0 到 1 之 间 的 随机 数 


请 参考 srand() 函数 


返 


返 





回 表 达 式 EXPR 〈 以 角度 单位 表示 ) 的 正弦 〈sine) 值 


如 果 没 有 提供 EXPR 值 ， 则 对 3$_ 求 正 引 值 





回 EXPR 的 平方 根 





如 果 没 有 提供 EXPR 值 ， 则 对 $_ 求 平方 根 
为 求 随机 数 操作 设 定 种 子 〈seed) 值 


如 果 没 有 提供 EXPR 值 ， 则 等 效 于 srand (time) 


























此 外 ， 在 一 个 名 叫 List:Util 的 包 中 ，CPAN 还 提供 了 一 些 较为 少见 的 通用 工具 国 数 ， 包 括 : 
firstD)、max(0、maxstrO、min0、minstr(O)、reduce(O)、shuffle(O) 以 及 sum()。 详 见 http://perldoc.Perl. 


org/ListVUtil.html#DESCRIPTION 。 


生成 随机 数 。 当 在 Web 上 查找 有 关 随 机 数 生 成 的 介绍 时 , 读者 会 发 现 ,与 之 相关 的 一 个 领域 就 
是 Game > Gambling > Lotteries > Ticket Generators 。 赌 博 和 彩票 非常 依赖 随机 数 的 生成 ;其 他 一 
些 高 级 程序 也 依赖 于 随机 数 , 譬如 在 Web 上 传递 信息 时 需要 使 用 不 可 预测 的 随机 加 密 密 钥 来 保证 加 


密 协 议 的 安全 性 。 








由 程序 生成 的 随机 数 又 称 为 伪 随 机 数 。 正 如 Ian Goldberg 和 David Wagner 在 有 关 Web 安全 性 
的 著作 中 所 曾 述 的 ， 真 正 的 随机 数 只 有 在 自然 界 才能 找到 ， 璧 如 放射 性 元 素 的 半衰期 。 除 了 使 用 外 
部 来 源 ， 计 算 机 还 不 得 不 自己 生成 这 些 数字 。 但 由 于 计算 机 本 身 是 确定 性 的 ， 因 此 这 些 数 字 并 非 真 
的 是 随机 的 8。 如 果 用 户 需 要 在 Perl 程序 中 生成 随机 数 , 可 使 用 其 内 建 的 rand 函数 。 本 节 后 面 将 详 





细 介 绍 该 函数 的 用 法 。 


















































rand/srand 函数 。rand 国 数 能 够 返回 介 于 0 和 1 之 间 的 伪 随 机 分 数 。 如 果 EXPR 值 为 正 数 ,rand 
国 数 则 会 返回 介 于 0 和 EXPR 之 间 的 伪 随机 数 。srand 函数 负责 为 rand 函数 设置 随机 数 种 子 值 ， 不 
过 如 果 读 者 使 用 的 是 5.004 以 上 版 本 的 Perl， 则 已 经 不 再 需要 这 个 国 数 了 。 随 机 数 种 子 本 身 也 是 一 
个 随机 数 , Perl 会 把 它 提供 给 随机 数 生成 器 ,作为 将 要 生成 的 新 随机 数 的 起 始 数字 。 通 过 为 rand 国 
数 提供 随机 数 种 子 并 使 用 复杂 的 算法 ,程序 便 可 产生 位 于 某 一 范围 内 的 随机 数 。 如 果 为 rand 国 数 设 















































鱼 Goldberg. 工 Wagner. D.,“Randomness and the Netscape Browser. How Secure ls the World Wide Web?” 
DIr. Dobb s Journal, http://www.ddjc.comyarticles/1996/9601h/9601h.html。 
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定 了 相同 的 随机 种 子 值 ， 则 它们 产生 的 随机 数 序列 将 是 相同 的 ;而 不 同 的 随机 数 种 子 值 则 会 产生 不 
同 的 随机 数 序列 。 一 般 把 当前 时 间 值 作为 默认 的 随机 数 种 子 值 , 不 过 现在 用 户 还 可 通过 Perl 指定 更 
为 复杂 的 种 子 。 


格式 : 
zand (下 XPR) 
ii 
这 本 关 @ 


Strand (EXPR) 
ED 的 六 


示例 6.22 
人 EEC 
PT 人 向 o 二 0 入 si = o 
并 Snum=10: 
多 Srand(EaneliSS) 有 基肥 及 攻 疝 居 太 人 有 二 证 训 本 
# the Pia of this Process 
电 while(Snum) { # Srana not necessary in Versions 5.004 ana apove 
4 $1Lotto = int(zand(10)) + 1 
# Returns a ranaom number betmween 了 ana 了 0 
写 nEORIEEESTQUSmEOUIUSET 是 SEONTE 
Sleep 37 
人 IE 


】 


OUEeUG) 

号 TpPpe Fanaom Dumper 工 S 
TPpe ranaom Dumper 工 S 
TpPpe Fanaom Dumper 工 S 
7TpPpe ranaom Dumper 工 S 
7TpPpe ranaom Dumper 工 S 
7TPpe Fanaom Dumpbper 工 S 
7TPpe ranaom numper Is 
7TPpe ranaom Dumper 工 S 
7TPpe ranaom Pumpber 工 S 


QN 尽 人 尽 mho、vo nn 


7TPpe ranaom numper Is 


释 : 

1. while 循环 在 第 7 行 用 到 了 $num 的 值 ， 友 代 执 行 了 10 次 。 

2. Srand 国 数 把 rand 函数 的 随机 数 种 子 设 定 为 惟一 的 值 ,为 此 将 内 建 的 time 国 数 所 返回 内 容 
Perl 程序 的 进程 号 〈 变 量 $$ ) 逐 位 进行 或 COR ) 运算 。 

. While 循环 迭代 执行 10 次 。 

4.rand 国 数 返 回 介 于 1 到 10 之 间 的 随机 整数 〈 包 括 1 和 10)。 然 后 把 该 值 赋 给 $lotto 。 

5. 打印 随机 数字 的 值 。 





业 


LD 





示例 6.23 
SSEemnety 
#1!V/usz/bin/per1 
下 S$Sx=5 7 # StartIzn9 Point in a ran9e of numpers 


730 





心 


(O 


Sy=151; 井 了 nazin9 PozmnEt 


# FEormula to Proauce Franaom Pumpbers betmween 5 ana 15 incJIusive 
上 
证 交 玫 二 国生 和 作 二 亲 有 全 
while(1L)(! 
TeEIDEIEand(SYEE 二 STEELTEESCRRNO 
Sleep 1 
} 


Eee) 


5 


了 4 
与 
了 0 
几 天 
6 
3 
6 
有 
JU 


\D oo ~ 人 下 wmw 上 wiib 一 


10 
11 


. 标量 $x 负责 指定 rand 函数 生成 随机 数 范围 的 起 始 值 。 

. 标量 $y 负责 指定 rand 函数 生成 随机 数 范围 的 未 尾 值 。 

. 启动 while 无 限 循 环 。 如 要 退出 , 用 户 必 须 按 下 <Ctrl>-d (UNIX) 或 <Ctrl>-z (Windows )。 
.为 rand 国 数 提供 一 个 能 够 产生 1 到 15 之 间 《〈 包 括 1 和 15) 整数 的 公式 。 

. Sleep 国 数 使 程序 暂停 1 秒 钟 。 


读者 应 当 学 到 的 知识 


. 操作 数 (operand) 这 个 词 是 什么 意思 ? 

. Perl 是 如 何 处 理 表 达 式 "$cats"+21 的 ? 

. Perl 是 如 何 处 理 表达 式 23 . 43 的 ? 

. 什么 是 自动 递增 运算 符 ? 

. 什么 是 伪 随 机 数 ? 

.edq” 和 “==” 之 间 有 什么 差别 ? 

.“and” 和 “区 & ”含义 相同 吗 ? 

. 什么 是 三 元 运算 符 ? 

.Perl 是 如 何 借助 关系 运算 符 比 较 字 符 串 大 小 的 ? 





.“and” 和 “or” 之 间 有 什么 差别 ? 
.有 人 和 “and” 含 义 相同 吗 ? 


友和 


和 运 区 符 737 





12. 相等 性 运算 符 在 优先 级 表 中 的 位 置 在 哪里 ? 

13. 相等 性 运算 符 的 结合 性 是 从 左 到 右 ， 还 是 从 右 到 左 ? 
14. Perl 的 哪个 函数 能 够 截取 字符 串 的 一 个 子 串 ? 

15. 什么 函数 能 把 字符 串 转 换 为 大 写 形式 ? 

16. 什么 运算 符 能 够 让 字符 串 重复 出 现 ? 

17. 什么 运算 符 能 够 把 字符 串 连 接 到 一 起 ? 











6.5 下 章 简 介 





在 下 一 章 内 容 中 ， 我 们 将 介绍 Perl 的 控制 结构 。 包 括 : 如 何在 证 或 unless 结构 中 判断 条 件 是 
否 为 真 〈true); 如 何 阻止 语句 执行 ;如何 借 助 循环 结构 反复 执行 一 条 或 多 条 语句 ;以 及 如 何 跳出 循 
环 、 使 用 标签 与 代 套 循环 。 


练习 6 
1. 打印 精确 到 2 位 小 数 的 三 个 浮 点 数 的 平均 什 。 
2. 下 面 表 达 式 的 另外 两 种 写法 是 什么 ? 
$x=$x+l; 
. 以 缩写 方式 重 写 如 下 表达 式 : 
$y=3$y+5; 


4. 计算 一 个 房间 的 大 小 ， 长 、 宽 、 高 分 别 为 12.5、9.8、10.5 英尺 。 
5. 计算 15 的 平方 ， 并 打印 结果 。 


ULD 








6. 下 面 这 段 程序 的 输出 结果 是 什么 ? 
85E 5 
8D = 人 
gc = 25.0; 
8d = 3.0: 


PHi1 太 (4 CA4GG=261j 了 十 SC 
DriatrfraVv dya+c=%21n ga718d xs8ga+gc)， 
PDFi1z 太 (2261 gres = gc 15- 2) 

Dripatr (2%6d = 2%6d + 0 8g1resu1t = 9D + gc 80，8c)， 
PDFizt 矿 (29601287resuL == 890 


7. 给 定 变 量 值 Sa=10、$b=3、$c=7、$d=20， 打 印 $result 的 值 : 








a.$result=($a>=9$b)K&&(Sc<$d); 
print "$result\n'"; 

b.$result=($a>=$b)and($c<$d); 
print "9$result\n"; 

c.$result =($a<$b) | (9$c<=$d ); 
print "$result\n'"; 

d.$result=($a< 9$b) or ($c<=$d ); 
print "$result\n"; 

e.$result = $a % $b; 
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8. 编写 一 段 名 叫 convert 的 程序 ， 利 用 下 面 这 个 公式 将 华氏 温度 转换 成 摄氏 温度 : 
C 三 (E-32)/1.8 
9. 创建 舍 有 如 下 5 句 话 的 数组 : 
"471aDPle da day Feeps t 太 e doctor away “ 
”Procrastiaation 1 17e 妨 ie 太 oj 1i712e7 
“THe ear1y Dira catcjnes tpne Wo 
“Bazadsomre 18 as ja11dso1ie does” 
“7oo 1Ia11] CooOHs SPDoi 1Pe pyrot” 
希望 在 每 次 执行 脚本 时 都 随机 输出 其 中 一 句 话 。 提 示 : 只 需 把 数组 下 标 设置 为 随机 数 即 可 。 
10. 下 面 这 个 公式 负责 根据 贷款 时 限 和 每 月 固定 利率 来 计算 每 月 应 还 款 数 。 请 编写 一 个 Perl 表达 式 
来 描述 该 公式 的 逻辑 。 其 中 : P 是 预期 债务 总 额 ; 5 是 每 月 利率 《〈 年 利率 除 以 12); na 是 还 款 周 
期 (对 于 30 年 贷款 而 言 ,，n 等 于 30X12 = 360)， 而 A 则 是 每 月 应 偿还 数额 。 
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《1 + 丛 
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7.1 控制 结构 、 块 与 复合 语句 


人 们 通过 各 种 各 样 的 决定 来 计划 日 常生 活 ， 程 序 也 是 如 此 。 图 7-1 就 显示 了 这 样 一 张 疲 程 图 。 
流程 图 是 程序 内 部 疲 程 的 一 种 图 形 化 表达 形式 。 它 可 以 帮助 开发 人 员 确 定 完成 指定 的 任务 需要 作 哪 
些 选 择 。 很 多 计算 机 专业 书籍 都 这 样 写 道 ， 一 种 优秀 的 编程 语言 应 当 为 用 户 提供 如 下 三 种 程序 流程 
控制 手段 : 

”顺序 执行 一 系列 语句 。 

”根据 判断 的 结果 ， 从 两 条 语句 路 径 中 选择 一 条 执行 。 

”不 断 重 复 执 行 一 系列 语句 ， 直 到 某 些 条 件 值 得 到 汪 足 。 















































我 们 要 做 什么 事 ? 


到 达 目 的 地 





图 7-1 一 张 疲 程 图 





到 现在 为 止 ， 本 书 介绍 的 示例 脚本 结构 都 是 线性 的 ， 即 一 条 接 一 条 地 执行 简单 的 语句 。 除 此 之 
外 ， 借 助 分 支 语 句 和 循环 语句 这 样 的 控制 结构 ， 用 户 还 能 根据 某 些 条 件 表达 式 的 取 值 来 改变 程序 控 
制 流 的 走向 。 

判断 结构 (Cif、igelse、iBels igelse、unless 等 ) 含有 决定 革 个 代码 块 (block) 是 否 执行 的 条 
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件 表达 式 。 循 环 结构 (while、until、for 或 foreach) 则 能 让 程序 反复 执行 某 个 代码 块 ， 直 到 指定 条 
件 得 以 满足 。 

复合 语句 (又 称 为 代码 块 ) 是 由 花 括号 包围 起 来 的 一 组 语句 。 代 码 块 在 语法 上 等 效 于 单个 语句 ， 
并 常用 于 计 、else、while 或 for 结构 的 后 面 。C 语言 并 不 强制 要 求 为 代码 块 提 供 花 括 号 。 但 Perl 与 
C 不 同 ， 即 使 在 证 、else、while 等 之 后 只 出 现 单个 语句 ，Perl 也 要 求 程序 提供 花 括号 。 本 书 将 在 第 
8 章 中 介绍 条 件 修 饰 符 ， 它 能 在 单个 语句 中 实现 条 件 判断 过 程 。 


判断 一 一 条 件 结构 


计 和 unless 语句 。 让 和 unless 语句 后 面 一 般 会 跟着 一 个 位 于 小 括号 之 间 的 条 件 表达 式 , 其 后 则 
是 由 一 个 或 多 个 语句 构成 的 代码 块 。 这 些 块 都 位 于 花 括 号 之 间 。 

让 语句 是 一 种 条 件 语句 。 它 能 够 判断 表达 式 的 值 ， 并 根据 判断 结果 做 出 选择 。 表 达 式 都 位 于 括 
号 里 面 。 与 C 语言 不 同 ，Perl 程序 是 在 字符 串 上 下 文中 为 表达 式 取 值 的 。 如 果 字 符 串 非 空 ， 则 表达 
式 的 值 为 真 ;， 如 果 字 符 串 为 空 ， 则 表达 式 的 值 是 假 。 如 果 表 达 式 的 值 是 数字 ， 则 要 先 把 它 转换 成 字 
符 串 ， 然 后 再 判断 其 值 。 如 果 表 达 式 值 为 真 〈 非 空 )， 则 执行 下 一 个 代码 块 ， 如 果 条 件 表达 式 为 假 
《 空 值 )，Perl 就 会 名 略 与 该 表达 式 相 关联 的 代码 块 ， 直 接 跳 转 到 脚本 中 的 下 一 个 可 执行 代码 块 。 

unless 语句 的 结构 与 证 语句 完全 相同 ， 它 只 是 把 判断 的 结果 反 转 一 下 。 如 果 表 达 式 值 为 假 ， 就 
执行 下 一 块 ， 如 果 表 达 式 值 为 真 ，Perl 就 会 包 略 与 该 表达 式 相 关联 的 代码 块 。 

计 结 构 。 在 让 语句 中 ， 首 先 出 现 的 是 其 关键 字 计 ， 然 后 是 条 件 表达 式 ， 甚 次 是 位 于 花 括 号 里 面 
的 一 个 或 多 个 语句 组 成 的 代码 块 。 块 中 每 个 语句 都 以 分 号 0; ) 结尾 。 聚 合 在 一 起 的 代码 块 往往 又 称 
作 复 合 语句 。 



























































格式 


ai GaSSSSSESD ELEessl 

SERIESOTUREIEIOECREEeiee 让 Se 

DeSsenBEOCIT SSE 但 二 EeeSiSicnl 
TBTocJRRAUESSHEULOSIS 


WEST 


由 ESNWEediqd 基 ss GE 
受 chomp ($age = <STDIN>) ， 
局 if ($age >= 21 ){ # IF true enter the DPIocK 
4 Pint "Let's PartyINn" ; 
上 
号 Greg Yonssaa own SEN 
人 WUEBIE 


人 

下 Eow oa are you2? 32 

4 IST LS ED 

与 Yo sa7zQ 7You Were 32. 


emeawegy 
下 Jojw oo 必 ED 
5 You sazaQ you were 了 0 . 


条 件 7135 





1. 要 求 用 户 输入 年 龄 。 

2. 为 标量 $age 赋值 。 

3. 检查 标量 $age 的 值 。 如 果 该 值 大 于 或 等 于 21 〈 也 就 是 说 表达 式 值 为 真 ), 则 开始 执行 第 4 行 
的 代码 块 。 

4. 如 果 用 户 年 龄 大 于 21, 则 打印 本 行内 容 。 两 边 的 花 括 号 不 是 可 有 可 无 的 , 而 是 必须 提供 的 ! 

5. 不 论 让 代码 块 是 否 得 以 执行 ， 程 序 控制 流 总 会 到 达 这 一 行 语 句 。 


iffelse 结构 。 让 语句 的 另外 一 种 形式 是 ilelse 结构 。 该 结构 支持 双 路 选择 。 如 有 果 证 后 面 第 一 个 
表达 式 的 值 为 真 ， 就 执行 让 后 面 的 语句 ; 否则 ， 如 果 让 后 面 的 条 件 表 达 式 为 假 ， 则 把 控制 权 交 给 
else， 来 执行 else 后 面 的 语句 。else 语句 不 能 作为 独立 语句 而 存在 。 它 必须 跟随 在 让 语句 之 后 。 如 
果 计 语句 艇 入 到 其 他 诺 语句 中 的 话 ，else 语句 将 与 前 面 最 近 的 计 语 句 相 关联 。 














格式 
1LE (EXPEeSssicn) 
(Becg 
else 
ER 


AN\ 


示例 7.2 

WESTEnoth 
] DFInL "What Version of the operatiling System are You using2? 7"; 
包 EClicmaolScs=< 和 SNZ 原 
塌 if ($os > 2.2) {pPrint "Most of the bugs have been worked 
CERNET 直 
4 else {PFrint "Expect some Problems.NXn"7} 


Our 
What Verszion of the operatIin9 System are you Usinc92 2.4 
悦 Most of the Du9s have Deen WorKkeaQ out1! 





OU 
What 7erszion of the operatling System are you usino2 2.0 
4 古 XPect Some ProbpyJems. 


解释 
1. 要 求 用 户 输 入 。 
2. 删除 换行 符 。 
3. 如 果 $os 大 于 2.2， 则 执行 花 括 号 内 的 代码 块 。 
4. 如 果 $os 不 大 于 2.2， 则 执行 本 行 代 码 。 


ifyelsifelse 结构 。 这 语句 的 另 一 种 形式 则 是 ielsif/else 结构 。 该 结构 提供 了 多 路 判断 的 
控制 流 。 如 果 关 键 字 让 后 面 的 第 一 个 条 件 表 达 式 值 为 真 ， 就 执行 让 后 面 的 代码 块 。 否 则 就 判断 
第 一 个 els 计 语句 。 如 果 第 一 个 els 让 后 面 的 条 件 表达 式 值 为 假 ， 再 判断 下 一 个 elsif， 依 次 类 推 。 
H 果 所 有 elsif 语句 后 面 的 条 件 表达 式 值 都 为 假 的 话 ， 则 执行 else 后 面 的 代码 块 ， 也 就 是 默认 处 
里 操作 。 
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736 
EECSh 
elsif (Ex<prcession2) 
ES 
SISRRUEBSDESSSOS) 
BGSGCIa 
elLse 
全 sc 
示例 7.3 
WeiScenotgy 
开 Shour=(localtime) [2]:， 
及 IE (Shour >= 0 && $hourz < 12) {PFint "Good-morninglIANn"n 7 } 
号 elsif ($hour == 12){Print "Lunch time.NXn"y} 
4 esnASoUTEE > 2 
号 else {Print "Goodnight. Sweet dreams.NXn"7} 
sseay 
4 SIesta LIzme 


炙 


( 
] 


可 


格式 


把 标量 Shour 赋值 为 当前 时 间 。 借 助 内 置 畏 数 localtime 返回 当前 小 时 数 ， 也 就 是 时 间 值 数 
组 的 第 三 个 元 素 。 


.让 语 名 会 判断 $hour 的 值 是 否 大 于 或 等 于 0 并 小 于 12。 如 有 果 结 果 是 真 , 则 执行 表达 式 后 面 的 


代码 块 〈“ 即 执行 print 语句 )。 


. 如 有 果 第 一 个 证 语句 值 为 假 , 就 判断 本 行 的 表达 式 。 如 有 果 $hour 值 等 于 12, 则 执行 print 语句 。 
4. 如 宁 前 一 个 els 放 语句 值 为 假 ， 而 本 行 elsif 语句 的 值 为 真 ， 则 执行 本 行 的 print 语句 。 
. 如 果 上 面 没 有 一 个 表达 式 为 真 ， 则 执行 默认 操作 ， 即 else 后 面 的 语句 。 


unless 结构 。unless 语句 类 似 于 让 语句 ， 只 是 它 把 unless 后 面 的 条 件 表达 式 判 断 巡 辑 反 转 了 
一 下 ， 即 当 unless 后 面条 件 表 达 式 为 假 时 ， 执 行 与 之 关联 的 代码 块 。 

unless/else 语句 和 unless/elsif 语句 的 执行 方式 等 同 于 itelse 与 ibelsif 语 句 。 不 过 如 前 所 述 , 它 
们 也 都 把 条 件 判 断 逻 辑 反 转 了 过 来 。 


Unless (Exzprzession) {BLIockl 
unless (ExzPrzession) {BLIockl else {BLockl 
UrlessiEzorcsssmonBLOc SELLEST 有 自 (EXEessEony 


BUGcIRSELSE 有 人 Eee 
示例 7.4 
WESCiey 
外 Fa Howciid 划 SEEYSUE 
汉 chomp ($age = <STDIN>) ， 
电 unless ($age <= 21 ){ # TIF falsev 
4 Pint "Let's PartyINn" ; 
】} 
1 
(GEGIUEN) 
1 
CE 














emnter the DJIocK 
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5 You saia you were 32. 


二 二 于 二 二 二 二 二 二 二 二 UDCRogiam 蕙 SS 


ou 

oil 

You sazia you were 了 0. 
解释 


1. 本 示例 和 示例 7.1 几乎 一 模 一 样 ， 所 不 同 的 是 其 条 件 表 达 式 逻辑 被 反 转 了 过 来 。 在 判断 条 件 
表达 式 时 ， 期 望 看 到 其 值 为 假 〈false) 而 不 是 真 〈true)。 本 行 要 求 用 户 输入 年 龄 。 

2. 为 标量 $age 赋值 。 

3. 检查 标量 $age 的 值 。 如 果 该 值 不 是 大 于 或 等 于 21 〈 也 就 是 说 表达 式 值 为 假 ), 则 开始 执行 第 
4 行 的 代码 块 。 

4. 如 果 用 户 年 龄 不 大 于 21， 则 打印 本 行内 容 。 两 边 的 花 括 号 不 是 可 有 可 无 的 ， 而 是 必须 提供 的 ! 

5. 不 论 是 否 执行 让 代码 块 ， 程 序 控制 流 总 会 到 达 这 一 行 语 句 。 


ES 

#!1V/bin/pPer1l 

# Scriptname: excJuaer 
站 while(<>)1{ 
多 是 
了 unless ($name eq "barbara"){ 

Srecord="SnameANtSphone":; 

4 1 


】} 





} 


号 ENSTSmERENSESEmSVEdEESmE 放 划 Go 攻 TCEINE 


GETUED) 

5 excJuaer names 
GCT ss 以 则 国王 全 三 二 电 志 
SO 大 ETEFEZ 0 克星 负 
本 oj 0 Eeeob 号 光 疝 三才 玫 克 志 
7armes IIKedaa 六 作 休克 
刀 arpara 大 erz 区 7 
Jose santia9o 二 世纪 
tommy Sava9e 十 辣 作 全 二 和 有 区 
有 让 全 放 的 全 晤 放 人 二 汪 和 和 有 引 记 和 


SEE 


1. 进入 while 循环 。 程 序 会 把 文件 名 作为 参数 提供 给 脚本 ， 然 后 逐 行 读 取 该 文件 的 内 容 。 作 为 


参数 的 文件 名 是 names 。 
2. 文件 的 每 行内 容 都 由 冒号 定 界 符 隔 开 。 程 序 将 把 其 中 第 一 个 字段 赋值 给 Sname,， 将 第 二 个 字 
段 赋值 给 $phone。 


3. 执行 unless 语句 。 其 逻辑 是 : 除非 $name 的 值 是 barbara， 否 则 进入 执行 代码 块 。 换 而 言 之， 
只 要 不 是 barbara， 其 他 什么 都 行 。 

4. 打印 除 barbara 之 外 的 所 有 名 字 和 电话 号 码 。 

5. 在 退出 循环 时 ， 打 印 本 行 信 息 。 
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7.2 循环 


有 时 ， 用 户 需要 反复 执行 某 一 个 或 一 组 语句 ， 直 到 满足 特定 的 某 些 条 件 为 止 。 例 如 ， 需 要 不 断 
向 用 户 提 相同 的 问题 ， 直 到 收 到 正确 答复 为 止 ， 或 者 创建 一 个 从 10 数 到 0 的 计数 器 :或 者 从 头 到 
尾 修改 列表 中 的 每 一 项 。 针 对 此 类 需求 ， 就 出 现 了 循环 〈loop) 结构 。 循 环 能 够 反复 执行 某 一 段 语 
句 。Perl 的 基本 循环 结构 包括 : 


while 





until 
for 
foreach 


每 个 循环 后 面 都 跟 有 一 个 语句 块 ， 并 由 花 括 号 包围 起 来 。 





7.2.1 _ while 循环 


如 果 while 之 后 的 表达 式 为 真 ，while 循环 便 会 反复 执行 与 之 关联 的 代码 块 。 如 果 表 达 式 的 值 
不 是 0〈 非 空 值 )， 它 就 是 真 的 ，while(1) 的 值 始终 为 真 ， 因 此 会 永远 循环 下 去 。 如 果 表 达 式 值 为 0 
《 空 值 )， 说 明 表 达 式 为 假 ，while(0) 的 值 始终 为 假 ， 因 此 它 永 远 也 不 会 循环 。 








格式 


While (Expzession) {Blockl 


示例 7.6 
aeEScCe io 
#17Vusz/pbin/Pezrl 
二 Snum=07 # InItialzizze Snumn 
while (Snum < 10) { # Test expressioDn 
# 工 OoP Guzts When expression Is False or 0 


AN 


司 人 

4 IE # Upaate the Joop variapJe 5Snumr Increment 5SDumn 
吕 } 

6 NODE 

ouEewey) 


包 (人 2 
加 三 


释 


6 
1. 初始 化 标量 Snaum。 在 进入 循环 前 ， 必 须 先 进行 初始 化 。 


2. 判断 表达 式 的 值 。 如 果 值 为 真 ， 则 执行 花 括 号 中 的 代码 块 。 
3. 对 标量 $num 执行 递增 操作 。 如 果 不 这 样 做 ， 上 述 表 达 式 值 将 永远 为 真 ， 循 环 也 就 永远 不 会 
结束 。 
示例 7.7 


人 ES 


739 





Se 
业 Scount=1; 


S$bee 


S=10， 


# Inztza717Ize variapbpl1es 


Sremain=Sbeers'， 
Swhere="on the she1lLf"7 
到 while ($count <= S$beers) 1{ 


已 


站 


bottles of beer S$wherelNn"y 


1IE ($Szemain == 1){Print "Sremain bottle of beezc S$where ." 
else {Print "S$remain bottles of beer S$where S$where 
TO TSIEEEOEEOSNnEESTGSE 记 SEE 二 ECUNORNTE 
TENCWwSOEIET 二 和 三 SCSUTTI 
3 Eee 
4 Srzemain=-=， 
5 全 
} 
De LN 有 
(GuEGIDE) 


1T0 bottles on the sheJf on the sheIfF， 
Wow 呈 2 必 POOLENeo 
9 DottJes on the 
Now 9 DottJes of 
8 PottJles on tpne 
Ne 
7 PottJes on the 
Nomw 6 DottJes of 
6 DottJes on the 
Now 5 DottJes or 
D pottlIes on tpbe 
Now 4 bpottlIes ofFf 
4 DottJes on the 
No SEAES 古 2 
3 PottJIes on tpbe 
Now 2 PottIes ofFf 
OARES 惠 DRE 


Peer on the She 


SheJf on the shelfF. 


Peer on the SheE5Fy 


有 e 玫 有 丰 忆 六 大臣 力 它 本 S 太 人 下 有 


Peer on the She 


SheJf on the shelrf. 


Peer on the speE5Fy/ 


SheJf on the shelfF. 


Peer on the Shell/ 


SheJf on the shelrf. 


Peer on the She 


ShelJf on the shelfF. 


Peer on the She 


SheJf on the shelf. 


Peer on the ShellE5Fy/ 


SheJFf on the shelfF. 


Now II pottJe of peer on the SpeEFl 
了 bottyle of beer on the sheJf on the 
Now 0 bpottIes of beer on the Shell/ 


ENSO 


解释 


人 


ZaKe 


aaKe 


aaKe 


了 二 Ke 


开 aKe 


aaKe 


TaKe 


ZaKe 


SDelIE. 


Qomwm 


Qomm 


Qomm 


Qomwm 


QomDP 


Qomwm 


Qormmn 


one aormmn 


ama 


Pass 


Pass 


Pass 


Pasas 


Pass 


Pass 


Pasas 


Pass 


Take cone Qown ana Pass 1 al arounaw. 


Te 后 


E 帮 央 二 OAe 作 


后 可 本 将 O 训 六 QQ 


下 厨 国史 二 于 LI 区 
六 
ELe 
局 玖 和 忆 0 上 


人 亲本 /全 和 亲 2 O 必 


Take one acown ana pass IL alJJl arouna. 


1. 初始 化 标量 $count、$beer、S$remain 和 $where。 
2. 进入 while 循环 ， 测 试 并 判断 表达 式 的 值 。 
3. 对 标量 $count 执行 递增 运算 。 

4. 对 标量 $remain 执行 递减 运算 。 
5. 当 $count 的 值 大 于 10 时 ， 打 印 该 行内 容 。 


2 


《 非 0) 时 才 退 昌 


格式 


DIE 


until 循环 
只 要 until 后 面 的 条 件 表达 式 值 为 假 或 0,until 结构 就 会 反复 执行 代码 块 。 





上 循环 。 


(了 xDPrcessionl) 


JSUSes 





只 有 当 表 达 式 值 为 真 
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AN 


示例 7.8 


( 


WSIETOToE) 
#!Vusz/bin/per1 


并 Snum=0; # InItia7zIzze 
电 TESTUOmE 三 三 汪 贡 0 弄 
# Test expression” Joop 9uits When expression is true or 了 
汪 ES 
4 SU # UPaate the JIoop variabJe Snum” InCcrement SnU 
与 } 
6 OOEESOEEneEOORRNNREI 
ORGTED) 
S 3 
6 国史 本 ice 二 


1 


. 初始 化 标量 Snum。 在 进入 循环 前 ， 必 须 先 进行 初始 化 。 


2. 判断 表达 式 的 值 。 如 果 值 为 假 , 则 执行 花 括 号 中 的 代码 块 。 当 $num 的 值 等 于 10 时 , 退出 循环 。 


3 


. 对 标量 Snum 执行 递增 操作 。 如 有 果 不 这样 ， 上 述 表 达 式 值 将 永远 为 假 ， 循 环 也 就 永远 不 会 结束 。 


AN 


示例 7.9 


( 


站 
最 
习 
4 
号 
6 
这 
8 


( 
和 
也 
中 
由 
8 


解释 


ISToE) 

#!Vusr/Vbin/per1l 

IE 

chomp ($answer=<STDIN>) ; 

until ($answer eq "yes")1{ 
Sleep (1); 
ERA ee 二 SO 7eEE < 
chomp ($answer=<STDIN>) ; 

】} 

GIRL 


io 二) 
Zoo 
Are You 0. 大 ，yet2 nope 
Are You 0. 大 yet2 YuP 
Are you 0o. 大 yet? yes 
0 瑟 忆 性 ES 


1. 一 开始 向 用 户 提 一 个 问题 。 
2. 接收 来 自 标 准 输入 的 用 户 响 应 ， 并 将 其 保存 到 标量 Sanswer 中 。 然 后 删除 换行 符 。 


3 


until 循环 检查 小 括号 里 面 的 条 件 表 达 式 ， 如 果 $answer 的 值 不 完全 等 于 字符 串 yes， 就 进入 
表达 式 后 面 的 代码 块 。 当 $answer 的 值 等 于 yes 时 ， 退 出 循环 ， 跳 转 到 第 8 行 。 

. 如 果 $answer 的 值 不 等 于 yes， 执 行 这 一 行 。 换 而 言 之 ,程序 会 暂停 一 分 钟 〈sleep 1)， 以 便 
在 下 一 次 提问 前 为 用 户 提供 考虑 时 间 。 

. 等 用 户 准 备 好 后 ， 进 行 下 一 次 提问 。 


6. 再 一 次 从 STDIN 读 取 用 户 的 回答 ,并 保存 到 $answer 中 。 这 一 行 非 常 重 要 , 因为 倘若 $answer 


的 值 总 是 不 变 ， 那 么 循环 便 会 不 停 执行 下 去 。 

. 由 花 括 号 标识 until 循环 代码 块 的 结束 。 然 后 把 控制 权 转 回 到 第 3 行 ， 并 再 次 判断 条 件 表达 
式 的 值 。 如 果 $answer 的 值 为 Yes， 则 跳 转 到 第 8 行 ， 否 则 继续 重复 执行 代码 块 中 的 语句 。 
.在 退出 循环 后 执行 本 行内 容 。 换 而 言 之 ， 当 $answer 的 值 为 yes 时 才 会 执行 本 行 。 





条 符 747 





do/while 与 do/until 循环 。 与 while、until 循环 一 样 ，do/while 与 do/until 循环 也 能 判断 条 件 表 
达 式 的 真 假 值 。 不 过 ， 后 者 在 至 少 执行 完 一 次 循环 体 后 才 会 对 条 件 表 达 式 进行 判断 。 





格式 


Qoe {Blockl while (ExEzession) : 
SEE CLIENT RE 


示例 7.10 


Easy 
生生 


下 一 人 

2 Qo 天 | 

中 ES 

4 SXx++ 

5 } while (S$Sx <= 10) : 
于 贡 而 站 NT 

6 SY = 1 

这 Go 

8 2 

9 站 加 多 

ES 下 O) 

OUEoy) 

3 2 

8 2 

解释 


1. 把 标量 $x 赋值 为 1。 

2. 开始 do/while 循环 。 

3. 执行 代码 块 。 

4. 对 标量 $x 执行 递增 操作 。 

5. 判断 while 后 面 的 条 件 表 达 式 值 。 如 果 为 真 ， 则 在 此 执行 代码 块 ， 依 此 类 推 。 
6. 把 标量 $y 赋值 为 1。 

7. 开始 do/until 循环 。 

8. 执行 代码 块 。 

9. 对 标量 $y 执行 递增 操作 。 

10. 判断 until 后 面 的 条 件 表达 式 值 。 如 果 为 假 ， 则 在 此 执行 代码 块 。 依 此 类 推 。 


7.2.3 for 循环 


for 循环 语句 类 似 于 C 语言 里 的 for 循环 。 首 先是 关键 字 for， 其 后 是 位 于 括号 中 并 以 分 号 隔 开 
的 三 个 表达 式 。 用 户 可 以 省 略 其 中 任何 一 个 或 所 有 三 个 表达 式 , 但 不 能 省 略 那 两 个 分 号 8。 其中, 第 
一 个 表达 式 负责 设 定 变量 的 初始 值 ， 第 二 个 变量 用 于 判断 循环 能 否 继续 下 去 ;而 第 三 个 表达 式 则 负 
责 更 新 循环 变量 的 值 。 











名 因此， 无 穷 循 环 亦 可 写作 :，for(;;)。 
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格式 


ERXDFReSSLOL 
While (Ex<Pzessiocn2) 
则 SEE 


AN 


示例 7.11 


Ecohal 
人 全 下 


业 王 CF 汪 (3505SIL< 下 OSI ) 间 人 二 和 会 汪 


m 


癌症 


[ 


】} 
光 ENGOREEOEEDneCOORRANRET 


人 

昌 本 国人 
悦 Out ofF the JI oop. 
习 


ESIER 


和信 和 天 己 帮 全 本 襄 本 宁 


1. for 循环 含有 三 个 表达 式 。 第 一 个 表达 式 把 标量 $i 赋值 为 0。 该 语句 只 执行 一 次 。 第 二 个 表 
达 式 负责 检查 $i 是 否 小 于 10， 如 果 是 ， 就 执行 代码 块 〈“ 即 打印 $i 的 值 )。 最 后 一 个 表达 式 
则 负责 把 $i 的 值 递增 1。 然 后 再 一 次 判断 第 二 个 表达 式 ， 并 执行 代码 块 ， 递 增 $i 。 如 此 循环 


下 去 ， 直 到 第 二 个 表达 式 判 断 为 假 。 
2. 打印 $i 的 值 。 


示例 7.12 
os ss 全 动 
半生 本 人 启 全 下 各 
二 放下 汪 可 矶 让 人 人 人 人 全 下 下 
# counters Is aone in one step. 


开 for ($count=1 ，S$beers=10，S$Sremain=S$beers， 


S$count <= $beers:; $count++，5Sremain--) 


{ 


2 IE (Sremalin == 1)1{ 


PEint "Sremain Dottle of beer $where S$wheze 


】 


else 1{ 


aecrement of 


m 


PEint "Szemain bottles of beerz S$where S$Swherce."; 


】 


FDITSREECDSEOOWEES0O DSSSREEESUINESESEONRO 

ran NewSbssrs EcounmERODS 巧 已 语 全 全 
马 EECSLCCUOT LE 三 三 二 TO) 下 亲生 丰 7TETARTT 有 
ou 


TI0 bottJes of beer on the sheJf on the Shelf， 


Now 9 Pottles of beer on the She/ 


OUES CBEEE 7 万 E 记 ED0 放 放 E 本 站 全 天 奏 


Now 8 PottJes of beer on the speE5y/ 


8 bottles of beer on the sheJFf on the shefF. 


Now 7 bottIles of beer on the Shell/ 


< _ ContinuesS > 


2 bottJes of beer on the sheJf on the shneyIEE5. 


IaKe 


TaKe 


TaKe 


TaKe 


one aomwPn 


one QomDn 


one QomwDn 


one aomwn 


S$Swhere="on the she1fE": 


S$SwherelNnn; 


ana Pass 
SS 


ana Pass 


Eee 届 2 避 


和 滞 Cs 


人 


区 帮 


本 可是 OGA 


条 件 /43 





Nomw 1 DottJe of beer on the 5heJrfFy/ 

1 Dottle of beer con the sheJf on the SheyEfE，7Take one Qown ana pass It al arouna. 
Nomw 0 PottJes of peer on the SheEfy 

1 


解释 

1. 所 有 标量 的 初始 化 工作 都 是 在 for 循环 的 第 一 个 表达 式 中 完成 的 。 其 每 个 初始 值 都 由 有 喜 号 分 
开 ， 整 个 表达 式 则 以 分 号 结尾 。 在 开始 循环 时 ， 第 一 个 表达 式 只 执行 一 次 ， 然 后 便 判 断 第 二 个 
表达 式 。 如 有 果 第 二 个 表达 式 值 为 真 ， 则 执行 循环 体 代 码 块 。 在 执行 代码 块 中 所 有 内 容 后 ， 执 
行 第 三 个 表达 式 ， 然 后 再 把 控制 权 转 交 给 第 二 个 表达 式 。 如 此 反复 。 

2. 如 果 for 循环 的 第 二 个 表达 式 值 为 真 ， 则 执行 循环 体 代码 块 。 

3. 判断 该 语句 ， 如 果 其 值 为 真 ， 则 执行 该 语句 ， 并 把 控制 权 转 移 到 for 循环 的 第 二 个 表达 式 处 ， 
并 递增 一 次 $count。 


7.2.4 foreach 循环 


如 果 读 者 熟悉 C shell 编程 的 话 , 就 会 发 现 Perl 中 的 foreach 循环 不 论 在 外 观 上 还 是 行为 上 都 和 
C shell 的 foreach 循环 极其 相似 。 不 过 ， 这 种 相似 性 只 是 一 种 表象 ， 这 两 种 结构 之 间 还 是 存在 着 很 
大 不 同 的 。 

foreach 循环 能 对 括号 中 列表 《〈 数 组 ) 里 的 每 个 元 素 进行 选 代 ， 并 为 数组 中 的 每 个 元 素 逐 一 赋 
值 ， 直 到 列表 的 末尾 。 

VARIABLE 是 foreach 代码 块 的 一 个 局 部 变量 , 负责 在 退出 循环 时 恢复 其 原先 的 值 。 反 过 来 讲 ， 
对 VARIABLE 变量 的 任何 改变 又 会 影响 到 数组 中 的 个 别 元 素 。 如 果 代码 块 中 设 有 出 现 VARIABLE 
变量 的 话 ， 程 序 则 会 隐 式 地 使 用 特殊 变量 $_。 


格式 


foreach VARIABLE (ARRAY ) 
| 本 垩 OBE 


示例 7.13 


meiSscrcniotny 
SS 








中 foreach $Pal ('Tom'，'Dick'，'Harry'，'Pete') 1{ 
包 ni 
】} 
oueswuy 
及 BIT Tomy! 
人 0 天 
全 和 
BE1 Pete! 


和 ER 
1. foreach 关键 字 后 面 跟随 着 标量 Spal 和 一 个 名 字 列 表 。 其 中 , $pal 指向 列表 中 从 Tom 开始 的 
每 一 个 名 字 。 读 者 可 以 把 $pal 看 作 列 表 各 项 的 别名 或 者 引用 。 每 次 进入 循环 时 ，Spal 便 指向 
列表 中 的 下 一 项 ,并 获取 该 项 的 值 。 因 此 ， 它 能 在 Tom 之 后 取 Dick， 然 后 是 Harry， 直到 到 
达 列 表 未 尾 才 退 出 循环 。 
2. 每 次 循环 都 会 打印 $pal 所 引用 的 值 “ 详 见 图 7-2 )。 
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站 EEC 





图 7-2 foreach 循环 





示例 7.14 
Eee 
站 foreach S$Shour (1 .. 24){ # 7pe ran9e operator is Usea here 
最 nEO OSIELGSSETTOE NTTO 交 丰 村 
司 SESSION 
4 ETA 人 
5 ESSRUGETOGSCOE EITHER 站 
} 
OUEE) 
肥 Gooa=-mornina。 


GO OO 
Gooa-mornInga. 
全 CGO 
全 加 轩 全 王八 富 交 六 下 和 站 
Gooa-mornzna9。 
Eee 本 同 0 证 12 后 
Gooa-mornInga9. 
GCTOIODD 人 
Gooa-mornzin9。 
区 GG2 司 矶 本 

加 EC 

4 Gooa afternoon ， 
Gooa afternoon . 
Gooa afternoon， 
GooaQ afcerzDnoon 

与 cieeRGNAGR 
四 回合 全 下 下 
Gooa=-nig9npt. 
CE 
人 
Ce 
人 加 全 区 二 下 
EC 


解释 

1. 列表 〈1..24) 表示 取 值 范围 是 1 到 24 的 项 目 列表 。 标 量 $hour 负责 依次 引用 列表 中 的 每 一 
个 值 。 本 行将 执行 代码 块 ， 并 把 列表 中 的 下 一 项 赋值 给 $hour。 依 此 类 推 。 

2. 检查 标量 $hour 的 值 。 如 果 其 值 大 于 0 且 小 于 12， 则 执行 print 函数 。 

3. 如 果 上 一 个 els 证 语句 值 为 假 ， 则 检查 本 语句 的 值 。 如 有 果 标 量 Shour 的 值 等 于 12， 则 执行 本 
行 的 print 语句 。 

4. 如 果 上 一 个 elsif 语 句 值 为 假 ， 则 检查 本 语句 的 值 。 如 有 果 标 量 Shour 的 值 大 于 12 上 且 小 于 17， 
则 执行 本 行 的 print 语句 。 

5. 如 果 前 面 的 语句 都 为 假 ， 则 执行 else 或 其 他 默认 语句 。 
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示例 7.15 


ES 


FEOOASOOEEECYUE OO 忆 


( 
习 
4 
刘 


ED 


二 本 记 全 下 机 


NS 忆 丰 三 TIE 且 ED 

忆 了 TD 全 太太 光 

ERIE 汪 TENSSE 

TESTRDE 二 VENnUmOSSOEOIOEEEUNIEOUOWOSTSRERR 

Eoreach S$Sstr (numbers )1{ 

S$stz+=5: 
SSTETNT 

} 

noneESEEENETICSRANSSER IE 人 SEO 
OECDEESEEENERETESSEETEEESEESVYRNTDOETS EDUTDnoesR 和 
Gaouuay 

加 

本 古人 三 人 帮 二 5 有 有 

6 

8 

注 加 

机 

了 4 

加 亲征 避 半 汪 局 厅 三 人 避 区区 全 开本 [天 
OO 癌 后 O 大 和 二 SEO 人 训 三 二 克 帮 全 本 各 7 六 


二 
市 


上 上 已 于 


AD oo 


. 把 标量 $str 赋值 为 字符 串 hello。 

. 把 数组 @numbers 赋值 为 数字 型 列表 : 1、3、5、7 和 9。 

. pirint 国 数 将 $str 的 初始 值 打印 到 STDOUT。 

. print 图 数 将 @numbers 的 初始 值 打印 到 STDOUT。 

. foreach 语句 负责 依次 将 列表 中 的 每 一 项 赋值 给 $str。y$str 变量 在 循环 里 是 一 个 局 部 变量 , 负 


万 
页 








引用 列表 中 的 每 一 项 。 因 此 , 对 $str 的 赋值 操作 将 会 影响 数组 @numbers 的 内 容 。 在 退出 
循环 时 ， 恢 复 其 初始 值 。 

在 每 次 循环 中 ， 将 $str 引用 的 值 递 增 5。 

. print 国 数 负责 把 $str 的 新 值 打 印 到 STDOUT。 

.退出 循环 后 ， 把 $str 的 初始 值 打印 到 STDOUT。 

. 退出 循环 后 ， 把 数组 @numbers 的 新 值 与 初始 值 一 起 打印 到 STDOUT。 


示例 7.16 
ES 


性 WO 忆 情 


号 


#1!Vusr/Vpbin/per1l 
Qcoloers=(zeQ，， green，Dplue，pbreown) : 
foreach (QQcolors) 1{ 
[GE 
YUGCKYY 
} 


ICIOISIESNOO 


人 人 ESD 


国 
己 


eaQ 9reen PJue DrowD 
和光 
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解释 

1. 对 数组 @colors 进行 初始 化 。 

2. 在 foreach 循环 后 面 没 有 显 式 的 变量 ， 但 有 一 个 列表 。 由 于 没有 显 式 变量 ， 因 此 程 
地 使 用 特殊 标量 $_。 

3. 特殊 变量 $_ 是 实际 指向 当前 列表 项 的 引用 。$_ 变量 负责 引用 列表 @colors 中 的 每 一 项 内 容 ， 
并 将 其 值 打印 到 STDOUT 。 

4. 把 $_ 变量 赋值 为 字符 串 YUCKY 。 数 组 @colors 中 的 每 一 项 初始 值 都 将 由 YUCKY 依次 替换 。 

5. 本 行 实际 改变 了 @colors 数组 的 内 容 。 其 中 ，$_ 变量 在 进入 循环 前 的 值 为 空 值 。 


也 


亨 会 隐 式 








7.2.5 ”循环 控制 


为 了 中 断 循环 内 正常 执行 的 控制 流 ，Perl 提供 了 一 些 循 环 控制 标记 和 简单 的 控制 语句 。 这 些 标 
记 和 语句 能 在 条 件 满 足 时 控制 循环 ， 即 ， 将 控制 流 直接 跳 转 到 循环 底部 或 项 部， 或 者 跳 过 控制 语 名 
条 件 之 后 的 任何 语句 。 

标记 〈label)。 标 记 在 循环 中 是 可 有 可 无 的 ， 但 它 能 用 于 控制 循环 流 。 标 记 本 身 不 能 做 任何 事 
情 。 它 必须 与 后 面 介 绍 的 循环 控制 修饰 符 配合 使 用 。 不 论 是 否 出 现 标记 ， 循 环 代码 块 都 等 价 于 只 执 
行 一 次 的 循环 体 。 如 果 将 标记 全 部 大 写 ， 就 不 会 与 其 他 保留 字 相 宴 消 了 。 











格式 


LABET We (EzDEesson)LBLOCR) 

EABED5SVDale 帮 (xpEessauonmIEBLoceonennuelBloc) 

TABRUDSEOTUUBSPESSSICOTO ERPEEeSSDen EXPESSSLCn) 
{BLOCK1} 

LABETL: foreach Varciable (Aray) {BLIockl} 

ABR EUEIScEEEcEOE 人 EECClS 


To control the How of loops, the following Simple statements may be used within the block: 


next 

next LABEEE 

工 as 七 

1ast ILRABETL 

redo 

Fredqo LABETL 

9oto IIABEEE 

next 语句 能 跳 过 循环 体 中 的 其 他 语句 ,直接 进入 下 一 次 循环 ， 并 重新 判断 循环 表达 式 的 值 。 其 效 
果 类 似 于 C 语言 ,awk 命令 和 shell 脚本 中 的 continue 语句 。 由 于 代码 块 等 效 于 只 执行 一 次 的 循环 体 ， 
因此 next 语句 亦 可 用 于 退出 代码 块 ， 或 者 在 continue 代码 块 存在 的 时 候 跳 转 到 continue 代码 块 。 

last 语句 则 负责 退出 或 者 中 断 循环 。 其 效果 类 似 于 C 语言 .awk 命令 和 shell 脚本 中 的 break 语 
句 。 由 于 代码 块 等 效 于 上 只 执行 一 次 的 循环 体 ， 因 此 last 语句 亦 可 用 于 退出 代码 块 。 

redo 语句 能 够 重新 执行 一 次 循环 体 ， 同 时 不 去 判断 循环 表达 式 的 值 。 

continue 代码 块 是 在 下 一 次 判断 循环 表达 式 值 之 前 需要 执行 的 代码 块 。 

尽管 大 多 数 程序 员 不 建议 使 用 goto， 但 Perl 还 是 提供 了 goto 语句 。 它 以 标记 为 参数 ， 在 程序 
执行 到 goto 语句 时 ， 会 自动 跳 转 到 标记 标注 的 语句 。 标 记 可 以 放 在 程序 的 任何 位 置 ， 但 在 do 语句 
或 子 程序 中 是 无 效 的 。 
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非 循环 标记 块 。 代 码 块 等 效 于 只 执行 一 次 的 循环 体 。 它 也 是 可 以 标记 的 。 
redo 语句 能 把 控制 流 跳 转 到 最 内 层 循 环 的 顶端 ， 或 者 跳 到 标记 块 〈 如 果 有 标记 , 则 类 似 于 goto 
语句 ) 的 起 始 位 置 ， 并 不 再 判断 循环 表达 式 。 


示例 7.17 


isnsoioia 

1 晴 夺 信 全 人 oF 晴 人 ss 

# PrFo9ram that Uses a JapeJ without a Joop ana the Feao Statement 
半 ATTEMPT : 1{ 


2 ER EEC 
chomp ($answer = <STDIN>) ; 
瑟 unless (S$answer eq "yes"){redo ATTEMPTI :;:} 
} 
em 
2 ee 本 ou soSeA DeESOmSNOFEe 
2 Are you aa 9reat Person2? Sometzimnes 
2 Fe 本 7oS 有 92ea 上 是 PE SODS7eS 


解释 
1. 标记 是 由 用 户 定义 的 ， 位 于 代码 块 前 方 。 其 效果 正如 把 代码 块 命名 为 ATTEMPT。 
2. 要 求 用 户 提供 输入 。 
3. 如 果 $answer 的 值 不 是 yes，redo 语句 负责 重新 执行 代码 块 ， 此 时 其 效果 类 似 于 goto 语句 。 


示例 7.18 


ES 
#1V/usr/bin/pe 
也 while(1L)1{ 






# start an infinite 1oop 











匀 ECV ws GEgmaicsen 
S$Sgrade = <STDIN>， 


3 ES OE 过 0 川 大 S e >100) 1{ 
人 EeeceNOR 
mexXt: } 站 DEFO7SE EEC 
# the Innermost JooPp 
号 ES EN 
EECSoSE EN 
Esc 
SUsntcsoraae 59 古 ass EDRTEEIOODNOO 
ES 


6 PEiLnt "DO You want to enter another grade? 全 全 证 
Chomp (S$choice = <STDIN>) 
沁 ifE (S$Schoice me "y"){lLast ，} 上 bzeak out of the 1nnezmost 
让 ie E2UE 
】} 
OUEoUy) 
加 Jpat was you 9raaqe2? 94 
又 


6 万 5 三 OD 斌 CTS 人 27 
加 Jpat Was your 9FraaQe2? 66 

忆 
6 疙 57 CE OECDEEFSwS 人 俐 7 
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功 7 章 
. 开始 无 穷 循环 。 
. 要 求 用 户 提供 输入 。 


人 
] 
包 
3 
4 
忆 
0 
了 


. 进行 逻辑 判断 ， 看 $grade 的 值 是 否 小 于 0 或 者 大 于 100。 

. 如 林 表 达 式 值 为 假 ， 则 把 控制 流 再 次 跳 转 到 while 循环 的 起 始 位 置 。 
. 判断 每 个 这 条 件 语 句 值 。 

. 要 求 用 户 提供 输入 。 

. 如 果 条 件 修 饰 符 为 真 ， 则 中 断 最 内 层 循环 。 


示例 7.19 


( 
灿 
受 


4 
号 


6 


The Script) 
ATTEMPT :{ 
rongWaEE EECoUessnumee ea 
chomp (Snumber = <STDIN>) ; 
ELWSE Eeeuese 本 ame oa 
Chomp ($course = <STDIN>) 
Sdepartment{Snumber} = S$Scourse' 
TANNRSSQY EEC 
chomp ($answer = <STDIN>) ; 
S$answer=lc(S$Sanswer); 上 Convert to Jowercase 
if  ($answer eq "yes" or $answer eq "y") {1lLlast7} 
zedo RATTEMPT: 
上 
Print "Program continues here.NXn"; 
Outy) 
What 工 5 上 the Course numnpezr? 了 1 07 


What Is the course name2?2 CTI5S342 
REsC7 CS 2 

What 1I5 tphe course numnper2? 207 
Rhat 1 工 5 the course name2 BIO271 
ResawYCcESUE 2 

What Is5 the course numper2? 301 
What Is the course mname2? 万 NGI20 
Reaay to 9uzt2? 7Yes 
Begrammeconeomnaues 本 er es 


解释 


| 
2 
3 
4. 
3 








在 代码 块 前 面 添加 标记 AITEMPT。 非 循环 代码 块 等 效 于 只 执行 一 次 的 循环 代码 块 。 
脚本 读 取 用 户 输入 ， 并 填充 相关 数组 。 这 里 的 键 和 值 都 由 用 户 提 供 。 

为 散 列 变量 %department 赋值 。 

如 果 用 户 需要 退出 ， 则 由 last 语句 负责 把 控制 流 跳 转 出 代码 块 。 

redo 语句 负责 把 控制 流 跳 回 到 带 标记 代码 块 的 顶部 ， 并 再 次 执行 每 一 条 语句 。 


6. 在 退出 代码 块 〈 第 4 行 ) 后 ， 从 本 行 开 始 继续 执行 程序 。 


嵌 套 的 循环 和 标记 。 出 现在 循环 体 中 的 循环 称 作 骨 套 循环 (nested loop )。 程 序 首 先 初始 化 并 判 
断 外 层 循环 条 件 ， 然 后 当 完成 内 层 循环 后 ， 再 重新 启动 外 层 循 环 。 内 层 循环 的 执行 速度 要 快 于 外 层 
循环 。 循 环 可 以 代 套 得 非常 深 ， 但 有 时 还 需要 在 满足 某 个 条 件 时 终止 其 循环 。 一 般 而 言 ， 如 果 使 用 
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诸如 last 和 mext 这 样 的 循环 控制 语句 , 那么 仅 能 控制 最 内 层 循环 的 跳 转 。 但 有 时 还 需要 将 控制 流 从 
内 层 循 环 直接 跳 转 到 外 层 循环 ， 这 就 需要 借助 标记 来 完成 了 。 

通过 为 循环 语句 加 上 标记 ， 便 可 使 用 last、next 和 redo 等 循环 控制 语句 来 控制 程序 的 控制 流 。 
为 循环 加 标记 就 等 同 于 给 这 个 循环 起 了 一 个 名 字 。 


(A Demo Script) 
1 OUT:while(1L)1{ 
2 < 和 BEicogiammeeomenmns SEEe 基 二 
二 MID: while(1L)1{ 
4 IE (<expression is tcue>) ({lLast OUT : } 
< BEogramcontnusess nere 
INNER: while(1I)1{ 
6 TELLEexpressmons Eus=>) nsxzecOUT 7 
SBEregaamgeeoneanuss 汪 se 














Cn 


】} 


1. 在 需要 的 情况 下 , 可 通过 本 行 的 OUT 标记 来 控制 无 穷 While 循环 。 该 标记 的 后 面 是 冒号 和 循环 语句 。 

2. 本 行 继续 执行 程序 代码 。 

3. 在 需要 的 情况 下 ， 可 通过 本 行 的 MID 标记 来 控制 内 层 while 循环 。 

4. 倘 铬 条 件 表达 式 值 为 真 ， 则 执行 last 循环 控制 语句 ， 在 标记 OUT 处 中 断 该 循环 ， 并 转向 第 
了 条 

. 把 最 内 层 while 循环 标记 为 INNER。 

6. 带 有 OUT 标记 的 next 语句 这 次 会 把 循环 控制 疲 跳 转 回 第 1 行 。 





(LA 


7. 这 是 所 有 循环 之 外 的 语句 。 如 果 给 出 了 OUT 标记 ， 本 行 则 是 last 语句 的 一 个 分 支 。 
示例 7.21 
(The Scipt) 
业 for (Srows=5” SrOwWS>=1” SOwWS==) { 
2 IE 
四 one 全 
4 】} 
配 EN 
6 】} 
(GEGIDE) 
坊 光 磷 光 尖 光 
光 尖 光 光 
人 
于 


和 玫 | 

1. 外 层 循环 中 的 第 一 个 表达 式 负责 将 标量 Srows 初始 化 为 5， 并 测试 该 变量 值 。 由 于 其 值 大 于 
等 于 1， 因 此 启动 内 层 循环 。 

2. 内 层 循环 中 的 第 一 个 表达 式 负责 将 标量 Scolumns 初始 化 为 1, 并 测试 该 变量 值 。 然 后 由 内 层 

循环 反复 完成 所 有 操作 。 当 内 层 循环 执行 完毕 时 ， 外 层 循环 将 从 上 次 离开 的 地 方 继续 执行 ， 





2 
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即 递减 Srows， 然 后 再 判断 其 值 。 如 有 果 甚 值 为 真 ， 则 再 一 次 执行 内 层 循环 块 ， 依 此 类 推 。 


3. 该 语句 属于 内 层 的 for 循环 ， 每 次 循环 都 要 执行 到 这 里 。 
4. 内 层 for 循环 位 于 花 括号 之 间 。 

5. 外 层 循环 每 次 都 会 执行 print 语句 。 

6. 外 层 循环 位 于 花 括 号 中 。 


如 果 省 略 了 标记 ， 则 循环 控制 语句 next、last 和 redo 都 将 引用 最 内 层 的 循环 。 如 果 是 从 内 层 徐 





套 循 环 跳 转 到 外 层 循 环 的 话 ， 则 必须 在 循环 语句 之 前 提供 标记 。 





示例 7.22 


ES 
# 7TpIs Script Prints the avera9e salJary ofF empJoyees 
TEL 
# Zhere are 5 empJoyees，IF the sayary falJs beJow 535507000 
让 


世 了 MPLOYEE: for ($emp=1,S$number=0; S$Semp <= 5 S$Semp++) { 
县 oO NDS 二 硬 EDEemonEDIRN ESEESREOEEEmEIOY7ES SETmE2 
| 
马 chomp ($monthly=<STDIN>) ; 
4 1ast EMPLOYEE if Smonthly eq "977 
司 next EMPLOYEE :if (($year=S$monthly * 12.00) <= 50000) 
6 Snumber++: 
沈 SotLaas aa 居士 三 Se ae 
nexXt 卫 MPLOYEE 
8 }) while (Smonthly ne !q9'):; 
} 
电 unless(Snumber == 0)1{ 
10 Saverage = Stotal sal/Snunmbez: 
站 站 PEint "There were Snumber employees who earned over \$50,000 
IE 
Drzintefrrnear aesace annuaSana ae NS SS 2 SSVEEaOES7 
) 
asie 计 
Pint "None of the employees made over \$50,，000NXn"; 
】} 
USE 


Jpat Is the monthJIy rate For empIoyee #12? (Type 
Jpat Is the monthJIy rate For empIoyee #22? (Type CGO 


人 

吧 oO 玫 了 T00OO 
史 

马 Jpat Is the monthJIy rate For empIoyee #32 (Type GO 人员 
汉 

汉 

亚 


避 间 虽 


Jpat Is the monthJIy rate for empIoyee #42?2 (Type ECDISOO 

Jpat Is the monthJIy rate For empIoyee #52?2 (Type 9 to Guzt) 4500 
了 There were 3 empIoyees who earnea over 550,000 annualIy. 

Their avrera9e annual salary Is 564000.00. 


1. 在 外 层 循 环 前 面 添加 标记 EMPLOYEE。 该 循环 负责 跟踪 5 个 员工 。 

2. 进入 do/while 循环 。 

3. 脚本 要 求 用 户 输入 每 月 薪水 数目 。 

4. 如 果 用 户 输入 的 是 q， 则 执行 last 语句 ， 跳 转 到 标记 为 EMPLOYEE 的 外 层 循环 底部 。 
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S 
6 
7 
8 
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如 果 条 件 值 为 真 ， 则 执行 next 语句 ， 把 控制 流 跳 转 到 标记 为 EMPLOYEE 的 外 层 for 循环 的 顶部 。 
对 标量 Snumber 执行 递增 运算 。 

计算 标量 $total sal 的 值 。 

执行 next 语句 ， 把 控制 流 跳 转 到 标记 为 EMPLOYEE 的 外 层 for 循环 的 顶部 。 

如 果 $number 的 值 等 于 0， 说 明 疫 有 人 的 收入 超过 $50 000， 因 此 进入 该 代码 块 执行 。 


10. 计算 平均 年 收入 。 


则 











continue 代码 块 。 位 于 while 循环 后 面 的 continue 代码 块 提供 了 类 似 for 循环 的 变量 递增 效果 ， 


即便 在 








山 





使 用 next 语句 时 也 能 发 挥 作用 。 


示例 7.23 


Eee 


心 WIN 上 哺 


下 


和 卫 
世 之 


壮志 
14 
灿 呈 
6 


本 
和 LS 


#!1 /usz/bin/PeE1I# 
# 五 ampIe Usin9 the contIinue PbIocK 


全 本 下 二 计生 # 5 zs Incrementea on1Iy once 
三 吕 ) 吕 | 
YI 
DeXt 7 
】} 
as SO 
】} 
NE 
生计 二 下 
while ($i <= 10)1{ 
了 三 
EN 
Si++: # 5 must be Incrementea here OF an 
1 本 司 oo 已 情 ee 
nexXt， 
} 
ER 六 
Si++:， # S$i is incremented again 
} 
EN 本 
装 至 握 二 过 三 三 二 三 汪 芝 三 后 且 三 三 三 三 三 二 汉 三 大汉 生 和 三 大写 二 三 且 二 三 三 三 二 三 三 生生 和 宝生 2 人 全 
# 7Tpe continue DJIocKkK al1Jomws the wphliJe Joop to act JIKke aa for Joop 
$Si=I1; 
while (Si <= 10) 1{ 
下 二 人 多 于 二 5) 这 
TEN 三 三 SN 
DexXt 七 
} 
这 贡 疝 呈 人 王 ， 册 寺 
}continue {S$Si++:} # 5S1 Is Incrementea onJIy once 
和 SEE 
234851 == 5 





GO 

为 生生 二 三 三 汪 罗 
加 
下 有 忆 
CO 
又 


1. 进入 for 循环 并 循环 10 次 。 

多 ES 人 区 用人 大 和 二 二 

3 secaec 打印 $i 的 值 。 

4. next 语句 将 把 控制 权 返 回 给 for 循环 。 在 返回 到 for 循环 时 ， 总 是 在 判断 第 二 个 表达 式 之 前 
首先 判断 其 第 三 个 表达 式 。 然 后 在 测试 第 二 个 表达 式 之 前 将 $i 递增 。 

5. 在 每 次 循环 内 打印 $i 的 值 。 直 到 $i 等 于 5 为 止 。 

6. 将 $i 初始 化 为 5。 

7. 如 有 果 表 达 式 值 为 真 ， 则 进入 while 循环 体 。 

8 

9 








. 如 果 $i 值 等 于 5， 则 显示 $i 的 值 。 

.$i 递增 1。 如 果 在 这 里 不 递增 它 ， 该 变量 就 永远 不 会 增加 了 ， 因 此 该 循环 也 就 成 了 死 循 环 。 

10. next 语句 把 控制 流 再 一 次 跳 转 到 while 循环 的 起 始 位 置 ， 并 再 次 判断 while 后 面 的 条 件 表达 式 。 

11. 显示 $i 的 当前 值 。 

12. 在 递增 $i 之 后 , 把 控制 流 跳 转 回 while 循环 的 起 始 位 置 ,并 再 次 判断 while 后 面 的 条 件 表达 式 。 

13. 当 $i 小 于 等 于 10 时 ， 进 入 循环 体 。 

14. 如 果 $i 等 于 5$， 则 进入 该 代码 块 。 

15. 显示 $i 的 当前 值 。 

16. next 语句 一 般 会 使 控制 流 跳 转 到 while 循环 的 起 始 位 置 。 但 在 这 里 ， 由 于 循环 尾部 出 现 了 
continue 代码 块 ,因此 控制 流 首先 会 进入 continue 代码 块 ， 然 后 才 跳 转 到 while 循环 的 起 始 
位 置 ， 并 判断 其 条 件 表达 式 。 

17. 显示 $i 的 当前 值 。 

18. 在 next 语句 把 控制 流 跳 转 到 while 循环 顶部 之 前 ， 首 先 执行 while 循环 体 尾 体 部 的 continue 代 
码 块 。 如 果 没 有 next 语句 ， 程 序 则 会 在 循环 体 的 最 后 一 个 语句 之 后 执行 continue 代码 块 。 








7.2.6 _ switch 语句 





switch 语句 是 另 一 种 类 型 的 控制 语句 ， 类 似 于 igelsigelse 语句 。 所 不 同 的 是 ， 它 是 通过 检查 表 
达 式 与 一 组 case 标记 语句 值 的 匹配 情况 来 判断 控制 条 件 的 。 当 发 现 一 个 匹配 时 , 便 把 程序 控制 权 转 
交 给 那个 匹配 的 标签 所 对 应 的 代码 块 。 下 面 这 个 示例 演示 了 在 C 语言 .PHP 等 中 是 如 何 通过 switch 
语句 来 设计 程序 的 。 











SWitch (expresSlon) { 
case valuel : 
/*# Statements 六 / 
break; 
case value2 : 
/*# Statements 尝 / 
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break'; 

case value3 : 
/*# Statements 关 / 
break; 

default: 
/* Statements 尝 / 
break; 


} 

尽管 switch/case 机 制 是 大 多 数 语 言 都 已 提供 的 常用 控制 结构 ， 但 Perl 5 却 不 支持 它 〈 它 将 出 
现在 Perl 6 中 )。 在 Perl 中 , 读者 可 以 借助 传统 的 ielsigelse 结构 或 利用 标签 和 next 语句 来 达成 相 
同 的 效果 。 由 于 代码 块 〈 不 管 它 前 面 有 没有 标签 ) 等 效 于 上 只 执行 一 次 的 循环 ， 而 诸如 last、next 和 
redo 之 类 的 循环 控制 语句 可 以 用 在 上 述 代码 块 内 部 ， 因 此 读者 可 以 通过 生 、 加 do 代码 块 并 在 其 中 执 
行 一 系列 命令 的 方式 间接 实现 名 为 “phoney” 的 switch 语句 。 详 见 示例 7.24。 


示例 7.24 


SSE 
村 En 全 





册 Shour=0: 

网 WaSnour 24)L 

3 SWITCH: { # SWITCHE Is 7Tust a user-aehtnea Iabe1 

4 Shour < 12 && do { Pint "Good-morninglNn" : 

可 last SWITCH;:}， 

6 Shour == 12 && aqo 1{ CC 
二 

风 So 2SOOUEEIIE SREQS DFTSIEEESETIEINDYE 
SSE 二 SN 全 二 汪 

8 3 && aqo { EC 
人 

} 直 了 pa ofF plIock JapeJead 5S1TT7C 万 
9 Shouzr++: 
由 
GOwEGUE) 


Gooa-mornzIznp9y/ 
Gooa-mornznp9y 
四 GCT GO 匡 站 了 IO 贡 


<OUuLtPUL contInues> 


Gooa=-mornzn9l! 
丰 末 疯 帮 于 帮 加 天 交 训 而 
EeeSiGES SEO 风 
克 55eye 玫 人 

Siesta LIzmey! 
Siesta LIzmey! 
Siesta LIme) 
Siesta LImey 
Siesta LIzmey! 
Ca 下 村 
EeeC 
oac 本 
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[ECRSOREE 
ECoCDEOOTE 


在 进入 循环 前 ， 将 标量 Shour 赋值 为 初始 值 0。 

. 判断 while 循环 表达 式 的 值 。 

.SWITCH 标签 负责 对 代码 块 进行 标记 。 它 只 是 一 个 标签 ， 仅 此 而 已 。 

在 进入 代码 块 后 , 首先 判断 表达 式 的 值 。 如 果 Shour 值 小 于 12， 就 会 执行 && 右 侧 的 表达 式 
内 容 。 这 里 是 一 个 do 代码 块 ,并 将 顺 次 执行 代码 块 中 的 一 系列 语句 。 最 后 返回 last 语句 的 值 。 

.label 语句 将 控制 流 跳 转 到 SWITCH 标签 块 的 末尾 ， 即 第 8 行 处 。 

. 当前 面 的 表达 式 值 为 ialse 时 ， 执 行 本 行 语句 。 当 Shour 值 等 于 12 时 ， 读 取 本 行 。 

. 当前 面 的 表达 式 值 为 fialse 时 ， 执 行 本 行 语句 。 当 Shour 值 大 于 12 且 小 于 等 于 17 时 …… 

. 如 果 本 行 表达 式 为 tue， 则 执行 do 代码 块 内 容 。 当 Shour 值 大 于 17 时 执行 本 行 表达 式 …… 

. 每 次 完成 循环 后 ， 将 标量 Shour 递增 1。 


直 





人 U PD 一 





ADEOoo Gen 

















Switch.pm 模块 。 如 果 读 者 需要 使 用 switch 语句 ， 则 可 使 用 Switch.pm 模块 。 该 模块 可 从 
http://search.cpan.org/~Tgarcia/Switch-2.13/Switch.pm 处 找到 。 详 见 示例 7.25 。 


示例 7.25 


人 ES 
1 use Switch; # TIoaas aa Perl moaule 


OO 
ETOERSGOEEE 三 全 SENE)T 
3 Switch("S$Scolozr") 
WEEEaEEEQORRLOETOOL ROSERETSmSNEIY 
Sassouec EC 人 ECGnEEDUSSRNOO 
case "green" { Print "How green my ValleyNn"7l} 
case eicw EmmaOE 让 


5 else 人 ETE 
} 

6 ECOORCOEOOUSSETE 王 EN 

GEGUE) 

2 OF2EDLUue 


油 古 9 性 基 在 es 忆 六 末 硬 CE O 全 二 本 ES 
6 了 XecutIion continues nere.... 


DIE 
二 
6 了 Execution contIinues here.... 


1. 本 行 代 码 负责 将 Switch.pm 模块 从 标准 Perl 库 载 入 程序 内 存 空间 中 。 

2. 要 求 用 户 输入 其 最 喜欢 的 颜色 ， 该 信息 将 存储 到 标量 $color 中 。 

3. Switch 语句 负责 检查 变量 $color 的 值 ， 并 与 下 面 case 语句 中 提供 的 字符 串 进 行 比较 。 这 里 
的 “case” 亦 可 换 成 ipelsif 结构 中 的 elsif 语 句 。 

4. 如 果 颜 色 值 为 “red” 则 执行 case“red” 后 面 的 代码 块 , 然后 跳 转 到 第 6 行 。 如 果 不 是 “red”， 
则 继续 判断 下 一 个 case 语句 “blue”， 依 此 类 推 。 

5. 如 果 所 有 的 case 内 容 都 不 匹配 switch 表达 式 ， 则 执行 else 代码 块 。 


汶 


件 了 3 人 





7.3 读者 应 当 学 到 的 知识 


. 什么 是 控制 结构 ? 

. 什么 是 块 ? 

.这 或 else 结构 之 后 的 花 括号 是 可 选 的 吗 ? 

. else 块 的 功能 是 什么 ? 

哪 种 控制 结构 支持 多 重 选 择 ? 

while 循环 和 do/while 循环 之 间 有 什么 不 同 ” 和 until 循环 相 比 呢 ? 
在 尚未 到 达 代 码 块 末尾 时 ， 应 当 如 何 跳出 循环 ? 
什么 是 redo 语句 ? 它 和 next 语句 之 间 有 什么 不 同 ? 

. 为 什么 在 进行 循环 控制 时 使 用 next 语句 要 优 于 用 redo ? 
10. 什么 是 无 穷 循环 ? 

11. foreach 循环 是 如 何 工作 的 ? 

12. Perl 支持 Switch 语句 吗 ? 什么 是 Switch.pm 模块 ? 

13. continue 代码 块 的 用 途 是 什么 ? 
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7.4 下 章 简介 





在 下 一 章 里 , 读者 将 学 习 如 何 借助 正则 表达 式 来 实现 模式 匹配 。 正 则 表达 式 是 Perl 提供 的 最 优 
秀 也 是 最 重要 的 语言 特性 之 一 。 读 者 将 学 到 表达 式 修饰 符 的 概念 ， 以 及 如 何在 文本 字符 串 中 找到 指 
定 模式 。 如 果 读 者 熟悉 UNIX 提供 的 grep 或 vi 编辑 器 ， 那 么 就 还 可 以 了 解 到 Perl 是 如 何 通过 其 匹 
配 和 蔡 换 运算 符 和 大 量 正 则 表达 式 元 字符 来 改进 并 简化 模式 匹配 动作 的 。 




















练习 7 什么 是 条 件 ? 


1. 物理 学 家 告诉 我 们 ， 最 低 的 温度 是 绝对 零度 ， 它 等 于 华氏 -459.69 " 。 
a. 接收 用 户 输入 : 起 始 温 度 、 结 束 温 度 和 增值 〈 单 位 都 是 华氏 度 )。 
b. 检查 输入 错误 : 即 小 于 绝对 零度 的 情况 和 结束 温度 小 于 起 始 温度 的 情况 。 如 果 发 现 这 两 种 情 
况 ， 则 让 程序 发 送 消息 到 STDERR。 
c. 打印 标题 “Fahrenheit Celcius”。 打 印 从 开始 到 结束 温度 之 间 的 所 有 值 。 请 使 用 循环 机 制 ， 其 
转换 公式 为 : C=(F-32)/1.8。 
2. 要 求 用 户 输 入 一 系列 以 空格 分 隔 开 的 分 值 ， 并 将 这 些 分 值 保 存 到 字符 串 $input 中 。 
a. 拆 分 字符 串 $input， 创 建 一 个 新 数组 。 
b. 借助 foreach 循环 获得 所 有 分 值 之 和 。 
c. 打印 平均 值 。 
3. 编写 一 段 脚 本 ， 从 一 县 纸牌 中 随机 抽取 10 张 ， 并 打印 结果 值 。 
a. 该 脚本 应 当先 借助 foreach 循环 构建 一 套 52 张 牌 。 
b. 外 层 循 环 负责 按照 花色 遍历 整套 纸牌 : 梅花 、 方 块 、 红 桃 、 黑 桃 。 内 层 循 环 则 针对 每 一 种 花色 
遍历 所 有 数字 : A、1 到 10、J、 Q 以 及 玉 。 从 各 花色 获得 的 纸牌 都 将 赋值 到 一 个 数组 中 。 
c. 使 用 rand0) 国 数 从 上 述 数组 中 随机 获得 一 张 纸 牌 。 这 样 做 便 能 保证 获得 的 10 张 纸牌 互 不 重复 。 





























第 8 章 正则 表达 式 一 一 模式 匹配 


8.1 什么 是 正则 表达 式 


如 果 读 者 熟悉 UNIX 实用 工具 ， 璧 如 vi、sed、grep 和 awk， 就 应 该 了 解 用 于 定 界 搜索 模式 的 
正则 表达 式 和 元 字符 。 在 Perl 中 ， 它 们 又 回来 啦 。 

那么 ,到底 什么 是 正则 表达 式 呢 ? 正则 表达 式 是 一 种 序列 或 字符 模式 ， 负 责 在 搜索 和 替换 文本 
时 对 文本 内 容 进 行 字符 串 匹 配 。 简 单 的 正则 表达 式 直 接 由 待 匹 配 字 符 串 或 字符 集 构成 。 正 则 表达 式 
一 般 以 斜 枉 〈/) 作为 定 界 符 9。 在 执行 模式 匹配 时 , Perl 的 默认 搜索 对 象 是 特殊 变量 $_ 的 内 容 。$_ 
就 像 影 子 一 样 ， 有 时 可 以 使 用 ， 有 时 又 不 能 。 不 过 读者 不 必 担 心 ， 在 读 完 本 章 后 ， 一 切 就 都 水 落石 
出 了 5 


下 /abc/ 
齐 Bae 


解释 
1. 模式 abe 位 于 斜 枉 之 间 。 如 果 要 在 字符 串 或 文本 文件 中 匹配 该 模式 ， 则 所 有 含有 字符 串 apc 
的 字符 串 都 会 匹配 成 功 。 
2. 模式 abc 位 于 问号 之 间 。 在 搜索 该 模式 时 ， 则 只 有 该 字符 串 的 第 一 个 字符 匹配 即 可 《〈 详 见 附 
录 中 的 reset 国 数 )。 











8.2 表达 式 修 饰 符 与 简单 语句 


所 谓 简单 语句 ， 就 是 以 分 号 结尾 的 表达 式 。Perl 提供 了 -一 组 修饰 符 ， 负 责 根据 某 些 条 件 进一步 
求 表达 式 的 值 。 在 简单 语句 中 可 能 含有 以 这 类 修饰 符 结尾 的 表达 式 。 这 些 修饰 符 及 其 表达 式 都 是 以 
分 号 结尾 的 。 在 对 正则 表达 式 求 值 时 ， 使 用 修饰 符 要 比 使 用 完整 的 条 件 结构 〈 见 第 7 章 ) 显得 更 为 
和 











名 实际 上 ， 任 何 字符 串 都 可 以 成 为 定 界 符 ， 详 见 表 7.3 以 及 示例 7.12。 





正 出 表达 式 
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让 
unless 
While 
until 
foreach 


8.2.1 条 件 修 饰 符 


这 修饰 符 。 计 修饰 符 用 于 控制 含有 两 个 表达 式 的 简单 语句 。 如 果 Expressionl 表达 式 为 真 ， 则 
执行 Bxpression2 表达 式 的 内 容 。 


格式 


EDEeSSEC2EEEDEESIERGTD HR 


示例 8.2 
何 吕 量 SeeaerEy 
由 与 式 王 二 王 57 
加 PILESXEET 王 三 Sx 三 = 三重 5 


OUEoE) 
解释 
1. 将 $x 赋值 为 5。 只 有 当 $x 等 于 5 时 ， 程 序 才 会 打印 $x 的 值 。 
2. 让 修饰 符 必 须 放 在 语句 末尾 。 在 本 示例 中 , 它 负责 控制 print 函数 的 执行 。 如 果 表 达 式 $x==5 
值 为 真 ， 则 打印 Sx 的 值 。 也 可 将 其 改 成 为 这 $x==5) {print $x;} 


示例 8.3 
全 Snieo ty 
世 $_ = "xabcyNn": 
史 站 工 1T 证 本 起 Ci 1 


AN 


ouEewuey 
XaDPcy 


解释 
1. 将 标量 型 变量 $_ 赋值 为 字符 串 xabcy。 
2. 如 果 让 修饰 符 后 面 直接 跟随 着 正则 表达 式 ，Perl 就 会 假定 待 匹配 的 字符 串 位 于 $_， 它 是 默 
认 的 模式 匹配 占 位 符 。 如 果 字 符 串 中 任意 位 置 的 子 串 与 正则 表达 式 abc 匹配 ， 则 打印 $_ 的 值 
xabcy 呈 。 该 表达 式 亦 可 写作 证 $_=~/abc/〈 本 章 最 后 将 讨论 =~ 模式 匹配 运算 符 的 用 法 )。 


示例 8.4 
全 王 是 Se 
并 $_ = "I lost my gloves in the ClLover.":; 
归 ER TEST SEE 负 ve 全 








加 $_ 也 是 print 国 数 的 默认 输出 内 容 。 





7158 条 8 章 
并 ODSOFTD TEAOZe 
weeuey 
Founa Jore 1 9Jo7es! 
解释 


1. 将 $_ 赋值 为 字符 串 Ilost my gloves in the clover。 

2. 如 果 正 则 表达 式 love 与 $_ 相 匹配 ， 则 打印 字符 串 Found love in gloves ! ; 否则 不 打印 。 本 
例 中 ，glove 与 clover 字符 串 均 能 匹配 正则 表达 式 love。 搜 索 过 程 从 字符 串 最 左 端 开始 ， 因 
此 在 到 达 clover 之 间 恕 已 经 在 glover 处 匹配 为 真 了 。 如 果 显 式 地 将 $_ 《〔〈 或 其 他 标量 ) 用 在 
认 修 饰 符 之 后 的 话 ， 则 应 当 在 处 理 正则 表达 式 时 使 用 三 一 模式 来 匹配 运算 符 。 








8.2.2 DATA 文件 句柄 


后 面 的 示例 将 使 用 特殊 的 DAIA 文件 句柄 作为 while 循环 中 的 一 个 表达 式 。 这 样 便 可 从 执行 它 
的 同一 脚本 中 直接 获得 数据 , 而 不 是 从 另 一 个 文件 里 读 取 输 入 〈 详 见 第 10 章 “ 获 得 文件 句柄 ”)。 数 
据 本 身 内 容 保 存在 每 个 脚本 末尾 的 特殊 实 量 _DATA_ 之 后 。_DATA_ 标志 着 脚本 逻辑 的 结束 , 并 负 
责 打 开 DATA 文件 句柄 以 读 取 数 据 。 每 当 读 取 <DATA> 的 一 行内 容 之 后 ， 就 将 它 赋 值 给 特殊 标量 
$ 。 尽 管 在 这 里 $_ 是 隐 含 的 ， 用 户 也 可 以 显 式 地 使 用 它 ， 或 者 用 其 他 标量 代替 它 。 下 面 示例 展示 
了 它 的 调用 格式 。 



































格式 


while(<DRATRA>) 1{ 

DO sometnpin9 with the aata hnere 
1 
四 

The actual aata II5 StoreQ Phere 


OT you could use the $_explicitly as follows: 


while($ =<DRATA>) { 

厂 OisomeEnanouw En Eneaata nere 
】} 
四 

Thpe actual aata 1I5 StoreaQ Pere 


Or use another variable instead of $_ as follows: 


while(S$inputline=<DATA>) { 

Do sometnpino winp the aata here 
} 
四 

Thpe actual aata 2I5 SoreQ Pere 


(The Script) 
1 while(<DATRA>) { 
忆 TDEEEEWNCOEmS # Print the Jine IF It matches Norma 


】 
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DATAR 
SteVve BlLenheim 
Betty Boop 
go 三 CnmsweSkv 
Norma Cord 
Uon DeLoachn 
Karen 卫 Vich 

GE 

Wermnsmeco 


解释 

1. 特殊 的 DATIA 文件 句柄 能 从 _DAIA_ 后 面 的 文本 中 读 取 输入 内 容 。 当 进入 while 循环 时 , 会 
把 输入 行内 容 保 存 到 标量 型 变量 $_ 中。 在 这 里 , 保存 在 $_ 中 的 第 一 行内 容 是 Steven Blenheim。 
下 一 轮 循环 则 会 把 Betty Boop 保存 到 $_ 里 。 如 此 反复 , 直到 读 取 并 处 理 完 毕 _DATIA_ 之 后 的 
全 部 行 。 

2. 只 打印 含有 正则 表达 式 Norma 的 行 。 其 中 ,$_ 是 模式 匹配 操作 的 默认 对 象 。 亦 可 写作 print $_ 
让 $ =~/Norma/;。 

3.DAIA 文件 句柄 能 够 从 _DATA_ 标记 之 后 的 行 获取 数据 。 





示例 8.6 
ES 
册 while(<DRATRA>) { 
纪 ENOEmS7EERPZEmE # ronpay! 
】} 


AN 


3 para 
SteVve BlLenheim 
Betty Boop 
Logor enmevsky 
Nmnms 硬 Ecoea 
Jon DeLoach 


Karen 了 Vich 


OUEoE) 
Xecution or Script aportea aue to compIyation errors. 


解释 
1. 特殊 文件 句柄 DATA 能 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。while 循环 遍历 文本 的 
每 一 行 ， 并 将 每 一 行内 容 都 赋值 给 $_。$_ 和 是 默认 的 标量 变量 ， 用 于 保存 行 输 入 内 容 并 执行 
模式 匹配 。 
2. 修饰 符 必 须 位 于 表达 式 未 尾 ， 否 则 就 会 产生 语法 错误 。 该 语句 应 当 是 : print 证 /Norma/ 或 者 
if(UNorma/) {print;} 。 


unless 修饰 符 。unless 修饰 符 用 于 控制 由 两 个 表达 式 构 成 的 简单 语句 。 如 果 Expression1l 表达 
式 为 假 ， 则 执行 Expression2 表达 式 内 容 。 与 让 修饰 符 一 样 ，unless 修饰 符 也 位 于 语句 尾部 。 





格式 


EXEeSSsuon2unessEx6ESEDOTL 
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示例 8.7 
ES 
也 人 一 二 
之 Pint S$x unless S$Sx == 6: 
Www 
号 
允 


解释 
unless 修饰 符 能 控制 print 语句 。 如 果 表 达 式 $x==6 值 为 假 ， 则 打印 $x 的 值 。 


示例 8.8 
aeSEES EU 
1 ， while(<DRATRA>) { 
电 PLint unless /Norma/; # Print line IF It aoesnr't match Norma 


3 Dara 
SteVve BlLenheim 
Betty Boop 
开 gSI 划 CnmswskKv 
NSrcma 帮 EU 
Jon DeLoachn 
Karen 卫 Vich 


Outay) 

StLtee BJenpez2 mn 
Betty BooPp 
OPC 六 
Jon Depnoacn 
Karen 五 vIcDP 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 读 取 输 入 内 容 。 这 里 进入 while 循环 , 读 
取 _DATA_ 下面 的 第 一 行内 容 并 赋值 给 $_， 依 此 类 推 。 
2. 匹配 并 打印 所 有 不 含 模式 Norma 的 行 。 
3. 文件 句柄 DATA 从 _DATA_ 标记 之 后 的 行 读 取 数 据 。 


8.2.3 循环 修饰 符 


while 修饰 符 。 只 要 第 一 个 表达 式 为 真 ，while 循环 修饰 符 便 会 重复 执行 第 二 个 表达 式 。 





格式 


下 坟 DSSSuon2 NaeExESSSECmLZ 


示例 8.9 
ESemenety 
由 SX= 工 
包 Eliew Si 三 涩 5 


OOuEeuey) 
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村 
证 OU 


当 $x 不 等 于 5 时 ，Perl 打印 $x 的 值 。 
until 修饰 符 。 只 要 第 一 个 表达 式 值 为 假 ，while 循环 修饰 符 便 会 重复 执行 第 二 个 表达 式 。 





格式 


下 有 DTEeSSEOT 2 站 本 贿 下 esSuCmL 


示例 8.10 
SSE 
站 三 
驰 TESTIRUONEIUUESZEE 三 二 5 


AN 


1. 将 $x 赋 初 始 值 为 1。 
2. Perl 反复 打印 $x 的 值 ， 直 到 $x 等 于 5 为 止 。 其 中 ,设置 $x 初 值 为 1， 并 在 每 次 循环 结束 时 
递增 它 。 请 读者 务必 小 心 ， 别 陷入 无 穷 循 环 。 


foreach 修饰 符 。foreach 修饰 符 会 逐个 判断 列表 中 每 个 元 素 的 值 , 并 通过 标量 $_ 依次 引用 各 个 
列表 元 素 。 


示例 8.11 
SSSE Ti 
由 ENeliEROEES 2 有 


Print foreach GalPha: 


OUE 
EUelexeLE 训 ol6 划 易 忆 全 刺 10Eejeiess 帮 丽人 22 


解释 
1. 将 数组 @alpha 赋值 为 一 组 小 写字 。 
2. 逐个 地 将 列表 每 一 项 赋予 $_ 变量 ， 直 到 遍历 完 列 表 中 所 有 的 项 。 


8.3 正则 表达 式 运算 符 


正则 表达 式 运 算 符 用 于 在 替换 和 搜索 时 提供 匹配 的 模式 。 其 中 , 症 运算 符 可 用 于 匹配 模式 ， 而 
s 运算 符 则 用 于 替换 模式 。 


702 





8.3.1 


m 运算 符 与 匹配 


运算 符 mm 用 于 匹配 模式 。 如 果 正 则 表达 式 两 侧 的 定 界 符 是 正 斜 杠 的 话 , m 运算 符 就 是 可 有 可 无 
的 ; 但 如 果 用 户 在 程序 中 改变 了 定 界 符 ， 它 就 是 必需 的 。 当 正则 表达 式 本 身 含 有 正 斜 枉 〈 璧 如 搜索 



































生日 3/15/95 或 路 径 /usr/varadmin) 时 ， 用 户 就 有 可 能 改变 其 定 界 符 。 表 8-1 列 出 了 常用 的 几 种 匹 
配 修饰 符 。 
格式 
/Regulacr Expression/ ES 大 
In#Regular 也 XPFeSssioDn# optional aeIimiters 
mteegUlam sxozessucnl ae ESEES 
表 8-1 匹配 修饰 符 
修饰 符 售 义 
i 关闭 大 小 写 敏 感性 
mm 将 字符 串 作 为 多 行 处 理 
o 只 编译 模式 一 次 。 用 于 优化 搜索 流程 
S 和 读 入 换行 符 时 ， 将 字符 串 作 为 单行 处 理 
X 允许 在 正则 表达 式 中 提供 注释 ， 并 忽略 空白 字符 
三 全 局 匹配 。 即 查找 所 有 具体 值 。 如 果 用 于 数组 型 上 下 文 语 境 ， 则 会 返回 一 个 列表 ， 如 果 用 于 标量 




















型 上 下 文 语 境 ， 则 返回 真 或 假 








示例 8.12 


山 


On On 人 ON 


m/Good morningy/ 
/Good evening/ 
/\V/usrAV/VvarA\/adm/ 
贡 # /USLE/Vaz/adm# 
m(Gooa eveningl) 
m'S$Sname' 


圳 


人 U D 一 


. 本 例 不 需要 使 用 症 运算 符 ， 因 为 其 正则 表达 式 定 界 符 是 正 斜 杠 。 

. 以 正 斜 杠 作 为 定 界 符 ， 因 此 闻 运算 符 是 可 有 可 无 的 。 

. 对 搜索 路 径 中 的 每 个 正 斜 杠 字 符 都 通过 反 和 斜 杠 来 引用 ， 这 样 就 不 会 与 正 斜 杠 定 界 符 相 混 消 了 。 
. 这 里 必须 使 用 了 运算 符 , 因为 它 用 镑 符号 〈#) 代替 正 斜 杠 作 为 定 界 符 。 镑 符号 定 界 符 能 确 


定 并 简化 前 一 个 示例 。 


. 如 果 首 定 界 符 是 括号 、 方 括号 、 角 括号 或 花 括号 的 话 , 则 尾 定 界 符 必 须 是 与 之 对 应 的 闲 字 符 。 


壁 如 : m(expression)、m[expression]、m<expression> 以 及 m{fexpression } 。 


. 如 果 定 界 符 是 单 引 号 的 话 ， 则 不 允许 插入 变量 值 。 换 而 言 之 , 本 例 中 的 Sname 将 作为 一 个 实 


量 来 处 理 。 
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示例 8.13 
(IThe Scipt) 
于 while(<DRATRA>) { 
包 Print if /Betty/: # Print the Jine IF It matches Betty 
上 
3 para 
SteVve BlLenheim 
Betty BooP 
gzEECnmswskKY 
NSenma 三 Bo 
Jon DeLoach 
Karcen ViLch 


人 EGRE 
Betty BooPp 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 
2. 匹配 并 打印 与 模式 Betty 相 匹配 的 所 有 行 。 
3. 文件 句柄 DATIA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 


示例 8.14 

ES 

业 while(<DRATRA>) { 

翌 Print unless /BEvich/: 
} 

3 parRa 
Steve BlLenheim 
Betty Boop 
Iogor cehnewsky 
NSEma 本 局 SEU 
Jon DeLoach 
Karen 卫 Vich 


1 人 证 帮 本 0 区 ER 


we 
SeVve BJenpezm 
Betty BooPp 
工 9oF CnevsKy 
Wormae 硬 Ce 
Jon Deroacn 
解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 
2. 匹配 并 打印 与 模式 Evich 相 匹配 的 所 有 行 。 
3. 文件 句柄 DAIA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 


示例 8.15 
人 Eee 


1 while(<DATRA>) { 
区 PEint 荆 E m# 可 on# # ErInt the JIne If IE matcnhes on 
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】} 

3 Dara 
SteVve BlLenheim 
Betty Boop 
genmswsv 
Nma 硬 Co 
JUon DeLoachn 


Karen 卫 Vich 


oOwuEswey) 
Jon Demoacn 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 
2. 这 里 需要 使 腹 运算 符 ， 因 为 其 正则 表达 式 定 界 符 不 是 正 斜 枉 ， 而 是 镑 符号 〈# )。 打 印 与 
Jon 匹配 的 行 。 
3. 文件 句柄 DAIA 从 _DATIA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 


示例 8.16 


加 IE 三 SEE 
下 while(<DRATRA>) { 


乌 Pint if m(Karen 卫 ) ， # Print the IIine ifF It matches Karen 万 
} 

瑟 Sname="Jon'"; 

4 $ =dqq/Sname is a good sport.NXn/:; 

吕 Print if m'Sname' 

6 ED 


TDOAUAR 
SteVe BlLenheim 
Betty Boop 
omswSsky 
NScma 硬 Bo 
Jon DeLoach 


aren 也 vich 


(Our 

所 Karenm 了 77Icn 

本 Ne 人 训 人 人 

6 证 二 GOQ 


解释 

1. 特殊 文件 句柄 DATA 从 DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 

2. 这 里 需要 使 用 阐 运算 符 ， 因 为 其 正则 表达 式 定 界 符 由 默认 的 正 斜 杠 改 成 了 一 组 开 闭 的 括号 。 
这 里 可 供 选 用 的 其 他 字符 包括 方 括号 、 花 括号 、 角 括号 以 及 单 引 有 号。 如果 使 用 的 是 单 引 号 ， 
并 且 正 则 表达 式 内 售 有 变量 的 话 ， 则 不 会 解释 插入 该 变量 的 值 。 打 印 与 Karen E 相配 的 行 。 

3. 将 标量 $Sname 赋值 为 Jon。 

4. 将 $_ 赋值 为 包含 标量 $name 的 字符 串 。 





正 刚 表 达 式 模式 匹配 765 





5. 当 定 界 符 是 一 组 单 引 号 时 ,不 解释 正则 表达 式 中 的 变量 值 。 由 于 这 里 在 $_ 中 设 有 找到 $name 
的 值 ， 因 此 不 会 打印 其 内 容 。 

6. 如 果 正 则 表达 式 是 位 于 双 引 号 中 的 话 , 则 会 插入 $name 变量 的 值 。 如 果 含 有 Jon,， 就 打印 $_ 
中 的 字符 串 。 

7. 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 


g 修饰 符 : 全 局 匹配 。 修 饰 符 g 用 于 产生 全 局 匹配 效果 ， 即 匹配 行 中 所 有 模式 的 具体 值 。 如 有 果 
不 使 用 g 的 话 ， 模 式 只 会 与 磁 到 的 第 一 个 值 相 匹 配 。m 运算 符 将 返回 匹配 模式 列表 。 





格式 


m/search pattern/d 


AN 


示例 8.17 
(ITIhe SciRpt) 
#1Vuszc/pbin/Pez1l 
和 Eee 
受 QlList=/1Love/g: 
马 ae ULCER 


we 
引 OZeCYes 
解释 
1. 将 标量 $_ 赋值 为 文本 字符 串 。 
2. 如 果 使 用 修饰 符 g 进行 搜索 的 话 ， 把 匹配 项 存储 到 数组 @list 中 。 本 例会 在 字符 串 中 匹配 成 
功 两 次 ， 第 一 次 是 在 glove 中 ， 第 二 次 是 在 clover 里 。Love 是 不 匹配 的 ， 因 为 工 是 大 写字 母 。 
3. 打印 匹配 的 项 列表 。 


i 修饰 符 : 大 小 写 不 敏感 。 当 Perl 执行 模式 匹配 时 ， 模 式 是 对 大 小 写 敏感 的 。 如 果 用 户 需 要 关 
闭 大 小 写 敏 感性 ， 则 应 当 在 匹配 运算 符 的 最 后 一 个 定 界 符 后 面 加 上 ti 修饰 符 〈 即 insensitive )。 





格式 


m/search pattern/Ii 


AN 


示例 8.18 
下 加 随和 JEIICSEEY EeeSE ETEcievereneVea 
包 QlList=/1Love/gi: 
内 5 


Come 
习 Jovre JIovre Dove.， 
解释 


1. 将 标量 $_ 赋 值 为 文本 字符 串 。 
2. 这 一 次 使 用 i 修饰 符 关闭 大 小 写 敏感 性 。 此 时 ,love 和 Love 将 都 能 匹配 , 并 赋值 给 数组 @list。 
3. 找到 三 次 匹配 模式 ， 打 印 匹配 项 列表 。 


保存 模式 的 特殊 标量 。 特 殊 标 量 3$& 中 保存 着 上 一 次 成 功 的 搜索 过 程 中 所 匹配 的 字符 串 值 。 祥 ` 
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保存 了 成 功 匹 配 模式 之 前 所 找到 的 内 容 。&' 则 负责 保存 成 功 匹 配 模式 之 后 找到 的 内 容 。 


示例 8.19 


解释 


换 和 


业 


包 
习 


4 
己 


6 
也 


( 
引 
马 
到 


$ ="San Erancisco to Hong KongNn" ; 

EECGSESCGY 由 

EN 

人 

TI # Savre What comes before the strin9 "to' 

[ENSO #  \S Frepresents a space 

ES 
人 UEREW 

Pssmicseo 

SEE 

五 on9 天 onG9 


1. 将 标量 $_ 赋值 为 文本 字符 串 。 


. 搜索 模式 含有 正则 表达 式 Francisco 。Perl 会 在 $_ 变量 中 搜索 该 模式 。 如 果 找 到 的 话 ， 就 将 
模式 Francisco 保存 到 另 一 个 特殊 标量 $& 中 。 


3. 程序 匹配 模式 Francisco， 将 其 保存 到 特殊 标量 $& 中 并 打印 。 


4. 搜索 模式 含有 正则 表达 式 tt。Perl 会 在 $_ 变量 中 搜索 该 模式 。 如 采 与 它 匹 配 的 话 ， 就 把 模 


式 左 侧 的 字符 串 San Francisco 保存 到 特殊 标量 $ 中 注意， 这 里 是 反 引 号 )。 
.打印 $ 的 值 。 


6. 搜索 模式 含有 正则 表达 式 to\s 《to 后 面 跟着 空格 , 其 中 \s 代表 空格 )。Perl 会 在 $_ 变量 中 搜 





索 该 模式 。 如 果 与 它 匹配 的 话 , 就 把 模式 右 侧 的 字符 串 Hong Kong 保存 到 特殊 标量 $ 中 (入 
意 ， 这 里 是 单 引 号 )。 


7. 打印 $ 的 值 。 
x 修饰 符 : 表达 修饰 符 。 修 饰 符 x 用 于 在 正则 表达 式 中 放 和 注释 或 者 空白 字符 《空格 、 制 表 符 、 


了 符 等 )， 以 便 让 表达 式 含义 更 明确 。 而 这 些 字符 是 不 作为 正则 表达 式 的 组 成 部 分 来 解释 的 。 因 








此 可 以 通过 它 在 正则 表达 式 中 描述 其 意图 。 


示例 8.20 


灿 
多 


忆 


NE 


SEE 

/Francisco  # Searchin9 For Francisco 

/xi 

Print "Comments andq spaces Were removedq and \S$S& is S$S&Nn"; 
[SS 

Comments ana Spaces Were removea ana 5& IIS FrancIsco 


图 
刷 


虑 


将 标量 $_ 赋值 为 文本 字符 串 。 


2. 搜索 模式 由 Francisco 及 其 后 面 的 空格 、 注 释 以 及 另 一 个 空格 符 组 成 。 修 饰 符 往 允许 将 附加 
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的 空白 字符 和 注释 插入 到 模式 中 ， 而 不 是 作为 搜索 模式 的 一 部 分 去 解释 。 


3. 打印 出 的 内 容 表 明 ， 整 个 搜索 过 程 没 有 受到 注释 与 空白 字符 的 影响 。$& 中 含有 搜索 结果 匹 


配 项 。 


8.3.2 s 运算 符 与 替换 


运算 符 s 用 于 替换 操作 。 替 换 运算 符 负责 用 第 二 个 正则 表达 式 替 换 第 一 个 正则 表达 式 。 它 也 可 
以 变换 不 同 的 定 界 符 。 位 于 最 后 一 个 定 界 符 之 后 的 g 修饰 符 表 明 这 是 





返回 的 结果 是 其 完成 的 蔡 换 数目 。 如 果 不 使 用 它 的 话 ， 
影响 。 表 8-2 列 出 了 和 常见 的 几 种 替换 修饰 符 。 
符 串 搜 索 过 程 中 找到 的 任何 内 容 。 





特殊 内 建 变 量 $& 能 


格式 


s/old/new/:; 

Ss/eold/new/i7 
s/old/new/gy; 
S+olada+new+gy 


4 日 性 > 


状 侍 子 





s (old) /new/ s[oldl {newj]:; 
s/old/expression to be evaluated/ey 


SABTOER AAS 
EAI 全 





示例 8.21 


汪 罗 SS 
GREAT 
Ss/norma/Jane/ ay 
EECRSILUEISTORE 

ESD 让 SDDSST> 


SLSISGEASIS SU 天 TEA 





只 有 模式 的 第 一 个 具体 值 








s/dec/"Dec" . "embern" # RepJlace "aec" or "pec"”wIth "Decemper7" 
NE 
表 8-2 ”替换 修饰 符 
修饰 符 洒 义 
e 将 替换 一 侧 作为 表达 式 来 求 什 
i 关闭 大 小 写 敏感 性 
将 字符 串 作 为 多 行 处 理 
0 只 编译 模式 一 次 。 用 于 优化 搜索 流程 
S 和 髓 入 换行 符 时 ， 将 字符 串 作为 单行 处 理 ” 
X 允许 在 正则 表达 式 中 提供 注释 ， 并 忽略 空白 字符 
g 全 局 匹配 。 即 查找 所 有 有 具体 值 








a. 其 中 mm、s 和 X 选 项 只 定义 于 Perl5 中 。 


























次 全 局 修改 操作 。s 运算 符 
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1 while(<DRATRA>) { 
忆 SsS/Norma/Jane/: 1 
区 下 

} 
AD 丰 


Steve BJLenheim 
Betty Boop 
9 名 mswESV 
Norma Cord 

Jon DeLoach 
Karen 卫 Vich 


OUEoy) 

Seve BJenpezm 
Betty BooP 
TCFEPe7SK 广 
JUane Cora 

Jon Derpoacn 
Karen 五 vIcn 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 
2. 对 于 $_ 变量 中 含有 Norma 正则 表达 式 的 行 , 替换 运算 符 s 会 把 每 一 行 上 上 Norma 的 第 一 个 具 
体 值 蔡 换 为 Jane。 
3. 无 论 是 否 发 生 替 换 ， 打 印 每 一 行内 容 。 
4. 文件 句柄 DAIA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 


示例 8.23 


Oo 
于 while($ = <DATRA>) { 


之 Print if s/Igor/Ivan/: 1 


) 

3 para 
SteVe BlLenheinm 
Betty Boop 
Igorzuche7ysKy 
Norma Cord 
Jon DeLoach 
Karen 了 Vich 


OUESULEY) 
TVvan Chevsky 


1. 特殊 文件 句 栖 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 

2. 对 于 $_ 变量 中 含有 Norma 正则 表达 式 的 行 ,替换 运算 符 s 会 把 每 一 行 上 Igor 的 第 一 个 具体 
值 替换 为 yan。 只 有 在 替换 成 功 时 才 会 打印 该 行内 容 。 

3. 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 
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改变 替换 定 界 符 。 一 般 而 言 ， 搜 索 模 式 和 替换 字符 串 两 边 都 应 当 是 正 斜 杠 定 界 符 。 而 在 s 运算 
符 后 ， 任 何 非 字母 数字 的 字符 都 可 用 于 代替 正 斜 杠 成 为 定 界 符 。 例 如 ， 如 果 s 运算 符 后 面 有 #， 它 
就 是 用 于 堆 换 模式 的 定 界 符 。 如 果 使 用 -- 对 小 括号 、 花 括号 、 方 括号 或 角 括号 作为 搜索 模式 的 定 界 
符 的 话 ， 任 何其 他 类 型 的 定 界 符 都 可 以 用 于 替换 模式 ， 璧 如 s(John)/Joe/。 


emSeTnety 








站 while(<DATA>) { 
包 S# 工 gor#Boris#: # Supstitute I9or mizth Boris 
二 1 宙 国 > 
】 
4 para 


Steve BlLenheim 
Betty Boop 
Igoz ChevsKky 
Nma 本 EU 

JUon DeLoachn 
Karen 卫 Vich 


(GEGIDE) 

StLeVe BJIJenpez2 mn 
Betty BooP 
omsCne7sK7 
Nons 本 Eco 

Jon Depoacn 
Karen 五 vIcDP 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_ 
2. 运算 符 s 后 面 的 定 界 符 改 成 了 镑 符号 〈#)。 本 行 三 个 定 界 符 都 是 镑 符号 。 本 例 将 以 Boris 替 
换 正 则 表达 式 中 的 Igor。 
3. 文件 句柄 DAIA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 


示例 8.25 


人 nescecnpty 
炳 while(<DRATRA>) { 


又 s (BLenheim) {Dobbinsjl: # SupstIztute BIenpheim wztnh Dobpbins 
司 je 

】} 
4 DATA 


Steve BLenheim 
Betty Boop 
LooEECnmeysv 
Nonmnsscea 

Jon DeLoach 
Karen 了 Vich 


key 
Sevre DoppIins 
Betty BooPp 
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ee 
Norma Cora 
Jon Deroacn 
Karen 五 viIcph 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATIA_ 后 的 第 一 行内 容 ， 并 赋值 给 3 _。 
2. 使 用 括号 作为 定 界 符 搜索 模式 Blenhein， 使 用 正 斜 枉 作 为 定 界 符 替 换 模式 Dopbins。 
3. 打印 输出 ， 其 内 容 表 明 发 生 了 和 蔡 换 操作 ， 成 功 地 将 Blenhein 替换 为 Dobbins。 
4. 文件 句柄 DAIA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 


g 修饰 符 : 全 局 替换 。 修 饰 符 g 用 于 产生 全 局 替换 效果 ， 即 替换 行 中 所 有 模式 的 具体 值 。 如 有 果 
不 使 用 g 的 话 ， 则 每 行 只 会 替换 模式 的 第 一 个 具体 值 。 

















格式 


s/search Pattern/replacement string/g; 


示例 8.26 
全 Eee 芭 ) 
让 WE 
人 est 
册 while(<DRATA>) { 
2 EnEEIEESTomCIETNSE 上 Ian 下 二 直 2 这 名 下 司 六 区 全 汪 站 帮 RC 万 大 5 万 是 二 3 局 
# Jine 5 FepIacea with ChrIistia 
】} 
3 Dara 
此 Let 六 全 晴 轴 二 
BESTYEEomnEETES EREN 
Igor Norma Tom Tonm 


人 SiEna 

[eg6E 人 5 灰 汪 cp 三 7oMojll 

司 SEE 六 忆 iT 
NO 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 
2. 将 读 取 的 每 一 行 中 匹配 tom 的 第 一 个 值 奉 换 为 Christian 。 
3. 文件 句柄 DAIA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 


示例 8.27 
ES 
# With the 9 optioDn 
1 while(<DRATRA>) { 
也 Print if s/Tom/Christian/g:; # aa171 occurrences of 7Tom on each 
# ine are zepJacea with ChFIstIaD 
】 
3 
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Tom Dave Dan ITom 
REGEYETEOmEEEEnEYEEICm 
I9or Norma Tom Tom 


OOuEswey) 
加 
SS 
疙 NG 让 六 全 


解释 


1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 


_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 


2. 由 于 这 里 使 用 了 g 选项 , 因此 替换 操作 是 全 局 的 。 本 例 将 读 取 的 每 一 行 中 匹配 tom 的 所 有 值 


全 部 替换 为 Christian 。 


3. 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 


i 修饰 符 : 大 小 写 不 敏感 。 当 Perl 执行 模式 匹配 时 ， 模 式 是 对 大 小 写 敏感 的 。 如 果 用 户 需 要 关 
闭 大 小 写 敏 感性 ， 则 应 当 在 匹配 运算 符 的 最 后 一 个 定 界 符 后 面 加 上 fi 修饰 符 〈 即 insensitive ) 。 


格式 





SsS/search Pattern/replacement string/ ii 


示例 8.28 
ESETnety 


中 
2 


沁 


# MatcnhIzno WILDP the 工 OPtIo 
while(<DRATRA>) { 
Print if /norma cord/i 5 
】} 
EAI 
StEeve Blenheanmn 
Betty Boop 
下 ozEECmsSEV 
Norma Cord 
可 mmBDemoaecin 
Kacen Vich 


OUE 
WSI 


解释 


1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 


_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 


2. 如 采 不 使 用 i 选 项 ， 则 正则 表达 式 和 orma cord/ 将 设 有 匹配 项 ， 因 为 读 入 的 行 中 存在 大 写字 


母 。i 选 项 则 能 关闭 大 小 写 敏感 性 。 


3. 文件 句柄 DAIA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 


示例 8.29 
meiSscnouy 


下 
冯 


while (<DATA>) { 
Print if s/igor/DanielL/i: # Supstitute I9or with Daniel 





大 人 证 
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】} 
3 DATA 
SteVe BlLenheiam 
Betty Boop 
工 gOzClneskvy 
Norma Cord 
Jon DeLoach 
Karen 卫 Vich 
OUE 
DanzeJl CPersKy 
解释 


1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 

2. 如 果 指 定 了 i 选项 ， 则 在 替换 操作 中 ， 正 则 表达 式 就 是 大 小 写 不 敏感 的 。 如 果 匹 配 到 了 igor 
或 Igor 〈 或 其 他 任何 大 小 写 混合 的 匹配 情况 )， 则 将 其 杰 换 为 Daniel。 

3. 文件 句柄 DAIA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 


e 修饰 符 : 求 表达 式 值 。 在 进行 替换 操作 时 ， 可 能 需要 去 求 表达 式 或 者 函数 的 值 。 本 修饰 符 负 
责 将 搜索 端 内 容 替 换 成 上 述 求 值 的 结果 。 





格式 


s/search Pattern/replacement string/e:; 


示例 8.30 


(The Script) 
# 7Tpe e ana 9 moai 太 ers 
1 while(<DATRA>) { 
及 s/6/6 * 7.3/eg: 页 2 


司 ie 
} 
DaTrA 
Steve BlLenheim 
Betty Boop 
开 9oCmsweEv 
Nenma 本 Be ad 
Jon DeLoach 
Karen 卫 Vich 


OOIPFION On 


(GuEGE) 

Seve BJennpezm 河 

局 BOC 取 
GECGmevsKY 43.8 
NonmneEeo 吕 

Jon Depnoacn 杞 

Karen 五 vIcn 43.343.8 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATIA_ 后 的 第 一 行内 容 , 并 赋值 给 $_。 每 次 进入 循环 体 时 , 将 _DAIA_ 后 面 的 一 行内 容 赋 
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2 


9 


值 给 $_ ， 直 到 所 有 行 都 处 理 完 毕 。 

. 如 有 果 标 量 $_ 中 含有 数字 6， 则 求 表 达 式 值 ， 并 用 和 它 代替 替换 操作 的 替换 端 内 容 。 即 6 乘 以 
7.3〈e 修饰 符 )。 每 次 磁 到 6 时， 就 用 上 述 乘积 〈43.6) 代替 原 数字 6 〈g 修饰 符 )。 

. 打印 每 一 行内 容 。 最 后 一 行 中 含有 两 个 6， 它 们 都 会 被 替换 为 43.8。 


示例 8.31 


( 


下 


Ne 


TEST 
# Thpe e modazi 矿 er 
人 
s/5/6 * 4 - 22/e:; 


TEST NO 
4 8$ =1055; 

5 ， s/5/3*2/eg: 

6 ETRUIE ESTUISEEOESE NT 
euEeeuey 

3 RE SO 

6 ES 

又 


CN 


. 将 标量 $_ 赋值 为 5。 

. 运算 符 s 负责 在 $_ 中 搜索 正则 表达 式 5S。 修 饰 符 表明 要 对 数字 表达 式 求 值 , 并 用 算术 运算 
6*4-22 〈 等 于 2) 的 结果 替换 原 字 符 串 。 

. 打印 求 值 结果 。 

. 将 标量 $_ 赋值 为 1055。 

. 运算 符 s 负责 在 $_ 中 搜索 正则 表达 式 5。 修 饰 符 e 表 明 要 对 数字 表达 式 求 值 ， 并 用 乘积 3*2 
的 值 替换 它 。 也 就 是 说 ， 每 当 碰 到 5 时 ， 就 将 它 替换 为 6。 由 于 替换 操作 是 全 局 的 ， 因 此 所 
有 的 5 都 会 替换 成 6。 

. 打印 求 值 结果 。 


AN 


示例 8.32 


( 
炳 
电 
局 


( 


SSG io 
SS = "knock at heaven's Qoor.Nn"; 
Snoeckyoknock ExE2OKOCKIIAEE 
nEOUNe LS 本 2 


人 ES 


ResRSocROEA AKCOCO ee 和 GE 


解释 
作 


2 


LD 


标量 $_ 中 存 有 字符 串 Knock at heaven's door.\n 。 

. 运算 符 s 负责 在 $_ 中 搜索 正则 表达 式 knock。 修 饰 符 e 表 明 要 对 字符 串 表 达 式 求 值 , 将 其 替 
换 为 knock x2《〈 即 重复 2 次 )， 然 后 与 字符 串 knocking 相连 〈 点 运算 符 )。 整 个 过 程 包 略 大 
加 富 。 

. 打印 得 到 的 字符 串 。 


AN 


示例 8.33 


( 


MSG Si 





174 第 8 章 
USEUI 
OO 
可 s/S /S& * 2/e: 
ET NEEETewise 有 是 SN 
4 S$ ="knock at heaven's door.NXn"; 
S SVWknockASS EYE2RSCEnOOVWeS 
6 nmaoiews 生 国人 
(GEGUE) 
电 The new Value is 10000 . 
6 Fe's KDockvKknockvrknockin9 at heavren's aoor. 


训 


. 将 标量 $_ 赋值 为 5000。 


P 一 


. 搜索 字符 串 5000 保存 在 变量 $& 中 。 求 替换 端 表 达 式 的 值 ， 即 $& 的 值 乘 以 2。 然 后 用 新 的 


值 替 换 原 有 值 ， 并 给 $_ 赋 新 值 。 


ULD 


. 打印 结果 值 。 
4. 将 标量 $_ 赋值 为 字符 串 Knock 


at heaven's door.\n 。 


5. 如 果 找 到 了 搜索 字符 串 《〈lknock) 的 话 ,， 将 其 存 入 标量 $& 中 。 求 替换 端 表 达 式 的 值 ， 即 重 
复 两 次 $& 的 值 (kmnock) 并 与 $&ing (lnocking) 相连 。 然 后 用 新 的 值 奉 换 原 有 值 ， 给 $_ 赋 


新 值 并 打印 。 
8.3.3 模式 绑 定 运算 符 


模式 绑 定 〈pattern binding) 运算 符 能 够 把 匹配 的 模式 、 替 换 或 转换 〈 详 见 附录 A 中 的 好 ) 与 
另 一 个 标量 表达 式 绑 定 到 一 起 。 在 前 面 的 示例 中 ， 基 于 默认 模式 空间 $_ 标量 上 的 模式 搜索 过 程 是 
隐 式 〈 或 显 式 ) 完成 的 。 即 ， 循 环 处 理 的 每 一 行文 件 内 容 都 必须 保存 在 变量 $_ 中。 在 前 面 所 述 示 
例 中 ， 都 是 为 $_ 赋 一 个 值 ， 并 将 其 用 作 蔡 换 时 的 搜索 字符 串 。 但 是 ， 如 果 程 序 需要 把 这 个 值 保存 
到 $_ 之 外 的 某 个 变量 ， 那 又 该 怎么 办 呢 ? 





即 不 使 用 
$ = 5000; 
而 应 当 使 用 


S$Ssalary = 5000:; 


如 果 要 在 $salary 上 执行 模式 匹配 或 替换 操作 ， 就 不 能 使 用 


Print if /5/; 或 者 s/5/16:; 
而 是 应 当 使 用 


Print if $salary = ~/5/” 或 者 


S$Ssalary = ~S/5/6:; 





因此 ， 如 果 不 把 字符 串 存 人 $_ 变量， 同时 又 想 对 它 执行 模式 匹配 或 替换 操作 的 话 ， 就 应 当 使 
用 模式 绑 定 运算 符 =- 或 :=。 在 tr 国 数 中 ， 它 们 还 可 用 于 字符 串 翻译 过 程 。 
表 8-3 列 出 了 所 有 模式 匹配 运算 符 。 






























































正 刚 硼 达 式 一 一 模式 匹配 775 
格式 
Variable =~ /Expzession/ 
Variable !~ /Expression/ 
Variable =~ Ss/old/new/ 
表 8-3 ”模式 匹配 运算 符 
示例 涵 义 
Sname =~/John/ 如 果 Sname 含有 模式 则 为 真 。 如 果 是 真 ， 返 回 1;， 否则 返回 空 值 
$name !~/Johny/ 如 果 $name 不 含有 模式 ， 则 为 真 
$name =~s/John/Samy/ 将 匹配 John 的 第 一 个 值 替 换 为 Sam 
S$name =~s/John/Sam/g 将 匹配 John 的 所 有 有 具体 值 替 换 为 Sam 
$name =~tr/a-Z/A-Z/ 将 所 有 小 写字 符 翻 译 为 大 写字 母 
S$name =~/$pal/ 在 搜索 字符 串 时 使 用 变量 











示例 8.34 
ES 


中 
汉 
习 


本 Wo 王国 是 EC 汪汪 区 忆 有 全 光 
while($ =<DRATA>) { 
TI ES 国 汪 工 芋 帮 S 玫 三 二 /II 本 让 和 2 天 JOSE 本 CE 矶 二 7 己 名 国 玫 交 芭 
提 ET 人 
) 
ON 
SteVe BlLenheimn 
Betty Boop 
Igor Chevsky 
Norma Cord 
JUon DeLIoachn 
Karen 了 Vich 


Nowueewuty) 
GEOeTSsKY 


1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 


解释 


_DAIA_ 后 的 第 一 行内 容 , 并 赋值 给 $_ 。 每 次 进入 循环 体 时 , 将 _DAIA_ 后 面 的 一 行内 容 赋 
值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 


2. 如 果 有 正则 表达 式 /Tgor/ 在 变量 $_ 中 匹配 , 则 通过 print 函数 打印 $_ 的 值 。 只 有 在 显 式 地 


使 用 $_ 作为 操作 数 时 才 需 要 =~。 


3. 如 果 省 略 了 模式 匹配 运算 符 =~， 则 默认 为 与 $_ 相 匹 配 。 如 采 没 有 给 print 国 数 提供 参数 的 


话 ， 默 认 也 会 打印 $_ 的 值 。 


示例 8.35 
(The Scipt) 


灿 
包 


#1V/usz/pbin/Per1l 
Sname="Tommy Tutt1le":， 
Pint "Hello TommyNxn" if S$name =~ /Tom/ : 


2 





776 入 8 部 
# PrinptSs 刀 eIJo TommyyvrIF true 
司 Przint "SnameNnn" if Sname !~ /Tom/: 站 Erznts Dothina 1iF false 
4 Sname =~ S/T/M/ : 生生 


SSTIERNTOL 
Sname="Tommy Tutt1le":， 


EAIWVOSIE ETWVIESE SmES 
OCTINTOOETEE<STDIN> 玫 三 省 ]RTE 世 Le 人 


6 
也 Print "SnameNXn'" 1iIE $Sname =~ S/T/M/g: # Substitute evrery 了 with M 
8 
多 


ouEewey) 

到 万 eJJ LO 了 工 Om7 

号 Mommy TELtJIe. 

了 Mommy MuttJle 

8 ER 
吕 GD 训 


. 将 标量 $name 赋值 为 字符 串 Tommy Tuttle 。 


. 若 $name 中 含有 模式 Tom， 则 打印 字符 串 Sname。 在 成 功 匹 配 时 ， 返 回 值 为 1。 


.车 Sname 中 不 含 模式 Tom， 就 不 打印 字符 串 Sname。 不 成 功 匹 配 时 的 返回 值 为 空 值 。 


.打印 Sname， 显 示 替 换 的 效果 。 
. 将 标量 $name 赋值 为 字符 串 Tommy Tuttle 。 





1 
2 
3 
4. 将 $name 中 第 一 个 字母 工 蔡 换 为 字母 M。 
5 
6 
7 


.将 $name 中 的 所 有 字母 T 蔡 换 为 字母 M。 位 于 替换 表达 式 末尾 的 修饰 符 g 负责 产生 跨行 的 


全 局 替换 效果 。 
8. 要 求 用 户 提供 输入 。 


9. 针对 正则 表达 式 Tuttle， 匹 配 用 户 输入 (<STDIN>)。 如 果 发 现 匹 配 项 ， 则 执行 Print 函数 。 


示例 8.36 


Enoa 


也 $salary=50000: 

电 $salary =~ s/S$salary/S& * 1.1/e: 

互 EN 

4 IE 
asiunay 


( 
加 OO 人 
4 Zhe sayary zs nomw 555000 . 


解释 
1. 将 标量 $salary 赋值 为 5000。 
2. 在 $salary 上 执行 替换 操作 ， 并 求 替 换 端 表达 式 的 值 。 特 殊 标 量 $& 中 含有 搜索 端 





骨 找 到 的 值 。 


阁 要 在 匹配 完成 后 改变 $salary 的 值 ， 则 应 当 使 用 模式 匹配 运算 符 =~， 并 将 替换 结 采 与 标量 


5 绑 合 . 
3. 标量 $& 中 含有 在 替换 搜索 端 找到 的 内 容 。 
4. 把 标量 $salary 的 值 增加 10%。 
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示例 8.37 


(The Scipt) 
# UsIin9 SPIIL ana pattern matcnpIin9 
了 while (<DATRA>) { 


模式 匹配 7ZZ 





色 EDE 人 三 汪 SHE 
习 Przint $1Line[0],"N\n" if $Line[1] =~ /408-/ 
井 Uszin9 the Pattern matchin9g operator 
} 
4 DRATRA 


SteVve BlLenheim:415-444-66717:12 Malin St， 

必 攻 已 E7 量 BRR 且 0 攻克 2 芝 三 区 才 在 坟 二 半生 可 让 Sm 

Igor Chevsky:408-567-4444:3456 Mary 出 ay 
Non 三 名 oO 是 三 2 有 性 二 人 全 人 ISSUE 起 站 本 
可 mmDemoache20l=444=6556554 Penmnny rn 
Karen Evich:306-333-7654:123 4th Ave. 


OUEUE) 
Tor CPpevsKy 


解释 

1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 每 次 进入 循环 体 时 ， 将 _DATIA_ 后 面 的 一 行内 容 赋 
值 给 $_ ， 直 到 所 有 行 都 处 理 完毕 。 

2. 基于 冒号 拆 分 来 自 文件 的 每 一 行内 容 ， 并 将 返回 值 在 入 数组 @line 中 。 

3. 针对 数组 元 素 $line[1] 匹配 模式 /408-/。 如 果 该 模式 在 $line[1] 中 匹配 ,就 打印 $line[0] 的 内 
容 。 由 于 保存 在 $line[1] 中 的 电话 号 码 能 与 区 号 408 成 功 匹 配 ， 因 此 这 里 将 打印 $line[0] 的 
值 ， 即 Igor 的 名 字 。 

4. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 











示例 8.38 


Steve BlLenheim:415-444-6677:12 Main St 


[全 BILenheim 


415-444-6677 
WeESEenisty 


丰 关 区 二 亲本 记 下 和 帮 帮会 天 站 本 站 下 全 放 且 
工 while (<DATRA>) { 
习 (Sname，S$Sphone，Saaqdress) = SPplit(":"，S ): 
司 Print S$name if SPphone =~ /408-/ # Usin9 the pattern 
井 页 atcphin9 operator 








Saddadress 





} 

AUDAAR LE 
SteVve BlLenheim:415-444-6617:12 Malin St。 
ET 
Igor Chevsky:408-567-4444:3456 Mary 网 ay 
NGmns 本 ECEodRSS5 25SWOARSSSURERIREED ES 
可 nm 晴 Demoach20IE4244S0o56R54 RS 
1 人 全 三 且 二 志 三 放生 和 忆 下 WE 
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(GESE) 
了 9oF ChevsKy 


解释 

1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 每 次 进入 循环 体 时 ， 将 _DATA_ 后 面 的 一 行内 容 赋 
值 给 $_， 直 到 所 有 行 都 处 理 完毕 。 

2. 基于 冒号 拆 分 来 自 文 件 的 每 一 行内 容 , 并 将 返回 值 存 和 由 三 个 标量 Sname、$phone 和 $address 
组 成 的 匿名 列表 里 。 这 里 的 匿名 列表 比 前 面 示例 中 的 数组 更 易于 理解 和 操作 。 在 使 用 数组 时 ， 
读者 必须 保证 下 标的 正确 性 ， 而 使 用 匿名 列表 时 ， 该 用 哪个 标量 则 是 显而易见 的 。 

3. 对 变量 $phone 匹配 模式 /408-/。 如 果 该 模式 在 $phone 中 匹配 , 就 打印 Sname 的 值 。 由 于 本 
例 中 其 电话 号 码 与 区 号 408 相 匹 配 ， 所 以 会 打印 Igor。 

4. 特殊 文件 句柄 DATIA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 


示例 8.39 


est 

站 while($SinPut1line=<DRATA>) { 

2 (Sname，S$Sphone，S$address) = SPlit(":"，S$Sinput1line) ; 

忆 PLint S$name if $SPhone =~ /^408-/; # Usin9 the Pattern 
井 matcnhzn9g operator 

Print $inpPutline if $Sname =~ /^Karen/ : 

[人 














心 


6 DATRA 
SteVve BlLenheim:415-444-66717:12 Malin St， 
BEEEY7EEEGCSIRE 人 三 2 用 忆 2 世 直 区 2 必 EnSm ER 
Igor Chevsky:408-567-4444:3456 Mary Way 
NSEma 本 Ce 间 汪 三世 间 交合 人 三 辣 和 SHE 
einWeEVeloUE SR Sin 基 攻 
Karen Evich:306-333-7654:123 4th Ave. 


ORGUEN) 

司 尖 EPEAeV7SKY 

4 IE 
古 二 


解释 

1. 特殊 文件 句柄 DAIA 从 _DAIA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 , 读 取 _DAIA_ 
后 的 第 一 行内 容 ， 并 赋值 给 $_ 。 每 次 进入 循环 体 时 , 将 _DATIA_ 后 面 的 一 行内 容 赋 值 给 $ ， 直 
到 所 有 行 都 处 理 完 毕 。 

2. 基于 冒号 拆 分 来 自 $inputfile 文件 的 每 一 行内 容 , 并 将 返回 值 在 入 由 三 个 标量 $name、$phone 
和 $address 组 成 的 匿名 列表 里 。 

3. 对 变量 $phone 匹配 模式 /408-/。 如 果 该 模式 在 $phone 中 匹配 , 就 打印 Sname 的 值 。 由 于 本 
例 中 其 电话 号 码 与 区 号 408 相 匹配 ， 所 以 会 打印 Igor。 

4. 将 每 一 行内 容 保存 到 $inputline 变量 中 ， 逐 行进 行 处 理 ， 直 到 文件 未 尾 。 如 果 其 内 容 以 正则 
表达 式 Karen 开头 ， 则 打印 变量 $inputline 的 值 。 

5. 由 于 这 里 不 再 使 用 默认 的 行 占 位 符 $ ， 因 此 无 需 为 它 赋 值 ， 也 不 用 对 它 执行 匹配 或 输出 操 
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作 。 现 在 使 用 的 是 用 户 定义 的 $inputline 变量 ， 由 它 负 责 存 储 并 匹配 模式 。 
. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 





CN 


8.4 读者 应 当 学 到 的 知识 


. 正则 表达 式 的 含义 是 什么 ”? 

. 如 何 使 用 让 和 unless 修饰 符 ? 

. 如 何 才 能 在 执行 模式 搜索 时 把 正 斜 杠 定 界 符 改 为 其 他 字符 ? 
. $ 运算 符 能 完成 哪些 操作 ? 

. 全 局 搜索 的 含义 是 什么 ? 

. 何 时 需要 使 用 模式 绑 定 运算 符 =~ 和 !? 

. 默认 模式 空间 中 保存 了 什么 内 容 ? 

文件 句柄 _DATA_ 的 用 途 是 什么 ? 

. 修饰 符 让 e、g 分 别 表 示 什 么 意思 ? 
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8.5 下 章 简 介 














在 下 一 章 里 ， 读 者 将 学 习 Perl 提供 的 丰富 的 正则 表达 式 元 字符 ， 并 领教 模式 匹配 的 巨大 威力 。 
读者 将 学 习 如 何 标定 anchor) 模式 ， 如 何 搜索 其 他 可 用 模式 、 空 白字 符 、 字 符 组 、 重 复 模式 等。 
读者 还 将 学 习 有 关 贪 林 元 字符 的 知识 ， 以 及 如 何 控制 它们 。 此 外 ， 还 将 介绍 如 何 通 过 模式 捕获 与 模 
式 分 组 实现 向 前 或 向 后 的 查询 操作 。 在 学 完 下 一 章 内 容 后 ， 读 者 将 能 基于 指定 场景 ， 用 正则 表达 式 
搜索 目标 数据 ， 进 而 实现 数据 的 验证 ， 或 者 修改 找到 的 文本 内 容 。 























练习 8 


(读者 可 在 华章 网 站 (www.hzbook.com) 上 找到 如 下 sample.file 文件 ) 


Tommy Savage:408-724-0140:1222 0Oxbow Court，Sunnyvale,CcRAa 94087:5/19/66:34200 
Lesle Kerstin:408-456-1234:4 Harvard Square，Boston，MRA 02133:4/22/62:52600 
JonDeILoach:408-253-3122:123 Park St.，San UJose CRA 94086:7/25/53:85100 
EPhram Hardy:293-259-5395:235 Carlton Lane Joliet，IL 73858:8/12/20:56700 
Betty Boop:245-836-8357:635 Cutesy Lane Hollywood，CA 91464:6/23/23:14500 
William Kopf:846-836-2837:6937 Ware Road，Milton，PRA 93756:9/21/46:43500 
Norma Corder:397-857-2735:74 Pine Street，Dearborn，MI 23874:3/28/45:245700 
James Ikeda:834-938-8376:23445 Aster ARAve.，RAllentown，NJ 83745:12/1/38:45000 
Lori Gortz:327-832-5728:3465 Mirlo Street，Peabody，MRA 34756:10/2/65:35200 
Barbara Kerz:385-573-8326:832 Ponce Drive，Gary，，IN 83756:12/15/46:268500 


1. 打印 所 有 含有 模式 Street 的 行 。 
2. 打印 名 字 与 B 或 b 相 匹 配 的 行 。 
3. 打印 与 Ker 匹配 的 行 。 

4. 打印 区 号 为 408 的 电话 号 码 。 
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5. 打印 Gortz 的 名 字 和 地 址 。 


6. 以 大 写 形式 打印 Ephram 的 名 字 。 


7. 打印 不 含 4 的 行 。 


8. 将 William 的 名 字 改 为 Siegfield。 


9. 打印 Tommy Savage 的 生日 。 
10. 打印 收入 超过 $40,000 的 名 字 。 
11. 打印 在 6 月 出 生 的 人 的 名 字 。 





12. 打印 Massachusetts 的 邮件 编码 。 


第 9 章 ”正则 表达 陈 元 字符 


9.1 正则 表达 式 元 字符 


正则 表达 式 元 字符 〈metacharacter) 是 不 代表 自身 原 有 含义 的 字符 。 它 们 拥有 以 某 种 方式 控制 
搜索 模式 的 特殊 能 力 〈 例 如 只 在 行 首 或 行 尾 搜索 模式 ， 或 只 在 以 大 写 或 小 写字 母 开 头 的 行 上 搜索 模 
式 )。 如 果 在 它们 前 面 加 上 反 斜 枉 〈\), 这 些 元 字符 就 会 失去 其 特殊 含义 。 例 如 , 元 字符 点 号 〈.) 代 
表 任 何 单个 字符 ， 但 如 果 在 前 面 加 上 反 和 斜 枉 ， 它 就 会 退化 为 一 个 普通 的 点 号 或 句号 。 

如 果 在 元 字符 前 面 出 现 了 反 斜 本， 这 些 反 斜 杠 就 会 关闭 元 字符 的 特殊 含义 ; 但 如 果 在 正则 表达 
式 中 的 其 他 数字 或 字母 之 前 出 现 反 斜 杠 的 话 ， 这 些 反 斜 杠 则 会 拥有 其 他 的 售 又 。Perl 为 一 些 元 字符 
提供 了 简化 形式 ， 又 称 元 符号 〈metasymbol)， 它 们 专门 用 于 表示 字符 。 例 如 ，[0-9] 表示 范围 从 0 
到 9 的 数字 ，'\d 也 能 表示 相同 的 含义 。 只 不 过 [0-9] 用 到 了 方 括号 元 字符 ， 而 \d 则 使 用 了 元 符号 。 


ae 
解释 
这 个 正则 表达 式 含 有 元 字符 〈 详 见 表 9.1)。 甚 中 第 一 个 元 字符 是 脱 字 符 〈caret, 即 ^)。 脱 字符 
只 有 在 位 于 行 首 时 才能 用 于 匹配 字符 串 。 点 号 〈.) 用 于 匹配 任意 单个 字符 , 包括 空白 字符 。 该 表达 
起 中 含有 三 个 点 号 ， 可 代表 任意 三 个 字符 。 如 需 查询 实际 的 点 号 或 其 他 不 代表 其 自身 值 的 字符 ， 应 
当 在 这 些 字符 前 加 上 反 和 斜 枉 ， 以 免 混 请 。 


在 示例 9.1 中 ， 正 则 表达 式 可 以 读 成 : 在 行 首 搜索 字母 a， 甚 后 紧 跟 任意 三 个 字符 ， 最 后 则 是 
一 个 c。 辟 如， 如果 在 行 首 找到 模式 的 话 ， 它 将 与 abbbc、al23c、ac 或 aAx3c 匹配 。 









































表 9-1 元 字符 








字符 类 单字 符 与 数字 








匹配 除 换行 符 之 外 的 任意 字符 


[a-z0-9] 匹配 集合 中 任意 单字 符 
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( 续 ) 
元 字 符 匹 配 项 
[^a-z0-9] 匹配 不 在 集合 中 的 任意 单字 符 
\d 匹配 单个 数字 
\D 匹配 非 数字 字符 ， 等 效 于 [^0-9] 
\Vw 匹配 数字 型 的 〈 字 ) 字符 
\W 匹配 非 数字 型 的 〈 非 字 ) 字符 
字符 类 : 空白 字符 
\s 匹配 空白 字符 ， 如 空格 、 制 表 符 和 换行 符 
\S 匹配 非 空 白字 符 
| 匹配 换行 符 
NT 匹配 回 车 符 
At 匹配 制 表 符 
铺 匹配 进 纸 符 
\b 匹配 退 格 符 
\0 匹配 空 值 字符 
字符 类 : 锚 定 字 符 
\b 匹配 字 边 界 〈 不 在 [] 中 时 ) 
\B 匹配 非 字 边 界 
^ 匹配 行 首 
$ 匹配 行 尾 
\A 匹配 字符 串 开 头 
\Z 匹配 字符 串 或 行 的 末尾 
\z 只 匹配 字符 串 末 尾 
\G 匹配 前 一 次 m/g 离开 之 处 
字符 类 : 重复 字符 
运 2 匹配 0 或 1 个 x 
X* 匹配 0 或 多 个 
X 十 匹配 1 或 多 个 x 
(xyz)+ 匹配 1 或 多 个 模式 xyz 
x(m,n) 匹配 m 到 n 个 x 组 成 的 值 
字符 类 : 替换 字符 
Was|were|will 匹配 was、wWere、Wwill 之 一 
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〈 续 ) 
元 字符 匹 配 项 
字符 类 : 记忆 字符 
(stirng) 用 于 反 向 引用 《〈 详 见 示例 9.38 和 9.39 ) 
\1 或 $1 匹配 第 一 组 括号 ” 
\2 或 $2 匹配 第 二 组 括号 
\3 或 $3 匹配 第 三 组 括号 
字符 类 : 其 他 字符 
\12 匹配 八进制 数 ， 直 到 \377 
\x811 匹配 十 六 进 制 数值 
\cX 匹配 控制 字符 。 璧 如 \cC 指 的 是 <Ctrl>-C，\cV 指 的 是 <Ctrl>-V 
\e 匹配 ASCII 编码 中 的 ESC 符 〈 取 销 )， 而 非 反 斜 杠 
\E 标识 使 用 \U、\L 或 \Q 的 大 小 写 更 改 操 作 的 结束 位 置 
| 只 小 写 下 一 个 字符 
YL 小 写字 符 ， 直 到 字符 串 末 尾 或 磁 到 \E 
VN 匹配 已 命名 的 字符 ， 如 \N{greek:Beta} 
\p{PROPERTY} 匹配 拥有 已 命名 属性 的 任意 字符 ， 艾 如 \p{ISAlphay}/ 
\p{PROPERTY} 匹配 不 带 已 命名 属性 的 任意 字符 
\Q 引用 \E 之 前 的 元 字符 
Au 只 天 写 下 一 个 字符 
\U 大 写字 符 ， 直 到 字符 串 末 尾 或 磁 到 \E 
x{tNUMBER} 匹配 以 十 六 进 制 形式 给 出 的 Unicode 编码 NUMBER 
这 匹配 Unicode 编码 “组 合 字符 序列 ”字符 串 
\ 匹配 元 字符 
愉 匹配 反 斜 杠 
AL 与 81 称 为 反 向 引用 (backreference)。 其 区 别 在 于 ，\] 反 向 引用 只 在 本 模式 中 有 效 ， 而 $1 在 代码 块 中 或 下 
一 次 成 功 匹配 之 前 仍然 有 效 。 


9.1.1 表示 单个 字符 的 元 字符 


如 需 在 正则 表达 式 中 查找 某 个 特定 字符 ,， 则 可 使 用 点 号 〈.) 来 代表 单个 字符 ,或 者 借助 字符 类 
Ccharacter class) 在 一 组 字符 中 匹配 单个 字符 。 除 了 点 号 和 字符 类 外 ，Perl 还 提供 了 一 些 带 有 反 和 斜 
杠 的 符号 〈 又 称 作 元 符号 ，metasymbol)， 它 们 也 能 代表 单个 字符 〈 详 见 表 9-2 )。 
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表 9-2 ”元 字符 
元 字符 匹配 项 
匹配 除 换行 符 之 外 的 任意 字符 
[a-z0-9_] 匹配 集合 中 任意 单字 符 
[^a-z0-9_] 匹配 不 在 集合 中 的 任意 单字 符 
\d 匹配 单个 数字 
\D 匹配 非 数 字 字 符 ， 等 效 于 [^0-9] 
\w 匹配 数字 型 的 〈 字 ) 字符 ， 等 效 于 [a-z0-9] 
\W 匹配 非 数 字 型 的 〈 非 字 ) 字符 ， 等 效 于 [^a-z0-9] 
点 号 元 字符 。 点 号 〈.) 元 字符 能 够 匹配 除 换行 符 之 外 的 任意 单个 字符 。 艾 如， 如 果 字 符 串 中 


含有 a， 其 后 是 任意 一 个 字符 〈 除外 )， 最 后 是 一 个 b 的 话 ， 它 就 能 与 正则 表达 式 /ab/ 相 匹配 ; 
而 表达 式 /…./ 将 会 号 配 含有 至 少 三 个 字符 的 任意 字符 串 。 


ES 

# Thpe aot metacpharacter 
站 
易 EECUOEENOETmSNNO TEANRRTS 





】 

天 汪汪 

Steve BlLenheim 101 
Be BCoe20H 
SENE 上 ESY 是 20 下 
Norma Cordq 401 
Jonathan DeLoachnh 501 
Karen EVich 601 


wmeeuwey 
Eouna Normal 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_ 。 每 次 进入 循环 体 时 ， 将 _DAIA_ 后 面 的 一 行内 容 赋 
值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 
2. 只 有 在 $_ 中 找到 指定 模式 时 , 才 打 印字 符 串 Found Norma ! \n。 目 标 模式 以 大 写字 母 N 开 
头 , 后 面 是 两 个 任意 字符 , 最 后 则 是 症 与 a。 借 助 该 模式 便 可 找到 Norma、No man 和 Normandy 
等 结果 。 


s 修饰 符 : 点 号 元 字符 与 换行 符 。 一 般 而 言 ， 点 号 元 字符 不 会 与 换行 符 \n 相 匹配 ， 因 为 它 只 能 
匹配 字符 串 中 位 于 换行 符 之 前 的 字符 。s 修饰 符 (modifier) 能 把 谋 有 换行 符 的 行当 作 独 立 的 一 行 来 
处 理 ， 而 不 是 当 作 一 组 多 个 行 ; 并 人 允许 点 号 元 字符 像 处 理 其 他 字符 一 样 处 理 换 行 符 。s 修饰 符 可 用 
在 m (match， 匹 配 ) 运算 符 和 s (substitution， 替 换 ) 运算 符 上 。 
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(The Scipt) 
# Tpe SS moazi 太 er ana the PnPnemwJIine 





开 $ ="Sing a Song of SixpenceNXnA Pocket full of zye.NXn"; 
2 Print $& if /Pence./s: 

3 es 

4 print if s/sixpence.R/twopence，a/s: 

asinay 


Pence 
ye。 
SWISS eojoicER | 尺 cei oa 


( 

包 

3 

4 

解释 

1. 为 标量 $_ 赋值 。 它 含有 两 个 换行 符 。 

2. 正则 表达 式 /pence./ 中 含有 点 号 元 字符 。 这 里 的 点 号 元 字符 不 能 与 换行 符 匹 配 ， 除 非 使 用 s 
修饰 符 。 特 殊 变 量 $& 中 含有 在 上 次 成 功 的 模式 搜索 过 程 中 找到 的 值 ， 即 pence\n 。 

3. 正则 表达 式 /ye\.…/ 中 含有 一 个 实际 的 点 号 《实际 点 号 由 反 和 斜 枉 负责 标 识 ), 其 后 是 能 与 换行 
符 匹 配 的 点 号 元 字符 。 这 是 s 修饰 符 在 起 作用 。 特 殊 变 量 $& 中 含有 在 上 次 成 功 的 模式 搜索 
过 程 中 找到 的 值 ， 即 rye.\n。 

4. 8 修饰 符 使 得 点 号 元 字符 能 够 匹配 于 搜索 字符 串 中 的 换行 符 ， 并 将 换行 符 替 换 为 空格 。 


字符 类 。 字 符 类 代表 了 字符 集合 中 的 一 个 字符 。 例 如 ，[abc] 匹配 a、b 或 c;， [a-z] 匹配 从 a 到 z 
的 字符 集中 的 某 一 字符 ;而 [0-9] 则 匹配 从 0 到 9 数字 中 的 一 个 字符 。 如 果 在 字符 前 面 带 有 前 导 脱 字 
符 “〈^)， 则 表示 任何 不 在 该 集合 中 的 字符 。 例 如 ，[^a-zA-Z] 匹配 不 在 a 到 z 或 A 到 2 范围 内 的 单个 
字符 [^0-9] 则 匹配 不 在 0 到 9 范围 内 的 一 个 数字 字符 。 如 要 匹配 从 10 到 13 之 间 的 数字 字符 9， 则 
应 使 用 1[0-3]， 而 不 是 [10-13]。 

Perl 提供 了 一 组 附加 符号 ,， 即 元 符号 (metasymbol), 用 于 表示 字符 类 。 符 号 4 和 \D 分 别 代表 
单个 数字 和 一 个 非 数 字 的 字符 ， 它 们 分 别 等 效 于 [0-9] 和 [^0-9]。 同 样 ，\w 和 \W 分 别 代 表单 字 字 
符 和 非 单字 字符 ， 它 们 与 [A-Za-z_0-9] 和 [^A-Za-z_0-9] 效果 相同 。 


eemES SEO 

工 while(<DRATRA>) { 

2 Print if /[RA-z] [a-z]leve/: 
】} 
































DaTA 
Steve BlLlenheim 101 
BesEEyEBco520dl 
geceEGnew ss 六 生疏 中 
Norma Corad 401 
WUomamnanamsneosehnesunh 
Karen EVich 601 


(GEGE) 
Steve BlLlenheim 101 





全 ”请 读者 不 要 将 方 括号 中 的 脱 字符 与 用 于 行 锚 定 〈line anchor) 起 始 位 置 的 脱 字符 相 混 靖 。 详 见 表 9.7。 
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解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 每 次 进入 循环 体 时 ， 将 _DATA_ 后 面 的 一 行内 容 赋 
值 给 $_， 直 到 所 有 行 都 处 理 完毕 。 
2. 只 有 当 $_ 匹配 特定 模式 时 才 打 印 $_ 中 的 行内 容 ， 该 模式 以 一 个 大 写字 母 [A-Z] 开头 ， 随 后 
是 一 个 小 写字 有 母 [a-z]， 最 后 则 是 字符 串 eve。 





示例 9.5 
WeEESCenistny 
7TPpe Pracketea character cJass 
工 while(<DRATRA>) { 
包 PITn 世 上 人 [REZa 三 2z0 三 9 国 | 隐 


有 

Steve BlLlenheim 101 
BeSEeyEEBSee2i 
gorEEnmesIKEy 看 20 
Norma CoraQ 401 
Jonathan DeLoachnh 501 
Karen EVich 601 





oOEeUG) 

Steve BlLenheim 101 

BSEEY7EEBCeR 玛 0 

Igor ChevsKky 301 

Norma Cord 401 

Jonathan DeLoachnh 501 

KarmemE7cn 60T 

解释 

1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATA_ 后 的 第 一 行内 容 ， 并 赋值 给 $ 。 每 次 进入 循环 体 时 ， 将 _DATA_ 后面 的 一 行内 容 
赋值 给 $_ ， 直 到 所 有 行 都 处 理 完毕 。 

2. 只 有 当 $_ 匹配 于 字符 类 [A-Za-z0-9] 中 的 字母 或 数字 字符 时 ， 才 打印 $ 中 的 行内 容 。 


示例 9.6 

WeEScerenisEny 
# 7Tpe Dracket metacharacters ana ne9atzon 

工 while(<DRATRA>) 1{ 

包 PT 二 工 和 二 /人 下 23 中 0OX 
】 
DR 
Steve BlLlenheim 101 
BEEE7EEES 琶 2 有 
gmCnswsIY7 本 20 下 
Norma Cord 401 
Jonathan DeLoach 501 
Karen Evich 601 


Uneeuwey 
Norma CoraQ 401 
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Jonathan DeLoachnh 501 
Kaem Vicn 601 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 每 次 进入 循环 体 时 ， 将 _DAIA_ 后 面 的 一 行内 容 赋 
值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 
2. 只 有 当 $_ 匹配 指定 模式 时 才 打 印 $_ 中 的 行内 容 ， 该 模式 以 一 个 空格 开头 ， 随 后 是 一 个 不 在 
1 到 3 之 间 的 数字 〈 除 1、2、3 之 外 的 数字 )， 最 后 是 一 个 0。 


AN 


示例 9.7 
WESYesnlionia 
Zhe metasymbo71，\da 
工 while(<DRATRA>) { 
包 Print if /6NXdNd/ 


国 关 汰 也 HA 汪汪 

Steve BlLlenheim 101 

BeEEVBSe Ri 

gor 重 Glnew Sky 是 
Norma Cord 401 
Jonathan DeLoachnh 501 
Karen Evich 601 

OUEoUy) 

Karen EVich 601 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_ 。 每 次 进入 循环 体 时 ， 将 _DAIA_ 后 面 的 一 行内 容 赋 
值 给 $_ ， 直 到 所 有 行 都 处 理 完 毕 。 
2. 当 $_ 匹配 于 数字 6 后 面 跟 有 两 个 数字 字符 的 模式 时 ,打印 $_ 中 保存 的 行内 容 。 元 字符 \d 代 
表 了 字符 类 [0-9]。 





AN 


示例 9.8 

oa 
# MetacPharacters anaQ metasympoys 

并 while(<DRATRA>) { 

骂 PimntEEe 人 IIRBCIND 
】} 
DaTRA 
StevVe BlLlenheim 101 
Betty BooP 201 
geeEhswsy 天 230 
Norma CorQ 401 
JocnmatnanmDsoacnes0 
Karcen Vicnh 601 


Ourswey) 
SUEeV7eEEBlennesa mgml0il 
BBSEEyYEEEBSSeEE2 il 
[gonevsKkys0i 


2 
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NSEmaa CS 和 0 
解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 每 次 进入 循环 体 时 ， 将 _DATIA_ 后 面 的 一 行内 容 
赋值 给 $_ ， 直 到 所 有 行 都 处 理 完 毕 。 
2. 只 有 当 $_ 匹配 于 指定 模式 时 才 打 印 $_ 中 的 行内 容 ， 该 模式 是 一 个 大 写 的 A、B 或 C， 即 
[ABC]。 元 字符 \D 等 效 于 字符 类 [^0-9]， 即 不 在 0 到 9 范围 内 的 数字 字符 。 


示例 9.9 
SEEScemnety 
# 7Tpe wora metasymbols 
站 
受 Pint if / NANwNMwNAwAw Nd/ 
】} 
DATIA 


AN 


Steve BlLenheim 101 
Betty BooP 201 
Eeenewsky 艺人 由 
Norma Cord 401 
Jonathan DeLoachnh 501 
Karen EVich 601 


OUEoE) 
BSEEYEBSog 20HL 
NSEma 硬 Cero40i 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 每 次 进入 循环 体 时 ， 将 _DAIA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 
2. 只 有 当 $_ 匹配 特定 模式 时 才 打 印 $_ 中 的 行内 容 ， 该 模式 以 一 个 空格 开头 ， 其 后 是 四 个 字母 
或 数字 字符 \W， 再 后 是 一 个 空格 与 一 个 数字 字符 。 元 信息 \w 等 效 于 字符 类 [A-Za-z0-9]。 


AN 


示例 9.10 
人 nesecnpty 
Thpe wora metasympol1s 
让 while(<DRATRA>) { 
之 PEint If /NAWANWANWAWAWwAW/ 


_DATA 

Steve BlLenheim 101 

BeEEyYEBCoPE201 

Sonewsky 0 
Norma CordQ 401 
Jonathan DeLoachnh 501 
Karen EVich 601 

ouEswe) 

BeEyEBSog 2 0 

Norma Cord 401 





正 出 硼 达 式 元 字符 789 





解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 每 次 进入 循环 体 时 ， 将 _DAITA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 
2. 只 有 当 $_ 匹配 特定 模式 时 才 打 印 $_ 中 的 行内 容 ， 该 模式 含有 一 个 非 字 母 数字 型 字符 ， 随 
后 是 四 个 字母 数字 型 字符 \w, 最 后 则 是 另 一 个 非 字 母 数字 型 字符 \W。 元 符号 \W 代表 字符 
类 [^A-Za-z0-9]。Boop 和 Cord 都 是 位 于 空 自 字 符 之 间 〈 非 字母 数字 字符 ) 的 四 个 字符 。 


POSIX 字符 类 。Perl15.6 引入 了 POSIX 字符 类 。POSIX (Portable Operating System Interface 9) 
是 一 种 保障 程序 间 跨 平台 可 移植 性 的 工业 标准 。 为 了 支持 可 移植 性 , POSIX 认识 到 不 同 国家 和 地 区 
在 字符 编码 方式 、 货 币 表 示 符 号 以 及 日 期 和 时 间 表 达 方 式 上 都 有 所 不 同 。 要 处 理 这 些 不 同类 型 的 字 
符 ，POSIX 为 正则 表达 式 提 供 了 带 方 括号 的 字符 类 ， 如 表 9-3 所 示 。 

类 [:alnum:] 是 表示 A-Za-z0-9 的 另 一 种 方式 。 若 要 使 用 该 字符 类 ， 必 须 将 它 放 入 另外 一 组 方 
括号 中 ， 以 便 识 别 为 正则 表达 式 。 例 如 ，A-Za-z0-9 本 身 并 不 是 正则 表达 式 字 符 类 ， 但 [A-Za-z0-9] 
是 。 同 样 ，[:alnum:] 应 当 写 作 [[:alnum:]]。 使 用 前 者 [A-Za-z0-9] 和 后 者 [[:alnum:]] 的 区 别 在 于 ， 
前 者 只 受到 ASCII 字符 编码 的 影响 ， 而 后 者 则 人 允许 在 类 中 表示 其 他 语言 的 相应 字符 。 

如 需 在 POSIX 字符 类 中 对 字符 取 反 ， 则 可 使 用 如 下 话 法 : 

[^[:space:]] 一 表示 所 有 非 空 白 的 字符 。 


表 9-3 ” 带 方 括号 的 字符 类 



































方 括号 类 含 义 

:alnum:] 字母 数字 型 字符 

:alpha:] 字母 型 字符 

:ascii'] 码 值 在 0 到 127 之 间 的 字符 

:cntrl:] 控制 字符 

:digit:] 数字 字符 ， 即 0-9 或 者 \d 

:graph:] 除 字 母 数字 或 标点 符号 之 外 的 非 空 字符 《〈 即 非 空 格 、 控 制 字符 等 ) 
:lower:] 小 写字 母 

:print:] 与 [:graph:] 相似 ， 但 包含 空格 字符 

:punct:] 标点 符号 字符 

:Space:] 所 有 空白 字符 《换行 符 、 空 格 符 、 制 表 符 等 ) 
:upper:] 大 写字 母 

:word:] 任意 字母 数字 或 下 划 线 字符 “ 

:xdigit:] 十 六 进 制 数字 中 人 允许 的 阿拉 伯 数 字 (0-9a-fA-F) 





a. 这 是 Perl 提供 的 扩展 ， 等 效 于 \W。 








牟 POSIX 是 IEEE 的 一 个 注册 商标 。 详 见 http://www.opengroup.org/austin/papers/backgrounder.html。 
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示例 9.11 


SEO 


了 
多 
悦 


geT 二 0 大方 悄 人 eye 记 攻 人 Ko 蔗 < 人 <e 帮 于 = 下 = 

IE 

while(<DRATRA>) 1{ 

Przrint if /[[:upPezr:]][[:aLlpha:]]+ [[:upper:]][[:Lower:]]+/: 


DaTA 
Steve BlLenheim 
Betty Boop 

cr 厂 EIeSIRY 
NSenma 本 EU 

Jon DeLoach 
Betty Boop 
Karen 卫 Vich 





OUwEoEy) 

Steve BJLenheim 
Betty Boop 
SEEew Si 
NSmmaaecw 

Jon DeLoachn 
Betty Boop 
Karen 了 Vich 


解释 
1. 如 需 使 用 POSIX 字符 类 ，Perl 的 版 本 必需 是 5.6.0 〈 或 以 上 )。 
2. 特殊 文件 句柄 DATIA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 , 取 _DATIA_ 


后 的 第 一 行内 容 , 并 赋值 给 $_。 


每 次 进入 循环 体 时 , 将 _DATA_ 后 面 的 一 行内 容 赋值 给 $ ， 


直到 所 有 行 都 处 理 完毕 。 


3. 正则 表达 式 含有 了 POSIX 字符 类 。 只 有 当 $_ 匹配 指定 的 模式 时 才 打 印 $_ 中 的 行内 容 ， 该 模 


9.1;:2 


式 必须 含有 任意 一 个 大 写字 母 [Lupper:]], 随后 是 一 到 多 个 “十 ) 字母 字符 [[:alpha:]], 最 后 


则 是 一 个 大 写字 母 与 一 到 多 个 小 写字 母 。( 加 号 十 是 表示 一 到 多 个 字符 的 正则 表达 式 元 字符 ， 
本 书 将 在 “重复 模式 匹配 元 字符 ”一 节 中 了 予以 讨论 。) 


空白 元 字符 








空白 字符 〈whitespace character) 包括 空格 符 、 制 表 符 、 回 车 符 、 换 行 符 或 进 纸 符 。 用 户 可 通 
过 按 下 <Tab> 键 、 空 格 键 或 者 <Enter> 键 得 到 实际 的 空白 字符 。 


表 9-4 空白 元 字符 















































元 字符 匹 配 项 
\s 匹配 空白 字符 ， 如 空格 、 制 表 符 和 换行 符 
\S 匹配 非 空 白字 符 
1 匹配 换行 符 或 行 末 符 (UNIX: 012;， Mac 0OS: 015) 
r 匹配 回 车 符 
\t 匹配 制 表 符 
\ 匹配 进 纸 符 


正 刚 表达 式 元 字 御 7 





AN 


示例 9.12 
(The Scipt) 
# Thpe \s metasymbol ana whIitespace 
于 while(<DRATRA>) { 
习 je 
} 
IE 
Steve BlLenheim 101 
BEE 下 区 7 瑟 BCeR 重 20 
SENVE Yi 
Norma Corda 401 
Jonathan DeLoachnh 501 
Kacen Vicnh 601 


OUEoE) 
ES 
全 EIGTSEISE SEOSCIEOURSESTSEVSECe GUN 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATIA_ 后 的 第 一 行内 容 , 并 赋值 给 $_。 每 次 进入 循环 体 时 , 将 _DAIA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 
2. 如 果 $_ 的 内 容 与 舍 有 空白 字符 《〈 即 空格 、 制 表 符 或 换行 符 ) \s 的 模式 相 匹配 , 则 打印 该 行 
内 容 。 最 后 将 所 有 空 自 字符 替换 为 星 号 〈* )。 


AN 


示例 9.13 


(The Script) 
# The \S metasymbol ana Donmwhziztespace 
于 while(<DRATRA>) { 
及 zam 上 工本 SINSIGR 
】} 
加 AT 
SteVve BlLenheim 101 
BESEEY7REECSPE 玫 20 
gceEemewskky 是 0 
Norma CoraQ 401 
JUonathan DeLoachnh 501 
Karcen Vicnh 601 
(GEGIE) 


人 
人 

克 届 光 光 、 友 光 光 克 盔 光 尖 ” 二 光 : 光 

大江 类 磷 汪 灶 光 二 由 光 光 赤 
RE 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 每 次 进入 循环 体 时 ， 将 _DAIA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 
2. 如 果 $_ 的 内 容 与 含有 非 空 自 字符 〈 即 不 是 空格 、 制 表 符 或 换行 符 ) \S 的 模式 相 匹配 ， 则 打 
印 该 行内 容 。 然 后 将 所 有 空 自 字符 替换 为 *。 大写 的 元 字符 等 效 于 对 相应 的 小 写 元 字符 取 反 ， 
譬如 \d 表示 数字 ，\D 表示 非 数字 。 
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示例 9.14 


(The Scipt) 
# 瑟 scape sedquences，\n ana \ 上 t 
并 while(<DRATRA>) 1{ 
SA 人 
} 
四 
Steve BlLenheim 101 
BE 下 区 Be 重 20 岂 
SENVE Yi 
NSEimas 旺 忆 OE 允 汪 0 册 
Jonathan DeLoachnh 501 
KaEeT 了 Vichn 601 


OUwEoE) 


SEEeVesEBlenneamglbii BSEEYEEBSOB 厂 201 


Norma CoraQ 401 Jon DeLoach 501 


_DATA_ 后 的 第 一 行内 容 , 并 赋值 给 $_ 


赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 


EECnewsky 二 届 


Karen EVich 601 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 


站 


。 每 次 进入 循环 体 时 , 将 _DATA_ 后 面 的 一 行内 容 


2. 正则 表达 式 中 含有 Sm 转 义 序列 ， 代 表单 个 换行 符 。 表 达 式 读 作 : 以 制 表 符 〈\t) 替换 每 个 换 


行 符 。 
9.1.3 ”重复 模式 匹配 元 字符 





在 前 面 的 示例 中 ， 元 字符 都 是 匹配 于 单个 字符 的 。 如 果 需 要 匹配 多 个 字符 ， 又 该 怎么 办 呢 ? 艾 





如 ， 需 要 找到 所 有 含有 特定 名 字 的 行 ， 该 名 字 必 须 以 大 写字 母 开头 〈 表 示 为 A 一 Z)， 后 面 跟随 一 


系列 小 写字 母 , 并 且 名 字 长 度 各 不 相同 。[a-z] 





只 能 匹配 单个 小 写字 母 。 那 该 如 何 匹配 一 到 











1 多 个 小 写 


字母 ， 或 零 到 多 个 字母 呢 ? 这 时 用 户 可 使 用 所 谓 的 限定 符 〈quantifier )。 如 需 匹配 一 到 多 个 小 写字 


母 ， 正 则 表达 式 可 以 写成 /[a-z]+/， 其 中 加 号 十 的 意思 是 “一 到 多 个 前 画 


一 到 多 个 字母 。Perl 还 提供 了 其 他 多 种 限定 符 ， 见 表 9-5。 


表 9-5 仿 禁 (greedy) 元 字符 

















ij 出 现 的 字符 ”， 在 这 里 就 是 














元 字符 匹配 项 

X9? 匹配 0 至 1 个 x 组 成 的 具体 值 
(xyz)? 匹配 0 至 1 个 xyz 模式 组 成 的 具体 值 
X 匹配 0 至 多 个 x 组 成 的 具体 值 
(xyz)* 匹配 0 至 多 个 xyz 模式 组 成 的 具体 值 
X 十 匹配 1 至 多 个 x 组 成 的 具体 值 
(xyZ)+ 匹配 1 至 多 个 xyz 模式 组 成 的 具体 值 


x{fmn} 





名 

















配 多 于 症 个 且 少 于 nm 个 的 x 所 组 成 的 具体 值 
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贪 柳 因 子 。 一 般 而 言 ， 限 定 符 都 是 贪 柳 〈greedy) 的 。 也 就 是 说 ， 它 们 会 从 左 到 右 搜 索 能 够 匹 
配 的 最 长 字符 集 ， 并 获得 最 后 一 个 满足 条 件 的 字符 。 例 如 ， 给 出 下 面 这 个 字符 串 : 
$_ ="ab123456783445554437RBn 


还 有 正则 表达 式 : 
s/ab[0-9]*/X/i 





则 搜索 端的 匹配 结果 为 ; 

ab123456783445554437 

所 有 这 些 内 容 都 将 被 一 个 X 替换 。 替 换 后 $_ 的 值 变 为 : 
XAB 


星 号 (*) 是 一 个 俩 禁 元 字符 ， 负 责 匹配 0 到 多 个 前 面 出 现 的 字符 。 在 上 述 示例 中 ， 星 号 匹配 
的 是 [0-9] 字符 类 。 该 匹配 动作 会 从 最 左边 开始 搜索 ab 及 其 右 侧 的 零 到 多 个 范围 在 0 到 9 之 间 的 数 
字 。 匹 配 动作 一 直 持续 到 磁 到 最 后 一 个 连续 数字 7 为 止 。 最 后 ， 把 模式 ab 以 及 其 后 所 有 数字 一 起 


替换 为 X。 
用 户 也 可 关闭 贪 村 性 。 这 样 就 不 再 匹配 最 大 数目 的 字符 , 而 是 与 找到 的 最 少数 目的 字符 相 匹配 。 
这 也 可 通过 在 贪 禁 元 字符 后 面 追加 问号 〈?) 的 方式 实现 。 详 见 示例 9.15 。 


示例 9.15 


ES 

# Tpe zero or one G9uanti 万 er 
机 
及 EzImEELEEAIIOES9NR2 


】} 

DaTA 

Steve BlLlenheim 1.10 
ESEEYRECSeESS 
GEGnewsky 攻 555 
NGrma 本 GT oO 
WUomamnanaamsmeaene ob 中 
Karen EVich 601 
































Gu 

Steve Blenheim 1.10 
einES7 ES 
ISSUERLLGICNSC 必 有司 0 
Karen EVich 601 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATIA_ 后 的 第 一 行内 容 , 并 赋值 给 $_。 每 次 进入 循环 体 时 , 将 _DAIA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 
2. 正则 表达 式 中 含有 元 字符 ?， 代 表 零 到 一 个 前 面 出 现 的 字符 。 该 表达 式 读 作 : 查找 一 个 空格 
符 ， 后 面 跟 有 一 个 位 于 0 到 9 之 间 的 数字 ， 最 后 则 是 0 个 或 1 个 实际 的 点 号 。 


水 
心 
关 
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AN 


示例 9.16 

(The Scipt) 
# ZIPe zero or 羡 OFre G9uantI 丰 er 开 

并 while(<DRATRA>) 1{ 

习 Przint if /\sB[a-z]l*x/， 
} 
四 
Steve BlLenheim 1.10 
Betty Boop .5 
EE 隐 ET 
NEims 本 局 忆 攻 汪 人 和 
Jonathan DeLoach .501 
RamenmhVaehn 枉 60 


OUEE) 
Steve BlLenheim 1.10 
BeEEyEEBCepass 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATIA_ 后 的 第 一 行内 容 , 并 赋值 给 $_。 每 次 进入 循环 体 时 , 将 _DAIA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 
2. 正则 表达 式 中 含有 元 字符 “*， 代 表 零 到 多 个 前 面 的 字符 。 表 达 式 读 作 : 查找 一 个 空格 \s， 随 
后 是 一 个 大 写字 母 B， 最 后 则 是 零 到 多 个 小 写字 母 ， 即 [a-z]*。 


AN 


示例 9.17 


ES 
# 7Tpe aot metacharacter ana the Zero or more 9uanti 右 er 


下 while(<DRATA>)1{ 
2 Pzint if s/[RA-2] .xy/Tom/ : 
) 
xmx 畏 


Steve BlLenheim 101 
Betty Boop 201 

Igor Chevsky 301 
Norma CoraQ 401 
JUonathan DeLoach 501 
Karen EVich 601 


NOauEeuwey) 
ImmEBSGPE 泛 20 
人 


解释 

1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DAITA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 每 次 进入 循环 体 时 ， 将 _DAIA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 

2. 正则 表达 式 中 含有 元 字符 “*， 代 表 零 到 多 个 前 面 的 字符 。 本 例 中 ， 前 面 的 字符 是 点 号 ， 本 身 
就 代表 任何 字符 。 该 表达 式 读 作 : 查找 一 个 大 写字 母 [A-Z]， 随 后 是 零 到 多 个 任意 字符 ， 节 
后 则 是 小 写字 母 Y。 如 有 果 该 行 舍 有 多 个 Y， 则 搜索 结 采 将 包含 所 有 的 y, 直到 最 后 一 个 了 为止。 
Betty 和 Ignor Chevsky 都 能 满足 匹配 条 件 。 请 注意 ，Ignor Chevsky 中 的 空格 是 因为 匹配 了 
点 号 才 出 现在 结果 中 的 。 
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示例 9.18 
(The Scipt) 


也 
汉 


# ZPe one or more G9uantI 矿 er 
while(<DATRA>) 1{ 

PITmE 汪 人 /5 二 7 全 
} 
四 
Steve BlLlenheim 1.10 
BE 区 BEeis 5 
SEE 
SSGSECR 和 有 由 
Jonathan DeLoachnh .501 
KazeT Vicn 601 


OUEoE) 
BSEEY7EBCogs5 
eleisDEwS SS RON 
JatenmanmDsmoasacmUH 


的 


1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 


_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 每 次 进入 循环 体 时 ， 将 _DAIA_ 后 面 的 一 行内 容 赋 
值 给 $_ ， 直 到 所 有 行 都 处 理 完 毕 。 


2. 正则 表达 式 中 含有 元 字符 +， 代表 一 到 多 个 前 面 的 字符 。 表 达 式 读 作 : 查找 由 一 个 到 多 个 5 


组 成 的 具体 匹配 值 。 


示例 9.19 
人 


和 
多 


解释 


共 共 共 共 共 闪 呈 


# ZPe one or more G9uantI 太 er 
while(<DRATRA>) 1{ 

Print if s/Nw+/X/g: 
】} 
四 
Steve BlLlenheim 101 
BIOEGCeR 生 和 0 由 
gewSkEY20i 
Norma Cord 401 
Jonathan DeLoachnh 501 
Karen EVich 601 


全 


ee 
呈 


1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 


_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 每 次 进入 循环 体 时 ， 将 _DAIA_ 后 面 的 一 行内 容 赋 


值 给 $_， 直 到 所 有 行 都 处 理 完毕 。 


2 
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2. 正则 表达 式 中 含有 \w， 其 后 带 有 元 字符 +， 代 表 一 个 到 多 个 字母 或 数字 字符 。 例 如 ， 第 一 个 
字母 数字 字符 集合 是 Steve， 所 以 会 把 Steve 替换 为 X。 由 于 替换 操作 是 全 局 的 ， 因 此 下 一 
组 字母 数字 字符 也 将 替换 为 X。 最 后 ， 把 字母 数字 集合 101 也 替换 为 X。 


AN 


示例 9.20 
ES 
# Repeatin9 Patterns 
荆 while(<DRATRA>) { 
2 PE 上 汪 开 上 要 人 SHI 站 以 人 
】} 
DaTRA 
Steve BlLenheim 1.10 
BBCss 5 
SEVERE 
ISSUEIGSDSG OO 
JUonathan DeLoachnh .501 
Karen EVich 601 
(GenE) 
BeSEEY7EBCoRpss 
SEE 
WomaniDeTSSen SI 


解释 
1 特殊 文件 句柄 DATA 从 _DATA_ 标 记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATA_ 后 的 第 一 行内 容 , 并 赋值 给 $_。 每 次 进入 循环 体 时 ,将 _DATA_ 后面 的 一 行内 容 
贼 值 给 $_， 直 到 所 有 行 都 处 理 完毕 。 
2. 正则 表达 式 中 含有 花 括号 〈 1 ) 元 字符 ， 代 表 前 面 字符 重复 的 次 数 范围 。 表 过 式 读 作 : 在 行 
中 查找 由 不 少 于 工 个 且 不 多 于 3 个 连续 数字 5 组 成 的 具体 匹配 值 。 


AN\ 


示例 9.21 

esScrcnoy 
# RepeatIin9 Patterns 

并 while(<DRATRA>) 1{ 

忆 Im 有 /53 
} 
加 
Steve Blenheim 1.10 
ESEERECoess 
genmewskky 是 5555 
SSWTEGSSc 人 0 
USERST DeTSSen 旺 由 
Karen EVich 601 


(GE 
weEeSnesky SSSRLOU 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATIA_ 后 的 第 一 行内 容 , 并 赋值 给 $_。 每 次 进入 循环 体 时 , 将 _DAIA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 
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2. 表达 式 读 作 : 查找 连续 出 现 三 个 5 的 具体 值 。 这 并 不 是 要 求 字符 串 中 正好 出 现 三 个 数字 3， 
而 是 意味 着 至 少 要 有 三 个 连续 的 5S。 如 果 字 符 串 含有 5555555， 则 该 匹配 仍然 可 以 成 功 。 如 需 
查找 正好 出 现 三 个 数字 5 的 情况 ,， 则 应 通过 某 种 方式 锁定 〈anchor) 该 模式 ， 即 使 用 ^ 和 8$ 锚 
定 元 字符 或 者 也 可 在 三 个 连续 数字 5 前 后 放置 其 他 一 些 字 符 , 璧 媚 /5{13}83/ 或 /531431898/ 或 


/95{3)\.56/。 


AN 


示例 9.22 

ES 
# Repeatin9 Patterns 

下 while(<DRATRA>) 1{ 

包 am 起 汪 开本 5 区 坟 全 
】} 
上 
Steve Blenheim 1.10 
BEEEYEECSE 5 
geeEemewskky 是 5555 
Norma Corad 4.01 
Jonmananamnemoacn 50il 
Karen EVich 601 


Keweeuwey 

BESEEYEESS RS 
ICONewWsy 三 王 0 
Uonathan DeLIoachnh .501 


解释 


1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATA_ 后 的 第 一 行内 容 , 并 赋值 给 $_ 。 每 次 进入 循环 体 时 , 将 _DATA_ 后 面 的 一 行内 容 


赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 
2. 表达 式 读 作 : 查找 由 一 个 或 多 个 连续 的 数字 5 组 成 的 具体 值 。 





关闭 贪 桂 性 的 元 字符 。 如 需 关 闭 贪 禁 性 ， 用 户 只 需 在 贪 禁 限 定 符 后 面 加 上 问号 便 可 。 这 样 就 能 














让 搜索 操作 在 碰 到 第 一 个 匹配 时 就 告 一 段落 ， 而 不 是 直到 最 后 一 个 匹配 。 详 见 表 9.6。 


AN 


示例 9.23 
ES 
# Greeaqy ana not 9reeay 
下 $ ="abcaefghijklmnnopqzstuZwxyYz7" 7: 
习 Ss/[a-z]+/XXX/ : 
思 辣 E 


4 SEEaocasftognalmnepgzs 世 DT 区 Y2 


蕊 s/[a-z]+?/XXX/ : 
6 ea ES AN 


USE 

加 XXX 

6 XXXPpcaerfg9pzi7yKImnop9FrStUWXYZ 
又 


释 
1. 将 标量 $_ 赋值 为 全 部 由 小 写字 符 组 成 的 字符 串 。 
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2. 正则 表达 式 读 作 搜索 一 个 或 多 个 小 写字 母 ， 然 后 将 它们 替换 成 XXX。 其 中 + 元 字符 是 贪 
禁 的 。 它 会 获取 与 表达 式 匹 配 的 所 有 字符 ， 即 : 从 字符 串 最 左 侧 开始 ， 获 得 能 够 磁 到 的 所 有 
小 写字 母 ， 直 到 字符 串 的 末尾 。 

3. 打印 替换 完毕 后 的 $_ 变量 值 。 

4. 将 标量 $_ 赋值 为 小 写字 符 组 成 的 字符 串 。 

5. 正则 表达 式 读 作 : 搜索 一 个 或 多 个 小 写字 母 ， 在 磁 到 第 一 次 匹配 时 便 停 止 搜索 ， 并 将 它 替 换 
成 XXX。 元 字符 + 后面 附加 的 问号 〈?) 负责 关闭 元 字符 的 贪 梦 性 ， 从 而 上 只 搜索 最 少数 目的 
匹配 字符 。 

6. 打印 替换 完毕 后 的 $_ 变量 值 。 


表 9-6 关闭 贪 禁 性 
元 字符 匹配 项 





















































X9?? 匹配 由 0 至 1 个 x 组 成 的 具体 值 

(xyz)22 匹配 由 0 至 1 个 xyz 模式 组 成 的 具体 值 

Xxy? 匹配 由 0 至 多 个 x 组 成 的 具体 值 

(xyz)#? 匹配 由 0 至 多 个 xyz 模式 组 成 的 具体 值 

X+? 匹配 由 1 至 多 个 x 组 成 的 具体 值 

(xyz)+? 匹配 由 1 至 多 个 xyz 模式 组 成 的 具体 值 

x{fmn}? 匹配 由 多 于 m 个 且 少 于 na 个 的 x 所 组 成 的 具体 值 
xfm}? 匹配 由 至 少 m 个 x 所 组 成 的 具体 值 

xfm,}? 匹配 至 少 严 次 

















示例 9.24 


oa 
# 县 9reeay G9uanti 矿 er 
下 SocsEs 二 ccd 汪汪 计 cn 
SMESDOOGEaGR 


胞 $string =~ s/cup.*/tablespoon/: 
AN 
# TUrnzin9 ofFF 9reed 
4 SEE GE 
EmmansEUooeoss aa 
5 $string =~ SsS/cup.*x?/tablesPoon/ : 
6 ISSN 


人 
要 T 9ot a taplJespoon 
6 OO 


1. 将 标量 $string 赋值 为 含有 三 个 连续 cup 模式 的 字符 串 。 
2.8s〈 蒜 换 ) 运算 符 将 搜索 模式 cup 及 其 后 面 的 零 到 多 个 字符 ; 即 : 匹配 cup 和 到 行 示 为止 的 
所 有 字符 , 并 将 它们 替换 成 tablespoon。. 举 限定 符 是 贪 禁 的 , 因为 它 会 匹配 尽 可 能 长 的 模式 。 
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3. 输出 贪 梦 蔡 换 后 的 结果 。 

4. 重新 对 $string 进行 赋值 。 

5. 这 次 搜索 过 程 不 是 贪 禁 的 。 通 过 在 # 限定 符 后 追加 一 个 问号 , 使 得 程序 只 把 cup 及 其 后 面 零 
到 多 个 字符 模式 的 最 小 匹配 替换 为 tablespoon 。 

6. 打印 新 字符 串 内 容 。 


锁定 元 字符 。 锚 定 元 字符 是 经 常会 用 到 的 一 类 元 字符 ， 它 能 使 模式 匹配 只 发 生 在 字符 串 的 开头 
或 末尾 位 置 。 这 些 元 字符 基于 待 匹 配 字符 的 左 侧 位 置 或 右 侧 位 置 。 锚 《Anchor) 在 技术 上 又 称 作 零 
宽度 断言 〈assertion)， 因 为 它们 的 处 理 对 象 是 位 置 ， 而 不 是 字符 串 中 实际 的 字符 。 例 如 ，/abc/ 的 
意思 是 在 行 首 查 找 abc， 甚 中 ^ 代表 了 行 首位 置 ， 而 不 是 实际 字符 。 



































表 9-7 锚 定 〈 断 言 ) 






































元 字符 匹配 项 
匹配 行 或 字符 串 的 开头 位 置 
$ 匹配 行 或 字符 串 的 末尾 位 置 
\A 只 匹配 字符 串 的 开头 位 置 
\Z 匹配 字符 串 或 行 的 末尾 位 置 
\z 只 匹配 字符 串 的 末尾 位 置 
\G 匹配 前 面 m//g 模式 的 离开 位 置 
\b 匹配 一 个 字 边 界 〈 当 不 位 于 口中 时 ) 
\B 匹配 一 个 非 字 边 界 





示例 9.25 


siSCenotay 
Too 用 放 0T =-70Teyore7 

于 while(<DRATRA>) { 

2 PTm 荆 上/ 人 可 K] 队 全 
】} 
II 
Steve BlLenheim 1.10 
BSAEBCeRsS 
ES 
USiamERGcnsce 必 0 
Jonathan DeLIoach .501 
Karen Evich 601 


Oureuey 
Uonathan DeLIoachnh .501 
KarenmEVORCGUETEOO 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 每 次 进入 循环 体 时 ， 将 _DAIA_ 后 面 的 一 行内 容 赋 
值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 
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2. 正则 表达 式 中 含有 脱 字 符 〈^)， 只 有 当 它 是 模式 的 第 一 个 字符 时 ， 才 代表 行 首 锁定 元 字符 。 


表达 式 读 作 : 在 行 首位 置 搜索 一 个 J 或 玉 。'\A 在 本 例 中 能 产生 与 脱 字符 相同 的 字符 集 。 表 达 
式 人 [AIK]/ 读 作 : 在 行 首 位 置 搜索 一 个 既 不 是 J 也 不 是 开 的 字符 。 请 记 住 ， 如 果 脱 字符 是 在 
字符 类 中 出 现 的 话 ， 就 表示 反 转 该 字符 类 ; 如 果 是 在 起 始 限定 符 后 直接 出 现 的 话 ， 就 表示 销 
定 在 行 首位 置 。 


AN 


示例 9.26 
ESCniotay 


业 
之 


闽 要 GCT IE 站 忆 六 已 天 

while(<DRATRA>) 1{ 
ziIOS7 

】} 

四 

Steve Blenheim 1.10 

BEEEY7 ES 

下 ee RS5SSRSLO 

NSEima 本 CGO 人 4 汪 0 

SENSEeTSSeR ES 让 

Karen EVich 601 


人 ES 
Steve BlLenheim 1.10 
TECNEWSSY SR 


解释 


1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 


_DATIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 
赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 


每 次 进入 循环 体 时 ， 将 _DAIA_ 后 面 的 一 行内 容 


2. 正则 表达 式 中 含有 元 字符 $。 当 $ 是 模式 的 最 后 一 个 字符 时 ， 它 就 是 指向 行 末 位 置 的 销 定 元 


字符 。 表 达 式 读 作 : 碍 找 后 面 跟 有 换行 符 的 一 个 1 和 一 个 0。 


AN 


示例 9.27 
WeSGeniony 


外 
2 


# Wora anchors or Pounaaries 
while(<DRATRA>) 1{ 

ET 七 量 ED 可 om 
】} 
DaTrA 
Steve Blenheim 1.10 
BEEE7EECS 
Ice 
NSEma 且 蕊 马帮 芭 二 Wi 
Jonathan DeLoach .501 
Karen EVich 601 


(OUEGUE) 
JUonathan DeLoachnh .501 


解释 


1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 


_DATIA_ 后 的 第 一 行内 容 , 并 赋值 给 $_。 每 次 进入 循环 体 时 , 将 _DAIA_ 后 面 的 一 行内 容 
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赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 


2. 正则 表达 式 中 含有 \b 元 字符 ， 它 代表 字 边 界 〈word boundary)。 表 达 式 读 作 : 查找 以 Jon 开 


3 和 


示例 9.28 


aeSCESEW 


# Be9znnznog ana ena ofF WOFa anchors 


荆 while(<DRATRA>) { 

2 PEELEENDOonND 作 
】} 
四 
Steve Blenheim 1.10 
BEE7EEBCoiss 
SEE 
ISSUEGSSG 央 0 
Jonathan DeLoach 
Karen EVich 601 


有 50 中 


Out 
区 王 CEEBULE 


解释 


1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 


_DATIA_ 后 的 第 一 行内 容 ， 并 赋值 给 3 _。 
赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 


每 次 进入 循环 体 时 ， 将 _DAIA_ 后 面 的 一 行内 容 


2. 正则 表达 式 中 也 含有 元 字符 ， 代 表 一 个 字 边 界 。 表 达 式 读 作 : 查找 以 模式 Jon 开头 和 结尾 


的 字 。 结 采 这 里 什么 都 没有 找到 。 


m 修饰 符 。m 修饰 符 用 于 控制 锚 定 元 字符 ^ 和 8$ 的 行为 ， 
内 容 来 对 待 。 如 果 使 用 元 字符 ^ 错 定 正 则 表达 式 ， 同 时 又 在 多 行 中 的 每 一 行 开头 找到 了 匹配 模式 的 
话 ， 则 也 能 匹配 成 功 。 同 样 ， 如 果 在 多 行 中 任意 一 行 的 末尾 使 用 了 元 字符 $《〈 或 2) 来 销 定 正 则 表 


达 式 的 话 ， 


它 能 把 含有 换行 符 的 字符 串 当 作 多 行 





只 要 找到 该 模式 ， 就 也 能 成 功 匹 配 。m 修饰 符 对 于 \A 和 是 无 效 的 。 


示例 9.29 


ES et 

# Anchors ana the 并 moDdai 万 er 
ar ES 
ZTE RE TOmozEcNWA # FEmpbedaea 
RE 
AUDCOnUUODEEANRTomnoczow/ # mpbedaaea 
Ra EN 
人 

OVER 
8 Print if /NMRTomorzow/m: 














是 
DECEEEEEITISEOEANRSWXT 


SFPOTISETESR 和 VD 辣 避 


OmorLow wil1l 


oOmorLow will 


oOmorLow will 





oOmorLow will 


Dever be 
DewJIIDne 


neVer be 


DewJIIzne 


neVer be 


neVer be 


neVer be 


册 < 放 二: 


忆 总攻 包 





有 二 区 记 二 人 


及 电 二 


由 人 下 全 


ee 


.Nnn; 


7 


.Nnn; 


ee 
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(GOwEGuE) 
6 JE 
Tomorrow wii Peer De here， 
富有 生 天 


Tomorrow will1 peer be here. 


[解释 


LD 


(LA 


CN 


oo ~ 


98， 


1. 将 标量 $_ 赋值 为 含有 换行 符 的 字符 串 。 
2 


元 字符 ^ 会 把 搜索 动作 钳 定 在 行 的 开头 位 置 。 由 于 本 行 不 以 Tomorrow 开头 ,因此 搜索 失败 ， 
不 返回 任何 内 容 。 





. 将 标量 $_ 赋 值 为 含有 换行 符 的 字符 串 。 
. 不 论 字符 串 的 内 容 如 何 ，\A 断言 都 只 匹配 该 字符 串 的 开头 。 由 于 本 行 不 以 Tomorrow 开头 ， 


因此 搜索 失败 ， 不 返回 任何 内 容 。 


. 将 标量 $_ 赋 值 为 含有 换行 符 的 字符 串 。 
- 修 饰 符 把 字符 串 当 作 多 行内 容 对 待 ， 其 中 每 一 行 都 以 一 个 换行 符 结尾 。 在 本 例 中 ， 元 字符 


^ 能 匹配 其 中 任意 一 行 的 开头 位 置 。 本 例 在 第 二 行 的 开头 匹配 到 了 模式 /Tomorrow/。 


. 将 标量 $_ 赋值 为 含有 换行 符 的 字符 串 。 
.\A 断言 只 匹配 字符 串 的 开头 。 字 符 串 中 苞 入 的 换行 符 和 mm 修饰 符 在 这 里 都 是 无 效 的 。 由 于 





在 字符 串 开 头 没 有 找到 Tomorrow， 因 此 搜索 失败 ， 不 返回 任何 内 容 。 
将 标量 $_ 赋值 为 含有 换行 符 的 字符 串 。 





10. 元 字符 $ 会 把 搜索 动作 锚 定 在 行 的 末尾 位 置 。 这 里 使 用 了 mm 修饰 符 ， 把 字符 串 当 作 多 行 来 





对 待 ， 其 中 每 一 行 都 以 一 个 换行 符 结尾 。 本 示例 将 在 第 一 行 末 尾 找到 模式 /history\.$/。D 
修饰 符 对 \Z 也 是 有 效 地 ， 但 它 对 \z 无 效 。 


交 蔡 (alternative )。 交 替 特 性 允许 正则 表达 式 中 出 现 能 从 多 种 可 能 中 选中 一 种 的 模式 匹配 。 璧 
如 正则 表达 式 /John| 和 KarenlSteve/ 就 会 与 舍 有 John 或 Karen 或 Steve 的 行 相 匹配 。 如 果 John Karen 
和 Steve 位 于 不 同 的 行 ， 则 所 有 相关 的 行 都 将 获得 匹配 。 每 个 交替 正则 表达 式 都 由 紧 线 符号 〈 管 道 


符号 ) 


隔 开 , 并 能 匹配 任意 数目 的 字符 。 它 不 同 于 字符 类 , 后 者 仅 能 匹配 一 个 字符 。 例 如 , /alblc/ 等 


效 于 [abc]， 但 /ablde/ 不 能 等 效 于 [abde]。 因 为 模式 /ablde/ 表示 ab 或 者 de， 而 字符 类 [abcd] 则 表 


示 集 合 


中 的 单个 字符 ， 即 a、b、c 或 者 d。 


示例 9.30 


ES 


和 
多 


站 全 区 站 二 二 总 丰 万 本 攻 局 三 有 本 二 力 记 和 十 忆 芷 站 全 基站 力克 
下 和 三 JS) 到 
Print if /Steve1Betty1lJIony/: 
} 
站 六 工 六 司 汪 
Steve Blenheim 
Betty BooP 
LogorcEEenmevsky 
Norma Cord 
Jonathan DeLoach 
Karen 卫 Vich 


(GEGE) 
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允 Steve BJenpeim 
Betty BooPp 
Jonathan Deroacpn 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATA_ 后 的 第 一 行内 容 , 并 赋值 给 $_ 。 每 次 进入 循环 体 时 , 将 _DATA_ 后 面 的 一 行内 容 
赋值 给 $_ ， 直 到 所 有 行 都 处 理 完 毕 。 
2. 出 现在 正则 表达 式 中 的 管道 符号 〈|) 负责 匹配 一 组 交替 〈alternative) 的 模式 。 如 果 找 到 
Steve、Betty 或 John 当中 任何 一 个 模式 的 话 ， 匹 配 就 能 成 功 。 





分 组 (grouping) 与 分 复 〈clustering)。 如 果 正 则 表达 式 的 模式 位 于 括号 内 ， 便 可 以 创建 一 
个 子 模 式 。 此 后 ， 表 达 式 不 再 通过 贪 禁 元 字符 去 匹配 零 个 或 多 个 字符 ， 而 是 去 匹配 前 面 定义 的 子 模 
式 。 如 果 模 式 位 于 括号 中 , 它 也 能 控制 交 赫 性。Perl Wizard 把 这 种 字符 组 合 在 一 起 的 过 程 称 作 分 徐 
CClustering ) 。 




















AN 


示例 9.31 
WEESeenety 
# CJUstering or 9Frouping9 
于 $ =qq/The baby says，"Mama，Mama，I can Say Papal"Nxn/: 
甩 Print if s/ (malPpa)+/goo/gi; 


oa 
nsoaevEssasndoonEqconEesSSR SEC 


解释 
1. 将 标量 $_ 赋值 为 带 有 双 引 号 的 字符 串 。 
2. 正则 表达 式 中 售 有 位 于 括号 内 的 模式 ， 甚 后 跟 有 元 字符 +。 括号 与 元 字符 + 负责 对 其 控制 的 
字符 进行 分 组 。 该 表达 式 读 作 : 查找 连续 一 个 或 多 个 ma 或 pa 模式 所 匹配 的 具体 值 ， 并 将 其 
替换 为 goo。 





AN 


示例 9.32 
人 weiScensEny 
# CIJusterin9g or 9roupzing9 
下 while(<DATRA>) { 
忆 记 荆 TD 上 齐 EAISRHL2)RSITS 三 天 六 二 了 克 这 莹 天 古 站 放生 有 3 有 光 天 
# Copnsecutive occurrences of 12 at 
# the ena of the Jine 
】} 


有 TAG 
Steve BlLenheim II21212 
BESEE7REBSS 疝 站 汉 号 
开 gSEECnewsky 123444123 
Norma Cord 时 3 
JUonathan DeLToach123456 
Karen 卫 Vich 2 

oOuEeuey) 


Steve BlLlenheim 121212 
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训 


1 


. 特殊 文件 句柄 DATIA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATIA_ 后 的 第 一 行内 容 , 并 赋值 给 $_。 每 次 进入 循环 体 时 , 将 _DAIA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 

2. 模式 12 是 位 于 括 受 内 的 分 组 ， 筷 受 限 定 符 13} 控制 。 本 例 中 ， 它 将 在 行 末 〈$) 匹配 恰好 三 

个 连续 12 组 成 的 行 。 


A\ 


示例 9.33 
SS 
站 本 CS 人 克 记 的 
也 SS ="Tom anQq Dan SavVage andg ElIlie Main ace Cousins .ANn"7 
馆 Print if s/TomlE1LLie Main/Rrchie/g: 


习 $ ="Tom anQaQ Dan Savage and El1Illie Main ace Cousins.N\n"; 
4 print if s/(Tom|E1L1Lie) Main/RArchie/g:; 


oOuEswey) 

到 PSeeEA2 ec 
4 Tom ana Dan Sarage ana ArcpIe are cousins. 

习 


释 
1. 将 标量 $_ 赋值 为 一 个 字符 串 。 
2. 如 果 在 $_ 中 匹配 了 模式 Tom 或 模式 Ellie Main， 则 将 三 者 都 替换 成 Archie。 
3. 将 标量 $_ 赋值 为 一 个 字符 串 。 
4. 本 行 把 Tom 和 Ellie Main 放 在 括号 中 间 ， 使 得 交替 模式 变 为 Tom Main 或 Ellie Main。 由 于 
标量 $_ 中 只 有 Ellie Main 能 够 成 功 匹 配 ， 所 以 将 其 替换 为 Archie。 


AN 


示例 9.34 
全 三 
# CJIusterina9 ana anchors 
二 while(<DRATRA>) { 


馆 六 着 六 于 7 三 作 人 3 臣 忆 六 全 让 且 总 Gi27 入 

3 Print if /^(Steve1Boop)/: 
) 
四 


Steve Blenheim 
Betty Boop 
LoEECnmeysVy 
Norma Cord 
Jonathan DeLoach 
Karen 卫 Vich 


OUwEe ty) 
Steve BlLenheim 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATA_ 后 的 第 一 行内 容 , 并 赋值 给 $_ 。 每 次 进入 循环 体 时 , 将 _DATA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 
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2. 该 行 已 经 注释 掉 了 。 打 印 任何 以 Steve 开头 的 行 ， 以 及 任何 含有 Boop 的 行 。 行 首 的 销 定 元 
字符 和 脱 字 符 只 对 Steve 有 效 。 

3. 如 有 果 该 行 是 以 Steve 或 Boop 开头 的 , 则 打印 其 内 容 。 括 号 使 得 两 个 模式 成 为 一 个 分 组 ， 
此 行 首 的 锁定 元 字符 和 脱 字符 对 Steve 与 Boop 都 有 效 。 也 可 将 其 写作 /(^Stevel^poop)/。 


记忆 或 捕获 。 如 果 正 则 表达 式 位 于 括号 中 ， 则 表示 创建 子 模式 。 子 模式 保存 在 具有 特殊 编号 的 
标量 型 变量 中 ， 首 先是 $1， 然 后 是 $2， 依 此 类 推 。 用 户 可 在 程序 中 使 用 这 些 变量 ， 直 到 其 他 成 功 
的 匹配 将 它 履 盖 为 止 。 如 果 需 要 控制 贪 禁 元 字符 或 前 面 示例 所 示 交 替 模 式 的 话 ， 甚 子 模式 也 将 会 随 
之 保存 ， 这 也 算是 一 种 副作用 吧 。 





| 


























示例 9.35 
(人 
# Rememberin9 SuUbpatterns 
1 while(<DATA>) 1 


多 s/([Ij]lon)/S$SLathan/: # Supbstitute von or 7Ton with 
ES # Jonatphan or 7onathaD 
证 
区 em 
】} 
DATA 


SteVe BlLenheim 
Betty BooPp 
SGFECnewsIsy 
Nennsmeeedl 

Jon DeLoach 
Karen 了 Vich 


OUE 

SteVe BLenhnheim 
Betty Boop 

下 GEESnewSKYV 
Norma Cord 
Jonathan Deloach 
Karen 卫 Vich 


解释 

1. 特殊 文件 句柄 DAIA 从 _DAIA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATIA_ 后 的 第 一 行内 容 , 并 赋值 给 $_。 每 次 进入 循环 体 时 , 将 _DATIA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完毕 。 

2. 正则 表达 式 含 有 一 个 位 于 括号 内 的 模式 Jon。 通 过 捕获 该 模式 并 将 其 保存 到 特殊 变量 $1 中 ， 
便 可 完成 该 模式 的 记忆 过 程 。 如 果 括号 内 还 有 另 一 个 模式 的 话 , 则 将 其 保存 到 变量 82 中 , 依 
此 类 推 。 蔡 换 端 用 到 了 这 些 特殊 编号 $1、$2 和 $3 等 。 该 表达 式 读 作 : 查找 Jon 或 jon， 并 
分 别 灰 换 成 Jonathan 或 jonathan。 在 下 一 次 成 功 匹 配 时 , 程序 将 清除 这 些 特殊 编号 变量 的 
内 容 。 








@ ”这 里 亦 可 阻止 子 模式 的 保存 。 
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示例 9.36 


ES 
# Rememberina muItiplIe suppatterns 
1 while(<DRATRA>)1{ 
翌 Pint if s/(Steve) (BLenheim)/S2，S$S1/ 








1 

上 SNRs 

Steve BLenheim 
Betty Boop 
Lorchmerslky 
NermamBoreol 
Jonathan DeLIoach 
Karen 了 Vich 


ESiEEED 
Blenheim, StevVe 


解释 

1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATIA_ 后 的 第 一 行内 容 , 并 赋值 给 $_。 每 次 进入 循环 体 时 , 将 _DATIA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完毕 。 

2. 正则 表达 式 含 有 两 个 位 于 括号 中 的 模式 。 本 行将 捕获 第 一 个 模式 ,并 将 其 保存 到 特殊 标量 $1 
中 ， 然 后 捕获 第 二 个 模式 并 保存 到 特殊 标量 $2 里 。 在 替换 端 ， 由 于 首先 引用 的 是 $2， 因 此 
程序 将 先 打印 Blenhein, 然后 是 一 个 逐 号 , 最 后 则 是 $1 的 值 , 即 Steve《〈 其 作用 是 反 转 Steve 
与 Blenhein ) 。 


ES 
# Reversin9 Suppatterns 
世 while(<DRATRA>) { 
s/([A-2][a-zl+)\s([A-2] [a-z]+)/$S2，S$S1/: 
# Reverse rst ana 1ast names 
司 [nes 
】} 
上 
SteVe BlLenheim 
Betty Boop 
IIgor enevskv 
NmaEcsaw 
Jon DeLoach 
Kazen 卫 vich 


(GEGIE) 

Blenheim，，， StevVe 
Boop，Betty 

Bewsiky GE 

REQARNSEDma 

De，JonLoach # wpoops'! 
Eee 


正 出 背 达 式 元 字符 207 





解释 

该 正则 表达 式 也 有 两 个 位 于 括号 内 的 模式 。 本 例 借助 元 字符 来 完成 模式 匹配 过 程 。 其 第 一 个 模 
式 读 作 : 查找 一 个 大 写字 母后 面 跟随 一 个 或 多 个 小 写字 母 的 情况 。 其 记忆 的 模式 后 面 有 一 个 空格 。 
第 二 个 模式 读 作 : 查找 一 个 大 写字 母后 面 跟随 一 个 或 多 个 小 写字 母 的 情况 。 上 述 模式 分 别 保存 在 特 
殊 标 量 $1 和 $2 中 , 然后 在 蔡 换 端子 以 反 转 。 请 注意 其 最 后 一 个 名 字 DeLoach 会 造成 问题 。 这 是 因 
为 DeLoach 在 第 一 个 大 写字 母后 面 既 有 小 写字 母 又 有 大 写字 母 。 如 要 支持 这 种 情况 , 则 应 当 把 模式 
写作 : s/([A-Z][a-z]+)\s([A-Z][A-Za-z]+)/$2,$1/。 








AN 
中 


示例 9.38 
加 几 ES 
# MetasympboIs ana suppatterns 
开 while(<DRATRA>) { 


2 s/(NAw+)N\s(N\w+)/$S2，$1/; # Rererse frst andqd 1ast names 
攻 IE 
]} 
DATA 


Steve BlLenheim 
Betty Boop 
geECnmewskKy 
Nma 硬 Be 

Jon DeLIoachn 
Betty Boop 


euwuEeeuey) 
Blenheim，SteVe 
Boop，Betty 
BeysIyAanooc 
CoraQ Naerznma 
DeLoach，Jon 
Boop，Betty 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
并 赋值 给 $_ 。 每 次 进入 循环 体 时 , 将 _DATA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完 毕 。 
其 中 \w+ 代表 一 个 或 多 个 字 。 正 则 表达 式 由 两 个 带 
括号 的 子 模式 《又 称 作 反 向 引用 ) 构成 ， 并 由 一 个 空格 符 〈\s) 隔 开 。 两 个 子 模 式 分 别 保存 
在 $1 和 3$2 中 。 在 替换 端 通过 $1 与 $2 实现 了 第 一 个 名 字 与 最 后 一 个 名 字 的 反 转 处 理 。 


示例 9.39 
人 ee 
# BacKkreferencIn9 
站 while(<DATA>) { 


AN 


2 (S$Sfizs 七 ，$1Last)=/(Nw+) (N\w+)/ CODUSED5ER 八国 到 ) 央 从 区 及 
汪 Pint "$1Last，S$fizstNn" 
】 
DATA 


Steve BlLenheim 
Betty Boop 
Igor CheVvsky 


多 
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Norma Cord 

Jon DeLIoach 

Betty Boop 
OU 
Blenheim，SteVe 
Boop，Betty 
BevsIyARaIogoc 
CoFQ Neczma 
DeLoach，Jon 
Boop，Betty 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DAIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_ 。 每 次 进入 循环 体 时 ， 将 _DAIA_ 后 面 的 一 行内 容 
赋值 给 $_ ， 直 到 所 有 行 都 处 理 完 毕 。 
2. 正则 表达 式 含有 两 个 位 于 括号 内 的 模式 。 其 中 \w+ 代表 一 个 或 多 个 字 。 正 则 表达 式 由 两 个 带 
括号 的 子 模式 〈 又 称 反 品 引用 ) 构成 。 其 返回 值 是 一 个 由 所 有 反 轴 引 用 所 组 成 的 数组 。 分 别 
将 每 个 字 赋 值 给 变量 $first 与 $last。 





AN 


示例 9.40 
IE 
# 7Tpe 9reeaQy G9uanti 矿 er 
灿 SSstzcing="ABCaefoghiCxyzwerC YOU1I77; 
及 $Sstring=~s/.*C/HEY/: 
瑟 EN 


ouEewey) 
REEDYTGUII 
解释 

1. 将 标量 型 变量 $string 赋值 为 含有 很 多 模式 C 的 字符 串 。 

2. 替换 操作 的 搜索 端 读 作 : 查找 以 C 结尾 的 字符 数 最 大 的 任何 模式 。 该 搜索 是 贪 禁 的 ， 它 将 
从 左 到 右 搜索 整个 字符 串 ， 直 到 最 后 一 个 C 为 止 。 然 后 ， 把 在 $string 中 找到 的 内 容 赫 换 为 
字符 串 HEY。 

3. 打印 替换 后 的 字符 串 ， 说 明 替 换 效果 。 





AN 


示例 9.41 
ESeemity 
大 BacKkrerferenczn9g ana 9reeaQy 9Uuantzi 右 erS 
SSstzcing="ABCaefoghiCxyzwezcC YOU1I7; 
$string=~s/(.*xC) (.*)/HEY/; # Substitute the Whole strzin9 mw 了 ItPh 万 析 了 
下 ZE AN 
EnEES2REINn TY 
PITOERESSEETONDEZE 


CS OF 


ee 
司 BCaeronrex7zweC 
4 加 
忆 五 瓦工 


正 刚 表 达 式 元 字符 209 





解释 
1. 将 标量 $string 赋值 为 字符 串 。 
2. 正则 表达 式 /.C/ 位 于 括号 内 。 将 找到 的 模式 存储 在 特殊 变量 $1 中 , 然后 把 剩余 内 容 保存 到 
$2 内 。 
3. 把 可 能 出 现 的 最 长 模式 保存 在 $1 中 ， 并 打印 该 变量 值 。 


4. 把 剩余 字符 串 保 存在 $2 内 ， 并 打印 该 变量 的 值 。 
5. 完成 奉 换 操作 ， 把 整个 字符 串 替 换 成 HEY。 


示例 9.42 


Re 本 Smeey 
# BacKkreferencin9 ana 9reea 





下 S$fruit="apples Pears Peaches Plums"; 
2 EYE 人 (EN)NSISX)NES (ES A 
3 和 站 疝 记 训 下 人 二 站 
4 ne SN 
与 1 
1 
6 S$fruit="apples Pears Peaches Plums"; 
也 $SEruit =~ /(.*x?)N\s(.*?)N\s(.*?2)N\Ss/; # Turn ofF 9reecy GuantI 右 e 工 
8 商 王 玫 疝 全 TAN 
四 EN 
ORGPTOEESSSNO 


ou 

加 appEJes ears 
4 Peachpes 
本 


PJIums 

appJes 
总 Pears 
下 OPSaeAeS 


解释 
1. 将 标量 $fruit 赋值 为 字符 串 。 
2. 将 字符 串 分 隔 为 三 个 记忆 子 串 , 其 中 每 个 子 串 都 位 于 括号 内 。 元 字符 序列 * 负责 读 取 零 个 或 
多 个 任意 字符 。* 将 始终 匹配 可 能 出 现 的 最 长 模式 ， 即 整个 字符 串 。 而 在 括号 外 侧 还 有 两 个 
2 它们 也 必须 在 字符 串 中 进行 匹配 。 那 么 ， 可 以 保存 在 $1 中 ,并 能 在 字符 串 中 保 
两 个 空格 的 最 大 可 能 的 模式 是 什么 ?答案 自然 是 apple pears 。 
3 打印 $1 的 值 。 
4. 第 一 个 子 串 存 储 在 $1 中 。peaches plum 则 是 原 字符 串 的 剩余 部 分 。 现 在 可 供 匹配 且 仍 有 一 
人 E 的 模式 〈.*) 是 什么 ? 答案 是 peaches。 因 此 ,程序 会 把 peaches 赋值 
对 $2。 打 印 $2 的 值 。 
玉 plum 是 $3 的 内 容 。 
6. 再 次 将 标量 $fruit 赋值 为 字符 串 。 
7. 本 行 的 贪 禁 限 定 符 〈*) 后 面 带 有 问号 , 这 就 意味 着 保存 的 模式 将 寻找 最 小 数目 而 不 是 最 大 
数目 的 匹配 情况 。apple 是 保存 在 变量 $1 中 的 字符 数目 最 少 的 字符 串 ，pear 是 保存 在 $2 中 
的 字符 数目 最 少 的 字符 串 ， 而 peaches 则 是 保存 在 $3 中 的 字母 数目 最 少 的 字符 串 。 这 里 必 
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须 提 供 \s, 否则 其 最 小 数目 的 字符 串 将 是 零 , 因为 限定 符 * 的 本 意 是 零 个 或 多 个 前 面 的 字符 。 
8. 打印 $1 的 值 。 
9. 打印 $2 的 值 。 
10. 打印 $3 的 值 。 


关闭 捕获 。 如 果 用 户 只 希望 通过 括号 分 组 , 对 保存 在 $1、$2 和 $3 中 的 替换 子 串 不 感 兴趣 的 话 ， 
可 以 使 用 元 字符 ?: 取消 捕获 子 模式 。 


示例 9.43 























Sn 

灿 $ ="Tom Savage and Dan Savage are DOthers. An"， 

电 Print if /(?:D[a-z]l]*lT[a-z]x) Savage/: # Per wIiI1 not capture 
# the PatterDn 

EN # SI Pas no va7ue 

Out) 

多 MUST 


司 <NotpIno9 工 5 DFInLtea> 

1. 将 标量 $_ 赋值 为 字符 串 。 

2. 当 模 式 位 于 括号 中 时 ,元 字符 ?: 能 够 关闭 捕获 。 本 例 使 用 交替 模式 搜索 两 个 模式 。 如 采 搜 索 
成 功 ， 就 打印 $_ 值 。 不 论 找 到 哪个 模式 ， 都 必须 捕获 它 并 赋值 给 $1。 

3. 若 不 使 用 ?: 的 话 ，$1 的 值 就 是 Tom， 因 为 它 是 匹配 到 的 第 一 个 模式 。?: 表示 “在 找到 模式 
时 不 去 保存 它 ”。 因 此 本 行 没 有 保存 和 打印 任何 内 容 。 


向 前 向 后 查找 的 元 字符 。 字 符 串 中 的 向 前 向 后 查找 模式 为 正则 表达 式 提供 了 进一步 的 控制 手 
段 。 详 见 表 9-8。 
当 使 用 正 的 向 前 查找 模式 时 ，Perl 会 在 字符 串 中 向 前 查找 所 需 模式 〈?=pattern )。 如 果 找 到 了 
该 模式 , 则 继续 执行 正则 表达 式 的 模式 匹配 动作 。 负 的 向 前 查找 模式 则 会 向 前 查看 模式 〈?!pattern ) 
是 否 存在 ， 如 果 不 存 在 ， 这 才 完 成 模式 匹配 。 
当 使 用 正 的 向 后 查找 模式 时 ，Perl 会 在 字符 串 中 向 后 查找 所 需 模式 〈?<=pattern)。 如 果 找 到 了 
该 模式 , 则 继续 执行 正则 表达 式 的 模式 匹配 动作 。 负 的 向 后 查找 模式 则 会 向 后 查看 模式 (?<!pattern ) 
是 否 存在 ， 如 果 不 存在 ， 这 才 完 成 模式 匹配 。 


表 9-8 往返 断言 




















元 字符 匹配 项 
/PATTERN(?=pattern)/ 正 向 前 查找 
/PATTERN(?!pattern)/ 负 向 前 查找 
(?<=pattern)/PATTERN/ 正 向 后 查找 
(?<!pattern)/PATTERN/ 负 向 后 查找 
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ES 
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# 县 Positive JookK apeaa 
站 SSstzcing="I love chocolate cake andqd chocolate ice cream."; 
2 $string =~ SsS/chocolate(?= ice)/vanilla/: 
瑟 EN 


4 SSstzing="Tomorzow night Tom Savage and Tommy Johnson will leavVe 
EGGanaRGDRD 

与 $string =~ S/Tom(?=my)/JIJere/g: 

6 RE 

ouEewey) 

引 EUOFeEceDoceeEe 本 天 和 六 忆 必 六 二 站 下 本 二 SC 三 

6 omorrow nopt 7om 5avra9ge ana Uecremny JUonpnson WII Jeavre For vacation. 

又 


1. 标量 $string 中 出 现 了 两 次 chocolate 模式 。 其 中 ，chocolate 的 第 一 个 具体 值 后 面 是 字 cake， 
第 二 个 具体 值 后 面 则 是 ice。 

2. 这 是 一 个 正 向 前 查找 的 示例 。 模 式 chocolate 后 面 的 〈?=ice) 的 意思 是 : 向 前 检查 ice 是 不 
是 下 一 个 模式 。 如 果 在 chocolate 之 前 找到 了 ice,， 则 说 明 匹 配 成 功 , 并 将 chocolate 替换 为 
vanilla 。 

3. 完成 对 第 二 行 的 替换 操作 后 ， 打 印 新 的 字符 串 内 容 。 

4. 将 标量 $string 赋值 为 以 Tom 开头 的 三 个 字 组 成 的 字符 串 。 

5. 当 字 符 串 含 有 Tom， 且 仅 当 Tom 后 面 跟着 my 时 ， 模 式 才 算 匹 配 。 如 果 正 向 前 查找 成 功 的 
话 ， 则 在 字符 串 中 将 Tom 替换 成 Jere。 

6. 完成 对 第 二 行 的 替换 操作 后 ， 打 印 新 的 字符 串 内 容 。 可 见 Tommy 已 经 替换 成 了 Jeremy。 


示例 9.45 


ES 

性 ESsaE7eaUCCREAESC 

业 while(<DRATRA>) { 

又 ETESNNwENS CTBCTR 





有 AT 
Steve BlLenheim 
Betty Boop 
goreEEmewSsRY 
NmamEcma 

Jon DeLoachn 
Karen 卫 Vich 





ouEewey) 
Jon DeLoach 
Karen 了 vich 


[解释 | 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标 记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 , 读 取 
_DATA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_。 每 次 进入 循环 体 时 ， 将 _DATA_ 后 面 的 一 行内 容 
赋值 给 $_， 直 到 所 有 行 都 处 理 完毕 。 
2. 正则 表达 式 的 意思 是 , 在 行 首位 置 搜索 一 个 或 多 个 字 〈\w+)， 其 后 是 一 个 空格 符 〈\)， 同 
时 向 前 查找 那些 既 不 是 B 又 不 是 。 的 字符 。 这 又 称 作 负 向 前 查找 。 
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AN 


示例 9.46 
(The Scipt) 
# 县 DosIitive 1 ook Penpina 


下 S$string="I LIove chocolate cake，chocolate milk， 
Sma ceoceaeeeseessamaw > 
多 S$Sstring =~ S/(?<= chocolate) milk/ candy bars/: 


加 TESTON DY E 


4 S$string="I LIove coffee， 工 LIove tea 工 Love the poys 
anmnaq the bpoys Love me."; 
5 S$string =~ sS/ (?<=the boys) Love/ don't 1Like/; 


6 ES 


人 ES 

区 工 Jove cphocoJate cake，cphocoJate canay pars，anaQ cphocoyate Ice czrea. 
6 工 Jove coffee，TI Jove tea 工 Jove the Poys ana Lphe Poys Qon't IIKe 夯 e。 
丰 


释 

1. 将 标量 $string 赋值 为 含有 三 个 chocolate 模式 具体 值 的 字符 串 。 

2. 括号 中 的 模式 又 称 作 正 向 后 查找 。Perl 会 在 字符 串 中 向 后 查看 模式 是 否 出 现 ， 如 果 找 到 模式 
milk 的 话 ,， Perl 便 会 再 向 后 查找 字符 串 , 看 其 前 面 是 不 是 chocolate。 如 果 是 的 话 , 便 把 milk 
替换 为 candy bars 。 

3. 在 完成 坎 换 操作 后 ， 打 印字 符 串 内 容 。 

4. 本 行 是 另 一 个 正 向 后 查找 的 示例 。Perl 会 在 字符 串 中 向 后 查找 模式 由 e boys。 如 果 找 到 模式 ， 
则 将 正则 表达 式 替 换 为 don't like。 





AN 


示例 9.47 
人 Eee 
# 屋 pe9ative Jook Denpina 
TS 
受 print if /(?<!Betty) B[a-z]l*/: 
】 
DATA 


SteVe BJLenheim 
Betty Boop 
Lo EChmeysv 
Norma Cord 

Uon DeLoacn 
Karen 了 Vich 


kw 
Steve BlLenheim 


解释 
1. 特殊 文件 句柄 DATA 从 _DATA_ 标记 后 面 的 文本 中 获得 输入 内 容 。 进 入 while 循环 ， 读 取 
_DATIA_ 后 的 第 一 行内 容 ， 并 赋值 给 $_ 。 每 次 进入 循环 体 时 ， 将 _DATA_ 后 面 的 一 行内 容 
赋值 给 $_ ， 直 到 所 有 行 都 处 理 完毕 。 
2. 位 于 括号 中 的 模式 又 称 为 负 向 后 查找 。Perl 会 在 字符 串 中 向 后 查找 模式 ， 看 它 有 没有 出 
现 。 只 要 其 后 的 模式 不 是 Betty, 便 可 打印 以 字母 B 开头 并 跟 有 零 到 多 个 小 写字 有 母 [a-z]* 
的 行 。 
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9.1.4 tr 或 y 函数 


f 函数 虽 Eee 
的 返回 值 是 替换 的 字符 总 数 。tr 国 数 不 能 解释 正则 表达 式 中 的 元 字符 ， 但 允许 通过 散 列 变量 表示 某 
个 范围 内 的 字符 。 有 站 寺 人 ie 放 必 站 生 NI 因为 后 者 提供 的 sed 实用 工具 
中 有 一 个 y 命令 。 该 命令 也 能 用 于 转换 字符 , 其 效果 类 似 于 UNIX 中 的 女 命 令 。 这 也 从 另 一 个 方 国 
说 明了 UNIX 在 Perl 开发 过 程 中 的 重要 作用 。 

d 选 项 用 于 删除 搜索 字符 串 。 









































表 9-9 tr 修饰 符 


c 选项 用 于 补 全 搜索 字符 串 。 
s 选项 又 称 作 挤 压 〈squeeze) 选项 。 它 能 “修了 肇 符 信义 





把 搜 索 字符 中 中 找到 的 多 个 基体 值 替换 成 该 字 删除 字符 

符 相 应 的 单个 具体 值 〈 例 如 ， 将 多 个 制 表 符 替 e 补 全 搜索 列表 

换 为 单个 制 表 符 )。 有 关 这 些 修饰 符 的 详细 列表 8 将 多 个 字符 挤 压 〈squeeze) 为 单个 字符 
请 参考 表 9-9 。 Se SS eeeaeaeeasaeaeaeaeaeaswwsaeaeasaxaxaxkesasxy 


格式 : 


tr/search/replacement/ 

tr/search/replacementy/d 

tr/search/replacementy/c 

tr/search/replacement/s 

Yy/search/replacement/ (same as tr uses same moai 万 ersl) 


示例 9.48 


Ne 
Steve BlLenheim 101 
BBSsEEyYEEEBcce20H 
Igor ChevsKy 301 
NSEmna 昌 EC E 汪 0 员 
Jon DeLoachnh 501 
KazRenm EV7ZLECn 601 


ees 要 人 onEE3SIETEOTSE) 
下 tr/V/a-z/RA-2/ :Print 


oOuEsuey) 

SRVR 必 也 王 用 NEPMUELO 
BETTEYT EGGR 为 0 
由 民 本 和 RAWASTY 办 中 
NORMRA CORD 401 

JON EDETONCH 四 
KAREN EVICH 50 王 


多 tr/V/0-9/:/: Print'; 


人 ESD 
SteVe BlLenhelim ::: 








名 Perl 提供 的 好 国 数 来 自 于 UNIX 中 的 女 命 令 。 
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SEE CS 5 
GEenewsk 二 
NEmaaeem ci 

本 Demeoaen > 

并 TenmVC 

] tr/R-Z/a-c/ :Print:; 


emweeuey 

cteve blenheim 101 
ETEEYESCeR 且 为 0 和 
CocoeEEelieSIEY WU 
ECGWESose 0 
coneeeseeachneesuih 
Gaccnee en 


4 七 工 / 失信 省 方 二 m 巧 


OUE 二 
Steve#B1Lenheim#101 
Betty#BoopPp#201 
IgGoOr#Chevsky#301 
Norma#Cora#401 
Jon#DeLoach#501 
Karen#Evich#601 


本 Y/RA-Z/a-z/:Print: 


OUE 

Steve blenheim 101 
BEEEY7ESCeP 三 么 0 岂 
SEEEEY SU 
oma 本 Eco 古 包 0 
noSIISSC 本 和 下 
Karen evVich 601 


解释 
1.tr 函 数 在 搜索 字符 串 的 每 个 字符 与 替换 字符 串 的 每 个 字符 之 间 进 行 一 一 对 应 。 本 行将 把 小 写 
字母 转换 为 相应 的 大 写字 母 。 


2. 将 每 个 数字 都 转换 为 冒号 。 

3. 这 里 的 转换 过 程 是 杂乱 无 章 的 。 这 是 因为 搜索 端的 字符 数目 比 替 换 端 的 多 ,造成 从 D 到 乙 的 
所 有 大 写字 母 都 会 替换 为 c。 

4. 将 每 个 空格 符 都 替换 成 磅 号 〈# ) 。 

5. 这 里 的 y 和 女 意 义 相同 。 把 每 个 大 写字 母 转换 成 相应 的 小 写字 母 。 





芷 删除 选项 。 选 项 d 能 从 搜索 字符 串 里 删除 那些 没有 出 现在 替换 字符 串 中 的 字符 。 


示例 9.49 


和 七 工人 和 万 工 工 六 七 交 


OUEoE) 
1 Steve BlLenheim 
2 Betty Boop 
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IGCCeNw SI 
Nana 

Jon DeLoach 
Karen 也 Vich 


COTTON 


习 上 GD 万 工 了 


En 
1SteveBlenheim 
2BettyBoop 
SECITeVSRY 
4NormaCord 
5UonDeLoachn 
6KatrenEvich 


解释 
1. 在 本 例 中 ， 并 没有 像 使 用 sed 或 vi 那样 发 生 转 换 。 
2. 这 里 需要 在 使 用 嫌 国 数 时 提供 d 选项 ， 以 便 删 除 每 个 空格 符 。 


上 补 全 选项 。 选 项 e (complement) 负责 补 全 搜索 字符 串 ， 也 就 是 把 没有 出 现在 该 字符 串 中 的 
字符 转换 为 替换 字符 串 里 的 相应 字符 。 








AN\ 


示例 9.50 
山 tz/V/0-9/*/: Pint:; 


WOwueswey) 

SteVve BlLenheimm 
Betty BooPp 

下 gcFECmewaslsy 
Nm al 

Jon DeLoach 
Karen 也 Vich 


站 RH RE 


2 tr/V/0-9/*/c: Pint:; 


人 ES 


工大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大队 大 大 交大 大 大 大 大 大 大 大 大 马 大 大 大 大 大 大 大 大 大 大 大 大 大 大 人 大 大 大 大 大 大 大 大 大 大 大 关口 大 大 大 大 


本 
解释 

1. 本 行 没有 使 用 e 选项 ， 因 此 女 函数 会 把 每 个 数字 转换 为 星 号 〈*)。 

2. 本 行 用 到 了 c 选项 ， 因 此 女 会 把 每 个 不 是 数字 的 字符 转换 为 星 号 〈*)。 换 行 符 也 不 例外 。 


妇 挤 压 选 项 。 选 项 s〈squeeze) 负责 把 所 有 重复 的 字符 替换 为 相应 的 单个 字符 。 








示例 9.51 
(The Text File) 
由 while (<DRATR>) 1{ 
上 全 汪 人 和 
[ES 


AN 


【 
Re 
1:::Steve BlLlenheim 
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2225BSECBCop 
SGFCIewSISY 
4:Norma Cord 


SECnDEEOSER 
01 
ia 


( 

1:Steve Blenheim 
CBEEEVEBSODb 
EeeSKS: 
4:Norma Cord 
5:Uon DeLoach 
6sRaren ZTECI 


将 多 个 冒号 转换 〈 挤 压 ) 为 单个 冒号 。 


9.2 Unicode 





Unicode 编码 为 每 个 字符 都 规定 了 惟一 的 数字 标识 ， 以 便 在 不 同 应 用 程序 、 语 言 和 系统 平台 之 
间 保障 信息 的 一 致 性 。 

随 着 Internet 的 出 现 , 经 常 需要 在 全 世界 范围 内 从 一 个 Web 站 点 向 另 一 个 Web 站 点 传输 数据 , 并 
要 求 不 破坏 数据 内 容 。 这 时 ，ASCII 编码 显然 就 不 够 用 了 。ASCII 字符 编码 序列 只 能 提供 256 个 〈 即 
一 个 字 市 ) 字符 ， 很 难 适 应 汉语 或 日 语 之 类 的 情况 ， 因 为 这 些 语 言 往往 拥有 规模 上 千 的 字符 集合 。 

Unicode 标准 通过 创建 新 的 字符 集 〈 称 为 UTIF8 和 UTF16) 来 尝试 解决 上 述 问题 。 以 UTF8 为 
例 ， 它 支持 2 个 字 节 ， 能 提供 65536 个 字符 ， 并 为 每 个 字符 提供 惟一 的 编号 。 如 需 消 除 编 码 的 多 义 
性 ， 则 应 当 让 给 定 的 16 位 编码 值 始终 指向 同一 个 字符 ， 这 样 便 能 实现 一 致 的 文本 排序 、 搜 索 、 显 
示 和 编辑 功能 。 根 据 Unicode 协会 的 资料 ，Unicode 编码 具有 支持 超过 一 百 万 个 字符 的 能 力 ， 足 
以 满足 全 世界 各 种 语言 的 编码 需求 。 此 外 ， 它 对 所 有 符号 都 能 一 视 同 仁 ， 因 此 用 户 无 需 转 义 序列 或 
控制 码 就 能 方便 地 访问 所 有 的 字符 。 




















Per 与 Unicode 


Perl 5.6 最 大 的 变化 就 是 提供 了 对 UTF8 编码 的 支持 。 在 默认 情况 下 , Perl 内 部 都 通过 Unicode 
来 表示 字符 串 ， 而 相关 的 内 建国 数 〈 如 length、reverse、sort、tr 等 ) 都 是 以 字符 为 单位 〈 而 非 以 
字 节 为 单位 ) 工作 的 。Perl 提供 了 两 种 新 的 编译 指示 符 ， 能 够 打开 或 者 关闭 Unicode 编码 方式 。 其 
中 ，nutf8 编译 指示 符 能 开局 Unicode 编码 ， 并 载 和 所 需 字 符 编 码 表 ; 而 bytes 编译 指示 符 则 负责 局 
用 传统 的 字 节 编码 方式 ， 每 次 只 处 理 一 个 字 节 。 
在 打开 utf8 编码 方式 时 ， 用 户 可 使 用 NT} 标记 来 以 Unicode 编码 表示 字符 ， 甚 中 N 是 十 六 
进 制 的 字符 编码 ， 如 \x{395} 。 























@ ”Unicode 协会 是 一 个 非 合 利 性 组 织 ， 负 责 开 发 、 扩 展 和 促进 Unicode 编码 标准 的 使 用 。 有 关 Unicode 编码 
及 其 协会 的 更 多 信息 ， 请 参考 ; http:/www.unicode.org/unicode/standard/whatisunicode.html。 
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Unicode 提供 了 对 正则 表达 式 的 支持 ， 并 能 基于 Unicode 的 属性 值 来 匹配 字符 。 其 中 有 些 属 性 
是 Unicode 标准 规定 的 ， 还 有 一 些 则 是 由 Perl 规定 的 。Perl 属性 是 一 系列 标准 属性 的 组 合体 。 换 
而 言 之 ， 读 者 现在 可 使 用 \p{IsUpper} 来 匹配 任何 语言 中 的 大 写字 符 。 更 多 信息 请 参阅 http://www. 
Perl.com/pub/a/2000/04/whatsnew.html。 

表 9-10 列 出 了 所 有 Perl 组 合 字符 类 。 如 果 中 的 P 是 大 写 的 话 ， 则 表示 相反 的 含义 。 璧 如 ， 
\p{ISASCII} 表示 ASCII 字符 ， 而 \P{ISASCII} 则 表示 非 ASCII 字符 。 











表 9-10  uft8 组 合 字符 类 





























uft8 属性 含 义 
\p{ISASCIIT} ASCII 字符 
\p{fCntrl} 控制 字符 
\p{IsDigit} 0 到 9 之 间 的 数字 
\p{IsGraph} 字母 数字 或 者 标点 符号 
\p{IsSLower} 小 写字 母 
\p{IsPrint} 字母 、 数 字 、 标 点 符号 或 空格 
\p{IsPunct} 标点 符号 
\p{IsSSpace} 空白 字符 
\p{ISUpper} 大 写字 母 
\p{fIsSWord} 字母 数字 字符 或 者 下 划 线 
\p{ISXDigit} 十 六 进 制 数字 


示例 9.52 


1 use utf8: 


2 NE 三 上 1 
ES 可 王 所 生 人 

0 本 Se 三 证 

与 国人 PE 下 区 
0 


~ /AP{IsCcntr1L}7/:; 


ouEewey) 
吕 本 
号 人 
6 全 
1. 使 用 utf8 编译 指示 符 打 开 Unicode 设置 。 
2. 将 一 个 数字 赋值 给 标量 $chr。 
3. 借助 Perl 提供 的 Unicode 属性 IDigit 判断 它 是 不 是 一 个 介 于 0 到 9 之 间 的 数字 ， 其 效果 类 
似 二 由 Oo 
4. 将 标量 $chr 赋值 为 字符 串 junk。 
5. 注意 这 里 的 \p 现在 成 了 \P， 使 得 转 义 序列 的 意思 变 成 了 “ 非 数 字 ”。 其 效果 类 似 于 [^0-9]。 
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由 于 本 行 中 的 junk 不 是 数字 ， 因 此 该 条 件 值 为 真 〈true )。 


6. 反 转 junk 得 


到 的 值 不 是 控制 字符 。 


9.3 读者 应 当 学 到 的 知识 





1. 元 字符 的 用 途 是 什么 

2. 什么 是 字符 类 ? 

3. 什么 是 “ 贪 梦 〈greedy)” 元 字符 ? 

4. 什么 是 销 定 〈anchoring) 元 字符 ? 

5. 如 何 搜索 实际 的 点 

6. 什么 是 捕获 〈capturing) ?如 何 关闭 它 ? 
7. 什么 是 分 组 (grouping) ? 

8. 字符 类 和 交替 (alternative ) 有 什么 不 同 ? 
9. 如 何 查找 一 个 或 多 个 数字 字符 ? 


10. 如 何 查找 零 个 或 一 个 数字 字符 ? 


11. 什么 是 元 符 


号 Cmetasymbol) ? 


12. 在 使 用 tr 国 数 时 ， 使 用 “ 挤 压 〈squeeze)” 选 项 的 目的 是 什么 ? 


13. 什么 是 utf8 


9.4 下 章 简介 





追加 文件 内 容 以 及 女 


? 


在 下 一 章 中 ， 本 书 将 讨论 Perl 是 如 何 处 理 文件 的 ， 包 括 如 何 打 开 文 件 、 读 取 文 件 、 写 入 文件 、 





何 关闭 文件 。 读 者 将 了 解 “die” 是 怎样 工作 的 , 还 会 学 习 如 何在 文件 中 找到 指 





定位 置 、 如 何 从 文 从 


末尾 绕 回 到 文件 头 、 如 何 标记 下 一 次 读 取 操 作 的 位 置 。 此 外 ， 读 者 还 将 学 习 如 








通过 ARGY 向 Perl 


练习 9 


何 检查 文件 的 可 读 性 
何 把 输出 内 容 发 送 到 管道 的 ， 以 及 如 何 从 管道 中 读 取 输入 内 容 。 最 后 ， 读 者 将 学 到 如 何在 命令 行 中 





、 网 二 人 人 可 执行 性 等 书 将 讨论 管道 (pipe) 的 相关 知识 ， 包 括 Perl 是 如 





脚本 传递 参数 。 


(请 在 华章 网 站 (www.hzbook.com) 上 找到 如 下 示例 文件 。) 


Tommy Savage:408 


-724-0140:1222 0Oxbow Court，SunnyvaleyrCA 


94087:5/19/66:34200 

Lesle Kerstin:408-456-1234:4 HarVard Sadaquare Boston，，， MA 
021333:4/22/62:52600 

JonDeLoach:408-253-3122:123 Park St.，San Jose，CA 94086:7/25/53:85100 


EPhram Hardqay:293-- 


359 三 3954 人 本 已 3 二 二 十 站 一天 二 站 全 亢 过 加 本 玉生 蕊 元, 江 下 


73858:8/12/20:56700 
etty Boop:245-836-8357:635 Cutesy Lane， Hollywood CA 
9146436723723314500 


Wilhelm Kopf:846-- 


836-2837:6937 Ware Road，Mi1lLtony，， PFA 


93756:9/21/46:43500 


正 刚 表达 式 元 字符 


279 





Norma Cordqer:397-857-2735:74 Pine Street，Dearborny MI 
23874:3/28/45:245700 

James Ikeda:834-938-8376:23445 Aster Ave.， Allentown，，NJ 
83745:12/1/38:45000 

Lori Gortz:327-832-5728:3465 Mirlo Street，Peabodqy， MA 
34756:10/2/65:35200 

Barbara Kerz:385-573-8326:832 Ponce Drive Garyr IN 
83756:127/15746:268500 


.打印 Norma 所 在 的 城市 和 州 名 。 

. 为 每 个 人 增加 $250.00。 

. 计算 Lori 的 年 龄 。 

. 打印 从 第 二 行 到 第 六 行 的 所 有 内 容 〈$. 变量 中 信 有 当前 行 号 )。 
. 打印 区 号 为 408 的 人 名 与 电话 号 码 。 

. 打印 第 3、4、5 行 中 的 人 名 与 工资 。 

.在 第 三 行 后 面 打印 一 行星 号 〈*# )。 

.将 CA 改名 为 California 。 

. 打印 文件 内 容 ， 并 在 最 后 一 行 后 面 加 上 一 行星 号 。 
10. 打印 在 三 月 份 出 生 的 人 的 名 字 。 

11. 打印 所 有 不 售 Karen 的 行 。 

12. 打印 末尾 正好 是 5 个 连续 数字 的 行 。 

13. 打印 文件 ， 并 将 姓 和 名 反 转 。 














\D oo ~ 人 下 ww 上 wiib 一 

















第 10 章 ”获得 文件 句柄 


10.1 用 户 定义 文件 句柄 


如 果 需 要 处 理 文本 的 话 ， 通 常 就 会 对 文件 执行 打开 、 关 闭 、 读 取 和 写 入 等 操作 。 在 Perl 中 ,一 
般 都 使 用 文件 句柄 来 访问 系统 文件 。 

文件 句柄 (file handler) 是 文件 、 设 备 、 管 道 或 套 接 字 〈socket) 的 名 字 。 在 第 4 章 “ 获 得 打 
印 句柄” 中， 本 书 已 经 讨论 过 三 个 默认 的 文件 句柄 ， 即 STDIN、STDOUT 和 STDERR 。 除 此 之 外 ， 
Perl 还 允许 用 户 创 建 自 定义 的 文件 句柄 ， 以 便 对 文件 、 设 备 、 管 道 或 套 接 字 执行 输入 或 输出 操作 。 
用 户 还 可 把 文件 句柄 关联 到 系统 文件 9 上， 并 通过 文件 句柄 访问 这 些 系统 文件 。 











10.1.1 打开 文件 : open 函数 


open 函数 允许 用 户 命名 一 个 文件 句柄 以 及 附加 在 该 句柄 上 的 文件 。 用 户 可 以 通过 读 方 式 、 写 
方式 或 追加 方式 〈 即 读 写 方式 ) 打开 文件 ， 也 可 打开 文件 在 进程 间 来 回 传输 数据 。 如 果 打 开 成 功 ， 
open 国 数 便 返 回 非 零 结果 ; 如 果 失 败 的 话 ， 则 返回 未 定义 值 。 与 标量 、 数 组 和 标签 一 样 ， 文 件 句柄 
也 拥有 自己 的 命名 空间 , 因此 它们 不 会 与 保留 字 混 请 。Perl Wizard 推荐 使 用 全 部 大 写字 母 的 文件 名 
柄 名 《〈 详 见 附 录 A 中 的 “open 国 数 ”)。 

如 需 在 Win32 平台 上 打开 文本 文件 ， 则 在 读 取 磁 盘 上 的 文本 文件 时 ，\rn《〈 回 车 和 换行 符 ) 会 
自动 切换 为 \n, 而 ^Z 字符 则 读 作文 件 末 尾 标识 符 《〈 即 EOF )。 本 章 下 面 将 要 介绍 的 国 数 都 能 顺利 地 
处 理 文本 ， 但 在 处 理 二 进 制 文件 时 却 会 产生 问题 〈 详 见 10.1.4“Win32 二 进 制 文件 ”)。 


























10.1.2 ”打开 文件 读 取 


下 面 的 示例 说 明了 如 何以 读 方式 打开 一 个 文件 。 尽 管 本 例 针 对 的 是 UNIX 文件 ， 但 它 和 
Windows 及 Mac 0OS 等 操作 系统 上 的 工作 方式 并 没有 差别 。 


于 open (FILEHANDIE， "EILENRAME" ) ， 
open (FILEHRANDIE， "<EILENRAME") ， 








全 ”所谓 系统 文件 ， 指 的 是 UNIX、Win32、Macintosh 自 带 的 文件 ， 位 于 系统 磁盘 上 。 
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受 Open(EILEHEANDIE) 7; 
马 OpPen 了 工 工 忆 再 有 NDE 卫 > 


示例 10.1 

由 open (MYHANDILE ， "my 节 Le") 7 
SSsnm(RNT ELSE 和 aa 
open (MYHANDLE) 


到 
3 

释 
1. open 函数 创建 一 个 文件 句柄 MYHANDLE, 并 将 其 附加 给 系统 文件 myfile。 以 读 方式 打开 该 

文件 。 由 于 没有 为 myfile 文件 指定 全 路 径 ， 因 此 该 文件 必须 位 于 当前 目录 下 ， 并 提供 读 权 

限 。 这 样 才 能 成 功 地 以 读 方式 打开 它 。 

2. open 函数 创建 一 个 文件 句柄 FH, 并 将 它 附 加 给 系统 文件 /etc/passwd。 以 读 方式 打开 该 文件 ， 
不 过 这 次 是 通过 < 符号 来 说 明 读 方式 的 。< 符号 在 这 里 并 不 是 必需 的 ， 但 它 有 助 于 说 明 这 征 
一 个 读 操作 。 本 行为 passwd 文件 指定 了 全 路 径 。 

3. 如 果 省 略 了 FILENAME, 则 文件 句柄 的 名 字 将 与 前 面 定 义 的 标量 名 相同 。 本 行 把 实际 文件 
的 名 字 赋 值 给 了 标量 型 变量 。 在 本 例 中 ， 可 以 将 文件 名 定义 为 : 


SMYHRANDILE="myfile" 7 
open (MYHANDIE) ， 


Open 函数 创建 一 个 文件 句柄 FE 了 ， 并 将 它 附加 给 标量 SMYHANDLE 的 值 。 其 作用 与 第 一 个 例 
子 相 同 。 本 行 的 括号 是 可 有 可 无 的 。 


关闭 文件 句柄 。close 函数 负责 关闭 附加 给 FILEHANDLE 文件 句柄 的 文件 、 管 道 、 套 接 字 或 
设备 。 一 旦 程序 打开 了 FILEHANDLE 文件 句柄 ， 则 直到 脚本 结束 或 再 次 调用 open 国 数 〈 后 一 次 
open 调用 会 自动 关闭 前 一 次 open 的 句柄 ) 之 前 ， 该 句柄 都 是 处 于 打开 状态 的 。 如 果 设 有 显 式 地 关 
闭 文件 , 则 通过 上 述 方 式 打开 文件 后 ,， 行 计数 妖 变 量 $. 将 不 会 重 置 。 关 闭 管 道 文件 将 引起 相关 进程 
陷入 等 待 状态 ， 直 到 管道 操作 完成 并 在 $! 变量 中 报告 完成 状态 《〈 详 见 “die 函数 ”一 节 ) 为 止 。 纤 
上 所 述 ， 在 使 用 完 文 件 和 句柄 后 ， 必 须 及 时 关闭 。 





格式 : 
Close (FILEHRANDLE) ; 
Close FILEHANDLE， 


示例 10.2 
GEem(INEIIE "QQatepcoek" ) 7 
Close(INEILE) 


解释 
关闭 用 户 定义 的 文件 句柄 INFIIE。 


die 函数 。 在 下 面 的 示例 中 ， 如 果 调 用 open 国 数 失 败 ， 程 序 便 会 调用 die 函数 。 如 果 Perl 脚 
本 无 法 打开 指定 文件 ， 则 可 通过 die 函数 退出 脚本 ， 并 把 错误 信息 打印 到 STDERR“《〈 通 党 就 是 终 
端 屏幕 )。 

譬如 ， 在 shell 或 MS-DOS 提示 符 下 和 输入: 


cat Junk (CDNIX) 
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或 

type junk (DOS) 

并 且 已 知 这 个 junk 文件 并 不 存在 。 则 在 屏幕 上 将 出 现 如 下 错误 信息 : 

cat: junk: No such fle or qirectory (UNIX "cat"” commana 

The system cannot fnad the fle specified . (1znaomws "type" commana) 

Perl 特殊 变量 $! 中 含有 系统 错误 信息 , 这 些 错误 信息 往往 是 由 于 不 能 成 功 打开 文件 或 在 执行 系 
统 实用 程序 时 出 错 而 造成 的 〈 详 见 “ 错 误 处 理 ” 一 节 )。 在 使 用 die 函数 时 , 该 特殊 变量 能 在 继续 执 
行 脚 本 之 前 获得 文件 句柄 出 错 的 具体 原因 《〈 详 见 示例 12.10 中 讨论 的 Carp.pm 模块 )。 


示例 10.3 


We 人 emEESCE) 
业 open (MYHANDIE，"/etc/password) || die "Can't open: S$SINn" 
包 open (MYHANDIE ，"/etc/password) or die "Can't open: S$SINn" 








人 

和 ER 

WeEeemn 本 Si 

加 open (MYHANDILE， "/etc/Vpassword") | aie "Can't open: "， 


ES 
CamnWEEEODET NG 请 让 二 2 攻关 人 放 二 和 全 六 放下 二 天 必 克 二 和 2 


. 当 艾 试 打开 文件 /etc/password 时 ,open 操作 失败 《因为 路 径 应 当 是 /etc/passwd)。 当 左边 的 
操作 数 失 败 〈 即 为 假 ) 时 ,短路 运算 符 会 继续 执行 其 丰 侧 的 操作 数 。 因 此 本 行将 继续 执行 die 
运算 符 。 这 里 将 打印 字符 串 Can"t Open， 随 后 是 系统 错误 信息 “No such file or directory ”。 
换行 符 间 中 止 了 die 困 数 的 进一步 输出 。 在 退出 程序 时 , 上 述 所 有 die 输 出 都 会 发 送 给 STDERR。 

2. 考虑 到 代码 可 读 性 ， 这 里 使 用 or 运算 符 ， 而 不 是 |。 

3. 本 例 与 第 一 个 例子 几乎 完全 一 样 , 只 不 过 它 不 售 问 换行 符 。 省 略 妆 将 使 得 die 函数 把 另 一 

个 字符 串 追 加 到 输出 内 容 中 ， 以 表明 脚本 中 发 生 错误 的 代码 行 号 。 





从 文件 句柄 中 读 取 。 示例 10.4 以 读 方式 打开 了 文件 datebook， 并 将 读 到 的 各 行内 容 依次 赋值 
给 标量 $_。 这 是 一 个 默认 的 变量 ， 含 有 读 取 到 的 直到 文件 末尾 的 所 有 内 容 。 


示例 10.4 


(The Text Eile: aatebook) 

Steve BJenpeim 

Betty BooPp 

所 5 汪 靖 本 Go 和 全 E 世 

SI Tancelot 
esEoc7a 

Jon Dezmoacn 

Karen 五 vIcDP 
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SSEmoety 


EU 


电 


解释 


#1!1V/usz/bin/per1 
# OPpen a 右 Je with a 石 1ehpanaJle 


oOoPen (FIIBE， "datebook") 11 die "Can't open datebook: S$SINn": 
while(<EILE>) ({ 
ER 
) 
ElIGSESEET TD 
GE 
ES 
open 国 数 创建 一 个 文件 句柄 〈 以 读 方 式 打开 ), 并 将 其 附加 到 系统 文件 datebook 上 。 由 于 该 


晤 


LD 


文件 不 存在 ， 因 此 die 函数 将 打印 以 下 内 容 到 屏幕 上 : Can” topen datebook: No Such file or 


directory 。 


. While 循环 中 的 表达 式 是 文件 句柄 FILE, 它 位 于 角 括 号 之 间 。 角 括号 是 表示 读 取 操 作 的 运算 


符 《 它 们 不 是 文件 句柄 名 称 的 一 部 分 )。 当 循环 开始 时 , 从 文件 句柄 FILE 中 读 取 其 第 一 行内 
容 ， 并 将 它 存 入 标 量 $_ 中 《请 记 住 ，$_ 标量 含 有 从 文件 中 读 取 到 的 每 一 行内 容 )。 如 果 尚 
未 达到 文件 末尾， 循环 就 将 继续 读 取 文 件 的 每 一 行内 容 ,， 即 执行 语句 3 和 4, 直到 文件 结束 。 


. 默认 输入 标量 $_ 用 于 隐 式 地 保存 从 文件 句柄 中 读 到 的 当前 输入 行 。 如 果 该 行 中 含有 正则 表 


达 式 Sir Lancelot, 则 将 基 《〈 位 于 $_ 中 ) 打印 到 STDOUT。 每 次 循环 时 , 都 会 把 读 到 的 下 一 
行文 件 内 容 保存 到 $ ， 并 查看 其 内 容 。 





. 位 于 末尾 位 置 的 花 括 号 表明 循环 体 的 结束 位 置 。 当 程序 到 达 这 一 行 时 ， 就 将 控制 流 返 回 到 循 


环 顶 部 〈“ 即 第 2 行 处 )， 然 后 继续 从 文件 中 读 取 下 一 行内 容 。 该 过 程 一直 持 续 ， 直 到 读 完 文 
件 中 的 所 有 行 。 


. 在 循环 读 取 完 毕 整个 文件 后 ， 通 过 文件 句柄 的 关闭 操作 来 关闭 该 文件 。 





示例 10.5 


(The Text FEile: aatebook) 


Steve BJenpeim 
Betty BooP 
GE E52 

SI TanceJot 
Norma Corda 

Jon Dernoacn 
Karen 五 vIcn 


NE 本 Se 


三 


#1!Vusr/Vbin/per1l 
# OPpen a 五 Je with a 石 1ehpanaJle 


OPen (FIIBE， "datebook") |1| die "Can't open datebook: S$SINn": 
while($Line = <EFIILE>) 1{ 
人 
} 
GESIE RSTIIE 放 古 
GERUEY) 


Us 
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解释 
1. 以 读 方式 打开 文件 datebook。 
2. 进入 while 循环 ， 从 文件 中 读 取 一 行内 容 ， 并 将 它 保存 到 标量 $line 中 。 
3. 如 果 该 行内 容 含 有 模式 Lori， 且 该 模式 位 于 行 首 的 话 ， 打 印 标量 $line 的 值 。 
4. 当 到 达 右 侧 角 括号 时 ， 将 控制 流 跳 转 到 第 2 行 ， 以 便 读 取 文 件 的 下 一 行内 容 。 在 读 
所 有 行 后 ， 退 出 该 循环 。 
5. 通过 关闭 文件 句柄 的 方式 关闭 该 文件 。 


元 妆 | 网 


示例 10.6 
(The Text Eile: aatebook) 

Steve BJenpeim 

Betty BooP 

加 天 了 CGO 

号 了 万 人 SO 启 

Nama 硬 ed 

Jon Dezoacnpn 

Karen Ben 


Eee 
二 下 和 
# Open a Je with a 五 1ehanaJe 


名 OPen (FIIBE， "<datebook") |1| die "Can't open datebook: S$SINn" 
2 Q1Lines = <EIILBE>: 

同 OILGUEINIE SP # Contents of the entire 石 Je are PDFintea 
4 DFIEEOaEEDoSI IEESmEaTTS SImeSE HL 


DNSSC 有三 记 且 区 让 
瑟 SR 人 人 是 


komeeuwey 
7TpPpe aatebpook Je contains 7 1ines of text， 


解释 
1. 以 读 方式 打开 文件 datepook〈 本 行 的 读 取 运 算 符 < 是 可 有 可 无 的 )。 


2. 通过 文件 句柄 读 取 文件 中 的 所 有 行 , 并 全 部 赋值 给 数组 @lines。 文 件 的 每 一 行内 容 都 成 为 数 


组 的 一 个 元 素 ， 并 以 换行 符 结 尾 。 

3. 打印 数组 @lines 的 内 容 。 

4. 变量 $ 鸭 ines 的 值 是 数组 中 前 一 个 子 脚本 的 编号 。 只 需 把 $#lines 加 上 1， 便 可 得 
〈 行 ) 的 编号 。 偏 移 量 -1 ( 即 $lines[-1]) 表示 最 后 一 行 。 


10.1.3 ”打开 文件 写 入 








到 该 元 素 


当 以 写 方式 打开 一 个 文件 时 ， 如 果 该 文件 不 存在 ， 程 序 就 会 创建 它 ; 如 果 该 文件 已 存在 ， 则 它 
必须 对 用 户 提供 写 权 限 。 如 果 文 件 存在 的 话 ， 用 户 可 以 修改 其 内 容 。 这 里 同样 使 用 文件 句柄 来 访问 








系统 文件 。 


格式 : 


Open (ERILEHEANDIE ， ">RFEILIENAME) "7 
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人 ">temp") 7 


通过 用 户 定义 的 MYOUTPUT 文件 句柄 把 内 容 输出 到 文件 temp 中 。 与 使 用 shell 时 一 样 , 这 里 
也 要 借助 重 定 向 符号 把 输出 内 容 从 默认 文件 句柄 STDOUT 重 定向 到 文件 temp 中 。 


( 


和 
多 


下 
4 


( 


己 
6 


( 
习 
4 


TEST 
#1!V/usz/bin/per1 
# rzIzte to aa 下 Je withp a 石 1ehanale. Scriptname: 五 1e.hpanale 
$fle="/home/jody/ellie/per1l/newfile":; 
oPen (HANDOUT ，">$file") || die "Can't open newfile: SINn" 


FTnEENIRNDOUTLIETISRNSETIORSNOD 
EGRANEDOUIAITEIIICORNOETIOEESOSRNRNOLE 


At the Commanad Line) 
$ Per1l file.handle 
$_ cat nevwfile 


Sana 
JE 
ER 


释 


馆 


LD 


人 


10.1 


1. 将 标量 型 变量 $file 赋值 为 UNIX 文件 newfile 的 全 路 径 名 称 。 本 行将 通过 文件 句柄 把 输出 内 
容重 定向 到 该 变量 指向 的 UNIX 文件 中 。 在 Windows 上 , 本 例 的 工作 方式 基本 相同 , 但 由 
于 需要 使 用 反 斜 杠 作 为 目录 分 隔 符 ， 因 此 必须 用 单 引 号 围 住 路 径 ， 或 者 提供 双 反 斜 杠 字符 ， 
例如 : C:NhomeNellie\testing 。 

. 用 户 定义 了 一 个 名 叫 HANDOUT 的 文件 句柄 , 从 而 将 输出 内 容 的 传送 目的 地 从 默认 的 STDOUT 
重 定向 为 它 所 代表 的 newfile 文件 。> 符号 表示 : 如 果 该 文件 不 存在 ， 则 创建 它 ， 并 以 写 方 
式 打开 它 ; 如 果 该 文件 存在 ， 则 打开 它 ， 然 后 覆盖 文件 原 有 内 容 。 因 此 在 执行 时 应 当 慎 之 又 慎 。 

. print 函数 将 输出 内 容重 定向 到 文件 句柄 HANDOUT 而 非 屏 幕 。 本 行程 序 将 通过 文件 句柄 
HANDOUT 将 字符 串 hello world 写 入 到 文件 newfile 中 去 。 此 后 ，newtfile 文件 将 一 直 保 持 
在 打开 状态 ， 直 到 代码 显 式 地 关闭 它 ， 或 者 退出 Perl 脚本 。 

. Print 国 数 将 输出 内 容重 定向 到 文件 句柄 HANDOUT 而 非 屏 幕 。 本 行程 序 将 通过 文件 句柄 
HANDOUT 将 字符 串 hello world 写 入 到 文件 newfile 中 。 操作 系统 将 跟踪 上 一 次 写 入 文件 的 
位 置 ， 并 把 下 一 行 输出 内 容 发 送 到 文件 末尾 处 。 

. 执行 脚本 ， 将 输出 内 容重 定向 到 newfile 文件 内 。 

. 打印 文件 newfile 的 内 容 。 


.4 Win32 二 进 制 文件 





Win32 中 的 文件 分 为 两 种 : 文本 文件 和 二 进 制 文件 。 如 果 在 文本 文件 中 发 现 ^Z 字符 ， 则 可 


加 民 








会 造成 程序 退出 或 者 碰 到 换行 符 转换 方面 的 问题 。 在 读 写 Win32 文件 时 ,用 户 可 使 用 binmode 
削 数 避免 上 述 问 题 。binmode 函数 负责 在 读 写 文 件 时 指定 模式 ,如 二 进 制 raw) 文件 或 文本 文 
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件 。 如 果 用 户 没有 提供 合乎 规 范 的 参数 的 话 ， 其 默认 模式 将 设 定 为 “raw”。 可 选 的 规范 包括 :raw、:crlf、: 


text、:utf8 以 及 :latinl 等 。 


格式 : 
Dinmoaqe PEILEHANDILE 
banmoae RERIIEHANDIRALDISCIPIINE 


示例 10.9 
# ThIs Script copies one binary 万 Je to another. 
# Note Its Use of Dinmoae to set the moae of the 石 1ehanalJe. 


站 站 司 交 和 天 全 二 则 全 3 攻 二 鸭 避 下 本 本 全 2 
2 GenNETTT RE 生 全 HE 人 一 
浊 SS UEOUDERIE 之 忆 届 下 全 CORE 


4 binmode( INEFIIBE ) ; 站 


马 Pinmodae ( OUTEIILE ) : 
# Pinmoae shoula be callea after open() but before any TI/O 
# 工 5 Gone on tpe 五 JehpanaJe. 

6 was 人 =aOKRTNETETERESSUEEEEEARETLOZ 4 

出 j 交 罗 必 庆 本 OU DIE 证 os 人 
】} 


8 CCSeTETNIES DR) 号 
ECS Et 人 轴 有 有 柯 辣 放 和 有 


解释 
1. 将 标量 $infile 赋值 为 .g 讶 文件 名 。 
2. 打开 文件 statsbar.gif， 以 读 方 式 打开 该 文件 ， 并 附加 给 文件 句柄 INEFILE。 
3. 以 写 方式 打开 文件 outfile.gif， 并 追加 给 文件 句柄 OUTEFILE 。 
4. 使 用 binmode 函数 ， 以 二 进 制 方式 读 取 文 件 内 容 。 
5. 使 用 binmode 国 数 ， 以 二 进 制 方式 写 和 文件 内 容 。 
6. read 国 数 每 次 读 取 1024 字 节 内 容 ， 并 将 读 取 到 的 输入 内 容 保 存 到 标量 $buffer 中 。 
7. 在 读 取 到 1024 字 节 内 容 后 ， 将 它们 发 送 至 输出 文件 。 
8. 关闭 上 述 两 个 文件 句柄 。 本 程序 能 把 一 个 二 进 制 文件 内 容 拷贝 给 另 一 个 二 进 制 文件 。 











10.1.5 打开 文件 追加 























在 以 追加 方式 打开 一 个 文件 时 ， 如 果 该 文件 不 存在 ， 则 创建 文件 ， 如 果 该 文件 已 经 存在 ， 则 人 必 


须 提 供 写 权限 。 如 果 文 件 在 在 的 话 ， 原 文件 的 内 容 将 保持 不 变 ， 程 序 将 把 输出 内 容 添加 到 原文 件 的 


末尾 。 同 样 ， 在 访问 文件 时 ， 程 序 必 须 使 用 文件 句柄 ， 而 不 是 真实 的 文件 名 。 


格式 : 


CEeEmRERILDEHEANDLIE ">> FRIDERNAMER7" ) 7 


示例 10.10 


open (APPEND， ">> temp") 
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解释 
使 用 用 户 定 义 的 文件 句柄 ， 将 输出 内 容 添 加 到 文件 temp 来 尾 。 与 使 用 shell 一 样 ， 本 行 的 重 定 
向 符 负 责 把 输出 内 容 从 默认 的 STDOUT 文件 句柄 重 定向 到 文件 temp 上 。 


AN 


示例 10.11 
(The Text FEile) 
$ _ cat nevwfile 
全 
DeJJo wor7a，again， 


meet 
#!V/usz/bin/per1 
半 OoPen (HANDILE ，">>nevwfile") |1 
die Print "Can't open nevwfile: S$SINn" 
色 Print HANDIE "JUust appendedq \"hello worldN" 
to the enad of newfile.NXn"y 


ou 

$_ cat newfile 

Deco wor1a. 

用 区 oo ALe 人 TeEE 忆 o 训 

wast appenaea "nelJJo worJIa" to the ena of mnewJe， 


解释 

1. 使 用 用 户 定义 的 文件 句柄 ， 将 输出 内 容 添加 到 文件 newfile 中 。 与 使 用 shell 时 一 样 ， 这 里 
也 通过 重 定向 符号 把 输出 内 容 从 默认 的 STDOUT 文件 句柄 重 定向 并 添加 到 文件 newfile 中 。 
如 果 无 法 打开 文件 《譬如 该 文件 关闭 了 写 权 限 ) 的 话 ， 则 通过 die 国 数 打 印 出 错 冰 息 : Can”{t 
open newfile: Permission denied.， 然 后 退出 脚本 。 

2. print 国 数 负责 将 输出 内 容 发 送 到 文件 句柄 HANDLE， 而 不 是 发 送 给 终端 屏幕 。 本 示例 将 通 
过 文件 句柄 HANDLE 将 字符 串 Just appended“hello world”to the end of newfile 添加 到 文件 
newfile 的 末尾 。 


10.1.6 select 函数 








select 国 数 能 把 默认 输出 设置 为 用 户 定 义 的 HANDLE 文件 句柄 ， 并 返回 前 面 选 定 的 文件 句柄 。 
这 样 ， 程 序 便 能 把 所 有 内 容 打印 到 指定 的 文件 句柄 中 。 


示例 10.12 


(The Script) 
人 SO 


灿 oOoPen (FILEOUT ,">nevwfile") 1 aie "Can't open newfile: SINn'"; 
权 Select(EIILEOUT) ; # SeJect tphe new 石 JepanaJe For outPut 
司 semi(PDERRY<dqaEeoceoR IEOIEECaAEEOOETEEOEEESSOE SEO 
页 亲王 忆 过) 靖 于 
4 1 1 
上 
司 Select(STDOUT) : # Sena outpPput back to the screen 


Pint "Good-bye.NXn": 直 Output 9oes to the Screen 
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解释 


1. 以 写 方式 打开 文件 newfile， 并 将 它 指派 给 文件 句柄 FILEOUT 。 
2. select 国 数 将 当前 输出 内 容 的 默认 文件 句柄 设置 为 FILEOUT。select 国 数 返回 的 内 容 是 该 国 
数 为 了 选择 FILEOUT 文件 句柄 而 关闭 的 那个 文件 句柄 名 , 也 就 是 下 面 以 读 方 式 打 开 的 文件 句柄 。 


3. 以 读 方式 打开 DB 文件 句柄 。 


4. 将 DB 中 的 每 一 行 依次 读 入 标量 $_ ， 然 后 打印 当前 选择 的 FILEOUT 句柄 的 内 容 。 请 注意 ， 


这 里 无 需 对 文件 句柄 命名 。 


5. 通过 选择 STDOUT 文件 句柄 ， 将 程序 的 剩余 输出 内 容重 定向 到 终端 屏幕 。 


10.1.7 ”使 用 flock 为 文件 加 锁 








如 要 避免 两 个 程序 同时 写 同 一 个 文件 , 用 户 可 以 先 为 该 文件 加 锁 , 然后 由 一 个 程序 单独 访问 它 ， 
并 在 使 用 完毕 后 再 对 文件 进行 解锁 。flock 函数 含有 两 个 参数 文件 句柄 , 以 及 文件 锁 操 作 。 表 10-1 


中 列举 了 所 有 的 文件 锁 操作 9 。 


表 10-1 文件 锁 操作 





操作 名 操作 具体 工作 
lock sh 1 创建 共享 锁 
lock_ex 2 创建 排他 锁 
lock nb 4 创建 非 阻塞 锁 
lock_ un 8 解除 当前 锁 











如 要 获得 共享 锁 ， 文 件 必需 能 提供 读 权 限 ， 而 在 获得 排他 锁 时 则 要 求 文件 提供 写 权 限 。 一 般 而 








言 ， 当 使 用 上 述 选项 1 和 选项 2 时， 调用 者 请 求 的 文 们 


文件 句柄 加 上 了 非 阻塞 锁 ， 则 在 请 求 带 锁 文 件 时 程序 会 立刻 抛 


将 被 锁 


住 〈 等 待 )， 直 到 解锁 为 上 上。 如 果 对 





时 错误 信息 8 。 


示例 10.13 


#1V/bin/pPer1l 


Do 


1 。 $SLOCK BEX 
2 。 $SLOCK_UN 


三 -27 
= 8: 
习 eeRacamno 旺 memesyEEOEme 本 oo 起 S 二 ie 
站 到 表意 EEne name 
chomp ($Sname=<STDIN>) ; 
站 二 seadaresss 
chomp ($adadress=<STDIN>) 


4 opPen (DB ， ">>datafile") || qie "Can't op 


名 在 非 UNIX 系统 上 ， 这 些 文件 锁 操 作 可 能 是 无 效 的 。 








人 


IN > 


@ ”如果 是 从 网 络 系统 访问 文件 的 话 ， 加 锁 操 作 就 可 能 是 无 效 的 。 
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本 fock (DB，SLOCK EX) || Qie :; # IIocKk the 五 1e 
6 Same sENT 


电 HocK(DBESEOCKEUN) 大 ae 1 
解释 
1. 本 行 通过 flock 国 数 对 文件 加 锁 ， 并 将 所 用 操作 贱 值 给 标量 。 在 创建 成 功 排他 锁 之 前 ， 本 行 
操作 将 一 直 处 于 阻塞 〈 等 待 ) 状态 。 
. 该 操作 告诉 flock 函数 何 时 对 文件 解锁 ， 以 便 其 他 人 写 该 文件 。 
. 要 求 用 户 输入 信息 ， 并 以 此 更 新 文件 。 该 信息 将 追加 到 文件 末尾 。 
. 以 追加 方式 打开 文件 句柄 。 
. flock 国 数 负责 在 文件 上 设置 一 个 排他 锁 。 
. 将 数据 追加 到 文件 末尾 。 
. 数据 追加 完毕 后 ， 对 文件 解锁 ， 使 得 其 他 人 也 能 访问 该 文件 。 


~1 小 内 上 上 hiP 


10.1.8 seek 和 tell 函数 


seek 国 数 。 负 责 以 随机 的 方式 访问 文件 。seek 函数 等 效 于 C 语言 中 的 标准 IO 函数 fgeek。seek 
国 数 允 许 用 户 在 文件 中 直接 跳 转 到 指定 内 容 所 在 的 位 置 , 而 不 是 关闭 文件 再 打开 它 。 如 果 成 功 的话 ， 
Seek 国 数 将 返回 1， 否 则 就 返回 0。 




















格式 : 
seek(FILEHANDIE，BYTEOFESET，FEILEPOSITION) ; 
seek 国 数 能 在 文件 中 设 定位 置 值 ， 其 中 文件 第 一 个 字 节 位 置 为 0。 有 具体 位 置 包括 : 
0 = 文件 开头 位 置 
1 = 文件 中 的 当前 位 置 
2 三 文件 末尾 位 置 
偏 移 量 是 从 起 点 位 置 到 文件 当前 位 置 的 字 节 数 。 其 中 正 的 偏 移 量 能 在 文件 内 向 前 移动 位 置 ; 而 
负 偏 移 量 则 用 于 在 文件 中 基于 位 置 1 或 位 置 2 向 后 移动 。 
od 命令 用 于 查看 文件 中 字符 的 存储 方式 。 该 文件 是 基于 Win32 系统 创建 的 ， 而 在 UNIX 系统 

















上 ， 这 里 的 进 纸 /换行 符 将 合并 为 一 个 字符 n。 
Sod =G db 
0000000000 S 七 e 马 也 下 马 了 Ph 马 二 闪 XiE A 
0000000020 也 已 七 七 Y 也 O O Pb NMr ANn 工 oO 
0000000040 G O 芭 臣 甩 NMr ANn 号 工 下 工 己 D 这 
0000000060 e 下 O 巷 NM ANn N O 去 m 己 已 芭 dq 
0000000100 NA“ 这 可 O 到 忆 工 O 己 总 二 汪 从 玉 
0000000120 已 这 所 了 也 V 中 C 本 二 站 
0000000134 


示例 10.14 


(The Text File: aQp) 
Steve BJenpeim 
Betty BooPp 
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WooaoE2 
SI Tance 了 ot 
Norma Corda 
Jon Demnoacn 
Karecn Cn 


msiSerioty 
# 也 xEampJIe Uszn9g the 5eek FunctIzon 
并 Pen 有 EECSnUE SEE SUNTII- 


while(S$1ine=<EH>) { # ZoopP throu9ph the whole 五 1e 
瑟 四 
} 

4 Seek(EH,0,0) ， # Start at the De9innin9 of the 五 1e 

四 while(<FH>) 1{ 

6 7 

】} 

USGwE 

二 二 成 三 二 

6 Steve BJenpezI 

1. 将 db 文件 指派 给 文件 句柄 FEH， 并 以 读 方式 打开 该 文件 。 

2. 循环 遍历 文件 内 容 ， 依 次 将 文件 中 的 每 一 行 赋 值 给 标量 $line。 

3. 如 果 $line 中 售 有 Lori， 则 执行 print 语句 。 

4. Seek 国 数 将 把 文件 指针 指向 文件 开头 《位 置 0), 并 从 字 节 0〈 即 第 一 个 字 节 ) 开始 读 取 文 件 内 
容 。 如 果 这 里 不 通过 seek 函数 回 到 文件 开头 的 话 , 程序 就 必须 先 用 close 国 数 显 式 地 关闭 文件 
句柄 。 

5. 从 文件 顶部 开始 进入 循环 。 从 文件 句柄 中 读 取 文件 的 第 一 行内 容 , 并 赋值 给 标量 $_， 后 者 是 
默认 的 行 存储 变量 。 


6. 如 果 在 $_ 中 找到 模式 Steve 的 话 ， 打 印 该 行内 容 。 


示例 10.15 


(The Text File: aQp) 
Stevre BJIenpeim 
Betty BooPp 

WOaESOD 2 
相生 万 人 ED 起 

Weormas 本 ee 

Jon Demoacp 

Karen 五 vIcp 


The Script) 


( 
由 Se CamEESDeDEOaEESORS SN 
2 while(<FH>){ 
忆 SENSEiS 人 # This Is the Jast 1ine that 
# mwiI7 pe Processeda 
】} 
4 Seek(EH,0,1) or die: # Seekin9 Erom the current PositIzoDn 


号 S$1Line=<FH>， 井 Zhiz5s Is Where the reaaQ Starts ac9azmn 
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6 机 全 人 亿 二 人 汪 交 
哟 EuioSsSRHR 


mseuna 
JUon Dezmoacn 


通过 文件 句柄 FH 以 读 方式 打开 文件 db。 

进入 while 循环 。 从 文件 中 读 取 一 行内 容 ， 并 赋值 给 $_。 

如 果 发 现 含 有 模式 Norma 的 行 ，last 函数 将 导致 程序 退出 循环 。 

seek 国 数 将 把 文件 指针 重新 定位 到 字 节 位 置 0。 这 是 在 该 文件 中 执行 下 一 次 读 操作 的 位 置 ， 

位 置 1;， 即 含 有 Norma 的 行 之 后 一 行 。 该 字 节 位 置 既 可 以 是 正 值 ， 也 可 以 是 负 值 。 

5. 从 文件 db 中 读 取 一 行内 容 ， 并 赋值 给 标量 $line。 这 里 读 到 的 行 是 在 last 函数 退出 循环 之 后 
所 读 取 的 。 

6. 打印 标量 $line 的 值 。 


示例 10.16 


二 本 SEE 


( 

6 
解释 
外 

色 

引 

4 


下 SemiooeEcde en oREEnEOaEeSSOES SN 
受 seek (EH,-13,2) or die: 
司 while(<EH>){ 
4 En 
) 
OUEUE) 
4 Karen 五 vIcPp 
解释 
1. 通过 文件 句柄 FH 以 读 方式 打开 文件 dp。 
2. seek 函数 将 从 文件 末尾 《位置 2) 开始 向 后 退 13 个 字 节 。 这 里 的 换行 标志 〈\rm) 虽然 不 可 


见 ， 但 也 占据 了 本 行 最 后 两 个 字 节 (Windows )。 

. 进入 while 循环 ， 依 次 从 文件 句柄 中 读 取 每 一 行内 容 。 

4. 打印 每 一 行内 容 。 从 文件 未 尾 后 退 13 个 字 节 ， 打 印 Karen Evich。 请 留意 od -e 命令 的 输出 
内 容 ， 即 从 文件 未 尾 向 后 数 13 个 字符 。 


LD 


0000000000 岂 蕊 已 习 马 也 焉 马 了 所 马 王 mn 
0000000020 也 e 已 已 Y 也 O O NE 工 O 下 卫 
0000000040 G O 四 二 PAY 包 至 列 己 加 区 
0000000060 e 下 O EN N O 到 己 必 O 王 Q 
0000000100 IN 可 O 加 D e 工 O 己 GE | 开 
0000000120 己 号 所 卫 瑟 TV 下 C NENI 

0000000134 


tell 图 数 。tell 函数 能 返回 文件 中 当前 字 节 的 位 置 ， 并 能 与 seek 国 数 配合 使 用 ， 以 便 在 文件 中 
移动 到 该 位 置 。 如 果 省 略 了 FILEHANDLE 参数 的 话 ，tell 函数 将 返回 文件 上 一 次 读 取 的 位 置 。 




















格式 : 
七 e1L 工 (ERIELBEHANDIBE) 
七 e1L1 


232 第 10 章 


示例 10.17 


(The Text FEile: apb) 
Stevre BJIenpeim 
Betty BooPp 
TEL 
人 

Norma Cora 

Jon Deroacn 

Karen 五 vIcn 





WeSErenetny 
SA 
井 瑟 KampJe UsIzn9g tnhe teJJ Fonectzon 


也 Ge IOTELS mLEEEORETNE SN 

包 while ($1ine=<FH>) 1{ # 工 DoP throu9h tphe mwhole 五 1e 
ERamisl iT 

网 间作 二 全 人 TO 汪 区 人 国 ( 

4 S$curLentPos=tel11: 

号 TITE 本 EN 

6 EN 


k 
】} 
seek (FH,S$ScurrentpPos,0) : # Start at the be9innin9 of the 万 1e 
8 Qlines=(<FH>) 
9 证 下 了 站 本 ES 


OUE 

号 Thpe Current DPyte PosIitIion 1I5 40. 
6 SEC 

8 [局 二 和 记 TEKE 贡 所 7 


Norma Cora 
Jon Demoacn 
Karen 五 vIcp 


刷 


.将 db 文件 指定 给 文件 句柄 FEH， 并 以 读 方 式 打开 该 文件 。 

. 循环 遍历 文件 内 容 ， 依 次 将 文件 中 的 每 一 行 赋 值 给 标量 $line。 

. 如 果 $line 中 含有 Lori， 则 进入 让 代码 块 。 

. 调用 tell 函数 , 返回 文件 中 的 当前 字符 位 置 〈 从 字 节 0 开始 计算 )。 该 位 置 代表 了 在 处 理 完 
含有 Lori 的 行 之 后 ， 再 读 到 的 行 中 第 一 个 字符 的 位 置 。 

. 字 节 值 保 存在 标量 $currentpos 中 。 打 印 它 的 值 。 字 节 位 置 40 代表 了 以 Sir Lancelot 开头 的 
行 的 位 置 。 

6. 打印 含有 正则 表达 式 Lori 的 行 。 

. Seek 国 数 将 FH 文件 句柄 的 文件 指针 定位 到 指定 的 字 节 偏 移 量 Scurrentpos 处 , 即 定位 到 文 
件 开 头 的 第 40 个 字 节 处 。 如 果 这 里 不 用 seek 国 数 的 话 ， 如 需 从 文件 顶部 开始 读 取 ， 就 必须 
先 关 闭 文件 句柄 。 

. 读 取 从 偏 移 量 40 开始 的 行 ， 并 将 其 内 容 保存 到 数组 @lines 中 。 

9. 从 偏 移 量 40 开始 ， 打 印 数组 内 容 。 


人 D 一 








(LA 


一 1 


Co 
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10.1.9 打开 文件 读 写 


表 10-2 ” 读 写 操作 





符号 目的 
二 < 先 读 ， 后 写 
+> 先 写 ， 后 读 
+>> 先 追 加 内 容 ， 然 后 读 





示例 10.18 
ES 


二 SEE DIGGEA5I 
OECD 





也 coPen(EH， +<vIisitor countc) 

die "Can't open visitor_count: S$SINn" ; 
2 S$count=<PFH>: # Reaa aa Dumpber Erom Erom the 方 1e 
呈 ES 
4 SEO 
本 Seek(EFH，0，0) |1| qie; # Seek back to the top of the 五 1e 
6 IEERERHESESUE # Write the new Dumber to the 三 Je 
风 ESeERR 
(eu SC 已 
(ES 1 
5 $count 
UsecnadenngeEESoREEm yy countem.P1LI visitor_count 
1 Eue 


解释 

1. 以 先 读 后 写 的 方式 打开 文件 visitor_count。 读 写 操作 符 及 其 含义 请 参见 表 10.2。 如 果 文 件 不 
存在 或 不 可 读 的 话 ， 则 通过 die 函数 退出 脚本 ， 并 打印 错误 信息 。 
2. 从 文件 visitor_coun 中 读 取 一 行内 容 。 当 脚本 第 一 次 执行 时 ， 会 从 visitor_coun 文件 中 读 到 
数字 1， 并 保存 至 标量 $count。 

. 打印 $count 的 值 。 

将 标量 $count 的 值 递 增 1 。 

Seek 国 数 将 文件 指针 移动 到 文件 的 开头 位 置 。 

将 新 的 $count 变量 值 写 回 visitor_count 文件 。 脚 本 每 次 执行 时 ， 都 会 用 新 的 $count 值 覆 盖 
文件 中 原 有 的 数字 。 

7. 关闭 该 文件 。 


示例 10.19 


人 ESeeniety 
要 EEE 
# Open for writing9 石 rst then readain9 
TAN 

玫 opPen (FEH， "+>joker") |1| qie:; 





人 nn 上 











交 
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受 Print EFH "This 1Line is written to Joker.N\n" : 

本 Seek(EH,0,0) : 六 EDESTOEDO SF 站 人 全 汪 方 下 二 

4 光 二 是 本 本 EPE 

与 1 站 RES OO 全 的 万 二 三 

】} 
GEBE 
本 6 O 靖 亲 司 局 We 人 seoerei 同 Je se 


( 
] 


惟 上 


. 首先 以 读 方式 打开 文件 句柄 FH。 也 就 是 说 创建 文件 joker， 或 者 在 该 文件 已 存在 时 截取 它 。 
请 读者 注意 不 要 混 请 +< 和 +>。 

. 通过 文件 句柄 FH， 将 输出 内 容 发 送 到 joker 文件 中 。 

. Seek 畏 数 将 文件 指针 移动 到 文件 开头 位 置 。 

.进入 while 循环 ， 通 过 文件 句柄 从 文件 joker 中 读 取 一 行内 容 ， 并 保存 到 标量 $_ 中。 

在 读 取 完 毕 后 打印 每 一 行 ($_) 内 容 ， 直 到 文件 结束 。 








10.1.10 打开 管道 


在 使 用 管道 时 ， 用 户 可 以 创建 从 一 个 程序 到 另 一 个 程序 的 数据 连接 。 位 于 管道 左 侧 的 程序 会 把 











其 输 昌 





时 内容 发 送 到 临时 的 内 核 缓冲 区 中 ， 即 写 入 管道 。 而 位 于 管道 另 一 侧 的 用 户 程序 则 可 从 上 述 组 








冲 区 中 获取 输入 内 容 。 下 面 是 一 个 典型 的 UNIX 管道 〈 如 图 10-1 所 示 ); 


W 




















UNIX 命令 系统 命令 


console Feb 14 20:25(:0) 
conaole Feb 14 20:25(:0) 
console Feb 14 20:25(:0) 


核心 缓冲 区 





图 10-1 UNIX 管道 示例 


直下 大 必 二 工 





下 面 则 是 一 个 MS-DOS 管道 : 


Q 











ir /VB | more 


上 述 两 行 命令 的 意思 都 是 将 who 命令 执行 结果 发 送 给 we 命令 。 首 先 由 who 命令 将 输出 内 容 发 
送 给 管道 ， 即 写 和 人 管道。 然后 ， 由 we 命令 从 管道 中 读 取 其 输入 ， 即 从 管道 读 〈 如 果 we 命令 不 是 
管道 的 读 取 者 ， 它 将 忽略 管道 中 的 内 容 )。 最 后 把 输出 内 容 发 送 到 STDOUT， 即 终端 屏幕 。 本 命令 
能 够 打印 出 登录 系统 的 人 数 。 如 果 Perl 脚本 位 于 管道 堪 侧 的 话 ， 它 就 是 管道 写 人 方 ， 将 会 把 输出 内 
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容 发 送 到 缓冲 区 中 ; 而 倘若 Perl 脚本 位 于 管道 右 侧 的 话 ， 它 则 会 从 缓冲 区 中 读 取 输 入 内 容 。 请 读者 
牢记 一 点 : 连接 到 Perl 脚本 的 进程 实际 上 是 一 个 操作 系统 命令 。 如 果 Perl 程序 是 运行 在 UNIX 或 
Linux 操作 系统 上 的 话 ， 其 命令 格式 就 有 可 能 和 Windows 系统 命令 格式 有 所 不 同 。 因 此 ， 带 有 管道 
操作 的 Perl 脚本 是 不 能 直接 在 不 同系 统 间 互相 移植 的 。 

输出 过 着 器 。 当 使 用 open 国 数 创 建文 件 句柄 时 ， 用 户 可 以 为 它 打开 输出 过 让 器 (filter)， 以 便 
将 输出 内 容 传送 给 系统 命令 〈 参 见 图 10-2)。 该 命令 前 面 带 有 一 个 管道 符号 〈|)， 能 在 前 面 示例 中 
代替 文件 名 参数 。 如 此 便 可 把 输出 内 容重 定向 到 该 命令 处 ， 然 后 发 送 给 STDOUT。 


























格式 : 


open (FILEHRANDILE,，| COMMAND) ， 


示例 10.20 


Eee 

#!1V/Ppin/VpPez1l 

# Scriptname: outIter (UNTIX) 

OPen (MYPIEE，"| wc -w") : 
多 PIint MYPIPE "apPles Pears Peaches'"': 
悦 Close (MYPIPE) ， 


use 


可 
人 和 SS| 

1. 使 用 用 户 定义 的 MYPIPE 文件 句柄 , 将 输出 内 容 从 Perl 脚本 重 定向 到 UNIX 命令 we -w 处 ， 
后 者 用 于 计算 字符 串 中 的 字符 数目 。 

2. print 函数 将 把 字符 串 apples pears peaches 转发 给 带 有 输出 过 滤器 的 MYPIPE 文件 句柄 ; 后 
者 负责 将 字符 串 传送 给 we 命令 。 由 于 该 字符 串 中 含有 三 个 单词 ， 因 此 本 行将 把 数字 3 打印 
到 屏幕 上 。 

3. 在 使 用 完 文件 句 栖 后 ， 应 当 通过 close 函数 关闭 它 。 这 样 才能 保证 在 退出 脚本 之 前 完成 所 有 
的 命令 。 如 果 不 关闭 文件 句柄 的 话 ， 程 序 就 可 能 不 会 正确 地 清除 输出 内 容 。 





STDOUT 


S$ perl outfilter 
了 


apples pears peaches 








图 10-2 Perl 输出 过 着 器 
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ES ET 


(The Scipt) 


耿 oemEOCRR IE 二 zj 是 
翌 CSICEEENO 
池 CieosemEOOr # IE you aonr't close FoOO，the output may be aeJayea 
(GEREN) 
到 万 瓦工 荆 O 人 万 五 民 
解释 


1 


2 


. 使 用 用 户 定义 的 FOO 文件 句柄 ， 将 Perl 脚本 输出 发 送 给 UNIX 命令 {。 后 者 能 将 所 有 小 写 
字母 转换 为 大 写 形 式 。 
. Print 函数 能 将 字符 串 hello there 转发 给 带 有 输出 过 让 器 的 FOO 文件 句柄 ， 也 就 是 把 该 字符 
串 发 送 给 tf 命令。 在 过 着 之 后 , 程序 会 把 字符 串 发 送 到 屏幕 上 。 此 时 , 字符 串 中 所 有 的 字符 
都 会 转换 为 大 写 形式 。 





示例 10.22 


(The Text File) 


QQNOm 必 wwNFRTn 


cat emP .names 
Steve BJemnpezimm 
Betty BooPp 

工 9OF ChevrsKky 
Norma Cora 

Jon Dezoacp 
KareDn 五 vIcP 


人 Eee 


久 
3 


4 


人 全 下 由 

OpemROOnIESCz RE 上 Ez TS 三 ZE) 于 古 包 六 全 总 基 C 让 让 刀 志 在 要 二 避让 会 天 
open (DB， "emp .names") ， # OPen DB for Freaain9 

winaaretseE>: EPEEIEEEOOE 

close EOO: 


加 
人 民 王 作 辣 噩 OOR 
UON TDPTOAC 万 
KAREN 五 VTC 万 
NORNMA CORD 
GT 有 VPR BNPDRETM 


. 通过 用 户 定义 的 文件 句柄 ， 将 输出 内 容重 定向 到 UNIX 命令 sort， 然 后 将 sort 命令 的 输出 内 
容 转发 给 妇 命 令 。 其 中 ，sort 十 1 命令 负责 根据 第 2 个 字段 的 大 小 进行 排序 ， 各 字段 由 空格 
隔 开 。UNIX 命令 人 女 则 负责 将 小 写字 母 转 换 为 大 写字 母 。 

. 使 用 open 国 数 创 建文 件 句 柄 DB， 并 将 其 附加 到 UNIX 文件 emp.names 上 。 

. While 循环 表达 式 中 含有 文件 句柄 DB,， 该 句柄 位 于 角 括 号 之 间 , 表示 读 取 该 文件 内 容 。 循 环 
将 从 emp.names 文件 中 读 取 第 一 行内 容 , 并 保存 到 标量 $_ 中 , 然后 通过 输出 过 着 器 FOO 转 
发 输入 行内 容 ， 并 打印 到 屏幕 上 。 在 到 达 文 件 末 尾 之 前 ， 循 环 将 不 断 重 复 执 行 。 请 注意 ， 当 
按照 第 二 个 字段 对 文件 进行 排序 时 ， 其 第 一 列 的 数字 将 不 参与 排序 。 

.close 国 数 关 闭 文件 句柄 EOO 。 





将 过 着 器 输出 转发 至 文件 。 在 上 述 示例 中 ， 怎 样 才能 把 过 让 器 的 输出 内 容 转 发 到 文件 ， 而 不 
是 STDOUT 呢 ? 用 户 不 能 把 输出 内 容 同时 既 发 给 过 滤器 又 发 给 文件 句柄 ,但 可 以 把 STDOUT 重 定 
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向 到 另 一 个 文件 句柄 去 。 此 后 ,如 果 想 把 STDOUT 再 重 定向 回 屏幕 的 话 ， 只 需 首先 保存 该 句柄 ， 然 
后 使 用 下 面 这 个 命令 重新 打开 STDOUT 文件 句柄 即 可 。 





Ge (SIDCUT ;nm :> /aev/tEEY 7) 
示例 10.23 

人 

# PEFo9ram Lo redirect 5S7TDOUT From 五 1ter to a UNIX 万 Je 
业 中 荐 三 二 性 # FIUsnh Puffers 
2 Stmpfiile = "temp7"; 
二 SEEDRBRROESIESERIIEEOTE SAEanEEOEENDOSESD SOY 

# Open DB for Freaain9 
4 OPen (SAVED ，">&STDOUT") || die "$INn"; # Savre staout 
号 ON 
6 enmeORT RISE YESRNEC # OPen outpPut 五 1 上 er 
芭 while(<DB>)T{ 
8 ERE SGOENE # OutpPut is rst sortea ana then sent to temp. 
8 } 
二 和 ESeSORT7 
WEoPem(0STIDOUT AR >&SRAVEDO IE E 旺 人 am 站 症 人 Di 
12 print "Here we are Printing to the screen again.NXn"; 
井 ZIPIs Output will 9o to the Screen 
二 二 eame Eee oa) 
解释 

1. 变量 $1 保证 在 每 次 执行 完 print 语句 后 自动 清空 输出 缓冲 区 ( 详 见 附录 和 A 中 的 autoflush 模块 )。 
2. 将 标量 Stempfile 赋值 为 temp， 即 输出 文件 名 。 
3. 以 读 方 式 打开 UNIX 中 的 data 文件 ， 并 附加 给 文件 句柄 DB。 
4. 将 SIDOUT 内 容 赋值 并 转 存 到 另 一 个 文件 句柄 SAVED 中 。 本 行将 在 后 台 操 作 相应 的 文件 描述 符 。 
5. 以 读 方式 打开 文件 ttmp， 并 赋值 给 文件 描述 符 ， 其 默认 值 一 般 是 STDOUT， 即 终端 屏幕 。 


\D oo = Gy 





本 行将 先 关 闭 SITDOUT 文件 描述 符 ， 然 后 再 为 ttmp 重新 打开 。 
. 将 输出 过 关 器 指派 给 SORT。 本 行将 把 Perl 脚本 输出 内 容 转发 给 UNIX 的 sort 实用 程序 。 


. 以 读 方式 打开 文件 句柄 DB 。 
在 完成 排序 后 ， 将 输出 文件 句柄 发 送 给 temp 文件 。 
. 关闭 循环 。 


10. 关闭 输出 过 着 器 。 

11. 打开 标准 输出 文件 句柄 ， 并 将 其 输出 目的 地 重新 设置 为 终端 屏幕 。 

12. 因为 上 面 已 经 将 STDOUT 重新 指定 到 屏幕 ， 因 此 这 里 会 把 该 行内 容 打 印 到 屏幕 上 。 
13. 将 文件 temp 改名 为 data， 并 用 temp 中 的 内 容 覆盖 写 和 人 data 文件 。 


输入 过 站 器 。 用 户 在 通过 open 函数 创建 文件 句柄 时 ， 还 可 打开 输入 过 让 器 ， 以 便 将 输入 内 容 
转发 给 Perl 脚本 。 此 时 ， 命 令 将 以 管道 符号 结尾 。 


格式 : 





open (FILEHANDIE， COMMAND 1 ) : 


示例 10.24 


要 是 人 BE 
# ScrIzptname: ID 万 1 上 er 
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肌 OPen (INPIPE，"date |") : 枯 古 内 区 57S20007 风 人 天 
受 S$today = <INPIPE> ":; 
3 ESqas 
4 GCCcSe (INPIEE)7 
OUWE 动 
SC 
解释 


1. 使 用 用 户 定 义 的 文件 句柄 INPIPE， 把 来 自 输 入 过 让 器 的 内 容重 定向 为 Perl 程序 的 输入 。 本 
行将 通过 文件 句柄 INPIPE 把 UNIX date 命令 的 输出 内 容 用 作 输 入 源 。 对 于 Windows 2000/ 
NT 用 户 而 言 ， 该 命令 则 应 当 写 作 date /T。 

2. 标量 $today 从 文件 句柄 INPIPE 中 接收 输入 内 容 。 即 Perl 程序 从 文件 句柄 INPIPE 中 读 取 输入 。 

3. 将 UNIX date 命令 的 结果 赋值 给 标量 $today， 然 后 打印 甚 值 。 

4. 在 用 完 文件 句柄 后 ， 应 当 使 用 close 函数 关闭 它 。 这 样 才能 保证 在 退出 脚本 之 前 完成 所 有 命 
令 。 如 有 果 不 关 闭 文件 句柄 的 话 ， 程 序 就 可 能 不 会 正确 地 清除 输出 。 


STDOUT 


UNIX 命令 


writer reader 


Sun Feb 18 14:12:44 PST 2007 


INPIPE 





图 10-3 ”Perl 输入 过 滤器 





示例 10.25 


meESeenoty 

由 OPemEEINDITA TOE ETmameapezlx JE 三 背 2Dm 扎 避 | 必 用 让 川 
die "Couldn't execute findlNn" ; 

2 while( $filename = <EINDIT> )1{ 

3 PEint S$fiilenamey 


】 


人 GBSiERE 

马 ERI 儿 
0 
更/ 必 志 3 去 
./Per 了 4 
国富 
DERTNG 
./PerI7 
更 ETSD5 
国光 疝 e 下 本 二 六 交 
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解释 
1. 将 UNIX 中 find 命令 的 输出 内 容重 定向 给 输入 文件 句柄 FINDIT 。 该 文件 句柄 位 于 角 括 号 中 ， 
表明 程序 的 标准 输入 将 来 自 FINDIT 文件 句柄 , 而 非 STDIN 。 如 果 打 开 文 件 失 败 的 话 ,， 则 通 
过 die 运算 符 打 印信 息 Couldn 't execute find ! ， 然 后 退出 脚本 。 
2. 将 UNIX find 命令 的 输出 内 容 传 送 给 文件 句柄 FINDIT。 在 每 一 次 重复 执行 while 循环 时 ,就 
将 来 自 文件 句柄 FINDIT 的 一 行内 容 赋 值 给 标量 型 变量 $filename。 
3. print 函数 负责 将 标量 $filename 的 值 打印 到 屏幕 。 


示例 10.26 


SETnoty 
icio oo 二 oOS 0 全 写 攻 20 帮 二 区 
世 cpenmrSsTrIDIRARROICNPezIo NEEGEe 
2 Qfilelist = <LISTDIR>， 
3 foreach  S$file ( flelist )1{ 
ETE She 
】 
oOuEsway) 
GE 
VoJune SerIial Numnper II5 2237-1304A 


人 


9 <DTR> 
加 月 大 忆 > 和 
加 本 下 有 537 6 
轴 本 全 间 有人 到 <DTR> 思 了 
国 本 全 昂 2 全 动 了 同 而 民 之 天 于 所 
加 是 99 四 RS5 <DTR> 五 上 mm 了 
0 <DTR> e9 
9 < DTR> SIte 
了 FIJIelfs) ORG 六 SS 
全 出 | 488,873，984 bytes Free 


[生生 后 浊 
1. 将 Windows 中 dir 命令 的 输出 内 容重 定向 给 输入 文件 句柄 LISTDIR 。 访 文件 句 栖 位 于 角 括 号 
中 ,表明 程序 的 标准 输入 将 来 自 dir 文件 , 而 非 STDIN。 如 果 文 件 打开 失败 的 话 , 则 通过 die 
运算 符 打印 错误 信息 ， 并 退出 脚本 。 
2. 将 Windows 中 dir 命令 的 输出 内 容 传送 给 文件 句柄 LISTDIR 。 本 行将 从 文件 句柄 中 读 取 输 入 
内 容 ， 并 将 它们 赋值 给 数组 @filelist。 该 数组 的 每 一 个 元 素 将 各 含有 一 行内 容 。 
3. foreach 循环 反复 遍历 数组 内 容 ， 每 次 一 行 地 打印 各 行内 容 ， 直 到 数组 未 尾 。 


10.2 ”参数 传递 


10.2.1 ARGYV 数组 


怎样 才能 把 命令 行 参数 传递 给 Perl 脚本 呢 ? 如 果 读 者 接触 过 C、awk 或 C shell 的 话 ， 一 定 会 
想 :“ 这 个 我 懂 ! ”。 不 过 请 广 意 ，Perl 的 实现 和 它们 有 一 些 细微 的 差别 。 因 此 ， 请 读者 耐心 阅读 本 
节 下 面 的 内 容 。 

Perl 会 把 命令 行 参 数 保存 到 特殊 数组 ARGYV 中 ,该 数组 的 下 标 从 0 开始 。 不 过 和 C 语言 或 awk 
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命令 不 同 的 是 , ATGV[0] 在 这 里 并 不 代表 程序 名 , 而 是 代表 着 脚本 后 面 的 第 一 个 词 。 与 shell 脚本 一 
样 ， 特 殊 变 量 $0 负责 保存 Perl 脚本 名 。 和 C shell 脚本 不 同 ， 变 量 $S#ARGYV 在 Perl 中 负责 保存 数 
组 最 后 一 个 元 素 的 编号 ， 而 不 是 数组 元 素数 目 。 因 此 ， 命 令 行 参数 的 总 数 是 S#ARGV+1。$#fARGYV 
变量 的 初始 值 为 -1。 

当 文 件 句柄 ARGYV 位 于 角 括 号 中 时 〈 即 <ARGV> ),Perl 便 会 把 命令 行 参数 当 作文 件 名 来 对 待 。 此 时 
就 会 把 文件 名 赋值 给 ARGV， 并 立刻 将 数组 @ARGYV 左 移 一 位 ， 这 样 也 就 缩短 了 @ARGYV 数组 的 长 度 。 
在 上 述 过 程 中 ，Perl 会 把 移出 数组 @ARGY 的 元 素 值 赋值 给 变量 SARGV。 因 此 ，$ARGY 含 
有 当前 选择 的 文件 句柄 名 。 























标量 数组 头 文件 


脚本 名 称 最 后 一 个 元 素 的 下 标 数值 


图 10-4 有 关 ARGYV 的 内 容 


示例 10.27 


ES 
MO 
下 die "$0 redquires an argument .nn" if 8$#RRGV < 0 :; 
# Must Phave at Jeast one ar9umen 

















多 Print "QQRRGVAn": # _ Print al ar9uments 
悦 Print "SRARGV[0]N\n" 7 # _ Print 五 rst ar9umentt 
4 EGFRSRARGVTIIJNDY # Print secona ar9ument 
硬 Print "There are "/ 8$#RARGV + 1," arguments .ANn"n; 
# 5#ARGV Is the Jast Subscript 

6 Pint "$RARGV[S$#RARGV] is the last one.NXn" # Print Iast ar9 
人 ES 

SS Perl1L.arg 
2 Per .ar9g Fre9uires an arx9umnent. 

SPerleaz 可 上 上 二 二 上 2 下 E3 民 和 4E5 
受 大 5 
浊 于 了 
4 呈 
本 TPpere are 5 ar9uments . 
6 SEE 

解释 


1. 如 果 没 有 收 到 任何 命令 行 参数 , 则 通过 die 国 数 退 出 脚本 。 特 殊 变 量 8$0 负责 保存 Perl 脚本 
的 名 称 ， 即 Perl.arg。 

. 打印 数组 @ARGYV 的 内 容 。 

. 打印 第 一 个 参数 值 ， 它 不 是 脚本 名 。 

， 0 

. $#ARGYV 变量 含有 最 后 一 个 参数 的 下 标 。 由 于 下 标 是 从 0 开始 的 ， 因 此 $#ARGV+1 表示 参 
数 的 总 数 ， 而 非 脚本 名 的 长 度 。 

6. 由 于 $#ARGY 变量 含有 最 后 一 个 参数 的 下 标 , 因此 $ARGV[$#ARGV] 是 数组 @ARGYV 的 最 

后 全 企 瑟 交合。 


惟 上 
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10.2.2 ARGYV 与 Null 文件 句柄 

















当 ARGYVY 数组 出 现在 循环 表达 式 中, 并 位 于 角 括 号 之 间 时 , 其 每 个 元 素 都 会 当 作 是 一 个 特殊 的 


文件 句柄 。Perl 将 会 借助 数组 的 移动 操作 把 数组 中 的 每 一 个 元 素 分 别 保存 到 变量 SARGV 中 。 一 组 
空 的 角 括号 又 称 作 Null 文件 句柄 。 这 时 ，Perl 会 隐 式 地 将 ARGYV 数组 中 的 每 一 个 元 素 当 作文 件 名 
柄 。 当 使 用 输入 运算 符 <> 时 ， 不 论 是 否 出 现 关键 字 ARGV，Perl 都 会 逐一 遍历 并 移动 ARGYV 数组 
中 的 各 个 参数 , 并 按 顺序 依次 处 理 这 些 参数 。 在 打开 ARGYV 文件 句柄 后 , 每 次 只 能 移出 其 中 一 个 参 








数 。 因 此 ， 如 果 以 后 还 要 用 到 这 些 参数 的 话 ， 必 须 将 它们 转 存 到 其 他 数组 中 去 。 


示例 10.28 


(The Text Files) 

Sa 七 是 上 开 

FeJI1o there， Nice aay. 
SECateE2 

02eyoDsEee ao Enat2 


SeatE3 
人 
NDS SEE 


ED 
下 while( <RARGV> ) {Print ;} 
色 Print "The value of \S$SARGV[0] is S$ARGV[0] .Nn"7 


oOuEswey) 

S$ argv.test fl f2 f3 
FeJJIo there， Nice aay. 
SS 
IE 
DSSEDEUEeDC 

Zhe alue oF 5ARGV/0J) Is . 


解释 


1. 打印 命令 行 中 指定 的 所 有 文件 内 容 。 执 行 完毕 后 , 所 有 参数 都 将 移出 数组 。 本 行将 依次 读 取 


全 1、 人 包 和 名 的 内 容 ， 并 打印 出 来 。 
2. 由 于 所 有 的 参数 均 已 移 走 ， 因 此 $ARGV[0] 不 含 任何 值 ， 本 行将 不 打印 任何 内 容 。 


> 
while(<ARGV>) { 


RE 





示例 10.29 





(ITIhe Text ERile: emp.Pnames) 
Steve BJenpezDm 
Betty BooPp 
We 
Norma Cora 
on Depoacpn 
Karen 五 viIcph 
人 mssccnitiy 
人 SEE 已 辣 已 下 
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# _ Program WII bephave JIKke 9rep -- WIIJJI search for aa Pattern 
# In any number of 五 1es. 
也 if ( ($#RRGV < 1 ) {dqie "Usage: $0 pattern 于 Lename(s) N\n"7} 
Spattern = ShiEt': 
悦 while($1Line=<RARGV>) { 
Print "SARGV: $.: $line" if $1ine =~ /SPattern/i'; 
close (ARGV) if eof; 


D 


(GuEGIE) 
9 工 研 二 丰 
也 Usage>” 9rap.DpJ pattern 五 Jenames(s) 
$ grab.P1LI 'norma' db 
2 ORG 本 CO 
$ grab.P1L 'Sir Lancelot' db 
CEIS 
SaDEPIL SELLEGD 
4 2 
$ grab.P1L Steve dr 
5 aatepook.master:12: vonhpann ErIicKkson:SterensvIiJIIe Montana 
OSI SEE 
Gap:1: Steve BJIennhpezizm 


1. 如 有 果 没 有 接收 到 任何 命令 行 参 数 ， 则 通过 die 函数 退出 脚本 。 

2. 从 数组 @ARGYVY 中 移出 第 一 个 参数 。 它 含有 所 要 查找 的 模式 。 

3. 由 于 已 经 把 第 一 个 参数 从 数组 @ARGYV 中 移出 并 赋值 给 了 变量 $pattern， 因 此 从 命令 行 得 到 
的 其 他 参数 将 依次 贱 值 给 ARGY 文件 句柄 。 进 入 while 循环 ， 读 取 一 行内 容 , 并 将 它 赋 值 给 
SiFiezR 归于 

4. 标量 $SARGYV 中 含有 当前 要 处 理 的 文件 名 。 变 量 $. 中 含有 当前 行 号 。 如 果 $pattern 变量 值 匹 
配 成 功 的话 ， 就 打印 找到 的 文件 名 、 模 式 匹 配 的 行 号 、 以 及 该 行 本 身 的 内 容 。 模 式 里 位 于 最 
后 一 个 定 界 符 右 侧 的 站 字符 负责 关闭 大 小 写 敏 感性 。 

5. 当 到 达 待 处 理 文 件 的 未 尾 CEOF) 时 , 关 团 ARGYV 文件 句柄 。 这 样 做 即 可 重 置 变量 $.。 如 
果 这 里 没有 显 式 地 关闭 ARGV， 变 量 $. 就 会 不 断 递 增 下 去 ， 并 在 读 取 下 一 个 文件 时 仍 无 法 回 到 1 


示例 10.30 


人 ES 
unless ( $#ARGV == ENIEREUSSSE SO 生产 二 SUmE 人 ES 人 让 
SSm(EANSSNDRARLEEcVWESESSwWOD EECaTDEEODETRESIL 
S$Susername=sShiftt(GARGV) 
while( S$Spwline = <PASSNWD>) { 
unless ( S$Spwline =~ /$username:/){ die "S$username is not 
SEE 


CEAOOEISS 书 


} 
6 Close PASSWD; 


更 SemoccEPONDWNS LIEODERLIESOEESREDE 3 
8 while($logged = <LOGGEDON> ) { 
if ( S$loggedqd =”~ /S$usezrname/){t S$Slogged cn = 1 last7} 


} 
9 close LOGGEDON:; 

Qie "Susername is not 1cgged on.NXn" if ! $1cogged ony; 

PEint "S$username is logged on and running these Processes.NXn"i 
人 人 本 三 二 刘 有 有 人 EC 
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while($1Line=<PROC>) { 
Tint "Sinen" if Sine =~ /Susername:/， 
) 
| 可 CieseEROB7 
站 下 区 
SEN 


(GEGUE) 
$_ checkon 
孔 Usage” checkon <arcument>” at Checkon JI7ne 6. 
$_ checkon joe 
号 Uoe Is not a user here。 
$_ checkon elLl1lie 
8 eTJIze Is 1o99ea on ana runnzn9 these Processes: 
SEE 2 大 0 二 


本 Te 兽 古人 天性 有 7 和 车 全 克 且 的 记 交 克 E 克 
eJIJIzie 了 了 73 人 有 2 DEGREE20S595 SR CGON37I5OYRRES 
elJJIzie 了 164 四 而 以 天 攻 六 0 人 人 0 

< Some of the output was cut to Save Space > 
ER 0 0 大 可 53 0 
Eee 本 有 5 是 2 本 2 局 3 ODS 
让 可 是 EC 省 5 2 0:00 /bin/per1l checkon eJII11ie 
EEC OA 局 二 2 0:00 9rep ^el1Iie 
全 可 是 下 全 证 人 2 人 
ER 


解释 
1. 该 脚本 只 接受 一 个 参数 。 如 果 ARGY 为 空 〈 即 命令 行 没有 提供 任何 参数 ) 的 话 ， 就 执行 die 
国 数 退出 脚本 ， 并 产生 一 个 出 错 消 息 《〈 请 记 住 ，$#ARGYV 负责 保存 最 后 一 个 参数 的 编号 ; @ 
ARGYV[0] 是 第 一 个 参数 ， 而 不 是 脚本 名 称 ; 脚本 名 保存 在 变量 8$0 中 )。 如 果 用 户 提供 了 多 
个 参数 ， 该 脚本 在 执行 时 也 将 产生 错误 信息 





2. 通过 PASSWD 文件 句柄 以 读 方式 打开 文件 人 

3. 从 @ARGY 中 移出 第 一 个 参数 ， 并 赋值 给 变量 Susername。 

4. 每 次 进入 while 循环 时 ， 均 通过 PASSWD 文件 句柄 读 取 文件 /etc/passwd 的 一 行内 容 。 

5. 使 用 =~ 检查 第 一 个 参数 内 容 是 否 匹 配 $username。 如 果 找 不 到 匹配 ， 则 退出 循环 。 

6. 关闭 文件 句柄 。 

7. 将 文件 句柄 LOGGEDON 打开 为 输入 过 滤器 。 把 UNIX 中 who 命令 的 输出 内 容 转 发 给 该 文 
件 句 柄 。 

8. 检查 输入 过 滤器 的 每 一 行内 容 。 如 果 用 户 已 登录 的 话 ， 就 把 标量 $logged_on 设置 为 1, 并 退 
出 循环 。 


9. 关闭 输入 过 站 器 。 

10. 将 文件 句柄 PROC 打开 为 输入 过 滤器 。 把 UNIX 命令 的 输出 内 容 转 发 给 该 文件 句柄 。 依 次 
通过 过 着 器 读 取 每 一 行内 容 ， 并 将 其 ee $line。 如 果 $line 中 含有 匹配 于 该 用 户 的 项 
的 话 ， 则 将 该 行内 容 打印 到 STDOUT， 即 终端 屏幕 。 

11. 关闭 过 站 器 。 


10.2.3 eof 函数 


eof 畏 数 用 于 检查 是 否 到 达 文 件 末 尾 。 如 果 对 文件 句柄 FILEHANDLE 的 下 一 次 读 操作 是 发 生 
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在 文件 末尾 ， 或 者 文件 没有 打开 的 话 ， 国 数 就 返回 1。 如 果 设 有 提供 参数 ， 则 eof 国 数 将 返 
回 上 一 次 文件 读 操作 的 eof 状态 。 带 括号 的 eof 国 数 可 用 在 循环 体 代 码 内 ， 负 责 在 读 取 上 一 
个 文件 句柄 时 判断 其 文件 末尾 状态 。 如 有 果 不 带 括号 的 话 ， 该 国 数 则 可 检查 每 个 已 打开 文件 的 
末尾 状态 。 











格式 : 
eof (FEILEHRANDLE) 
eof () 
eof 


示例 10.31 


(ITIhe Text ERile: emP.namnes) 
Steve BJIenphpezIm 

Betty BooPp 

CCEPEeSRKY 

Norma Cora 

Jon Derpoacn 

Karen 五 vIcp 


SEE 

炳 open ( DB，"emp.names") || aie "Can't open emp.names: S1"7 

while(<DB>) { 

司 Pint if (/Norma/ . .eof) : # .。 Is the ran9e operator 
上 

OUwEoy) 


Namas 三 人 md 
Jonathan DeroacPn 
Karen 五 vItcph 


解释 
1. 通过 文件 句柄 DB 打开 文件 emp.names 。 
2. While 循环 每 次 从 文件 句柄 DB 中 读 取 一 行内 容 。 
3. 当 达 到 含有 正则 表达 式 Norma 的 行 时 ， 打 印 该 行内 容 ， 并 打印 从 Norma 到 文件 末尾 〈eof) 
的 所 有 内 容 。 


示例 10.32 


(The Text Files) 
$ eat 五 Le1 

ENeie' 

Ge 天 

9P 


$ cat 五 le2 
2 

号 
作证 县 辣 三 属 慰 2 


Enoa 
#1!V/usz/bin/per1 
1 

站 while(<>)1{ 
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记 NS 
马 IE (eofE) { 
SEO 
4 Clese (ARGV) ; 
k 
】} 
UnEwEy 
$ eof.P filel 玉 le2 
孔 呈 友 区 
2 Ge 天 
9P 
站 了 2334 
及 SG 


解释 

1. 保存 在 数组 ARGYVY 中 的 第 一 个 参数 是 filel 。 本 行 在 while 循环 表达 式 中 使 用 了 Null 文件 句 
柄 ， 并 以 读 方 式 打开 文件 filel。 

2. 标量 $. 是 一 个 特殊 变量 , 含有 当前 打开 的 文件 句柄 的 行 号 。 打 印 该 变量 值 , 随后 是 一 个 制 表 
符 ， 最 后 是 该 行 本 身 的 内 容 。 

3. 如 果 已 到 文件 未 尾 位置 ， 则 打印 一 行 30 个 短 横 线 。 

4. 关闭 文件 句柄 ， 把 $. 的 值 重 置 为 1， 以便 下 一 次 还 能 打开 文件 。 在 达到 文件 filel 的 末尾 后 ， 
脚本 将 继续 处 理 下 一 个 参数 file2， 同 样 从 第 1 行 开始 。 


10.2.4 -i 开 关 : 原 位 编辑 文件 


-选项 的 意思 是 原 位 编辑 文件 〈editing file in place)。 这 里 的 文件 均 由 命令 行 命 名 ， 并 保存 在 
数组 @ARGYVY 中 。Perl 会 自动 把 输出 文件 名 改 成 与 输入 文件 名 一 样 , 并 将 它 设 定 为 打印 时 的 默认 目 
标 文 件 。 用 户 如 需 备 份 原 始 文件 ， 则 可 使 用 -i 开 关 项 指定 其 扩展 名 ， 璧 如 -ibak， 这 样 便 能 把 原始 
文件 备份 为 filename.bak。 若 要 读 取 某 个 文件 ， 则 必须 先 将 该 文件 赋值 给 文件 句柄 ARGV 。 用 户 亦 
可 在 命令 行 参数 中 传 和 人 多 个 文件 名 ， 并 依次 原 位 编辑 每 个 文件 。 


示例 10.33 


(The Text FEile) 

孔 $ more names 
Ce7sK 交 
Dorma CoFraer 
7Jennirer Cowan 
7opn aeJoacph 
FFeQ FarapbparKkIe 
2 
Paco 9utierrez 
辐 o1ogWaEy7 ELek 
7armes IIKeda 

















全 SEO 
马 人 5 三 EL 
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# Scriptname: InpIace 


while (<ARGV>) { # OPeDn ARGV For reaain9 
本 2 
再 工 工 立 臣 7 # OutpPut 9oes to 五 Je currentJIJy bein9 reaa In-pPpJIace 
Close ARGV if eofy; 


OOn 必 ww 


】} 


OUE 

电 $S inPlace names 
S more names 
GCCRUCRERVSRKRY 
NORMA CORDPER 
UENNTFER COHAN 
UODPN ETDOAC 万 
上 上 R 民 DD FARDBARRKTE 
了 QORTIUGORYIS 
PACO GUTT 五 RR 三 GZ 
五 PHRANM 万 ARDY 
UAMRES 工 KDA 


8 SS more names .bak 
PRE 
厂 OFma Coraer 
7TennzIzFfer comwaDn 
遇 厂 方 站 是 SEOSiCD 
FEFrea 大 arabarKkye 
DA 
Paco 9utierrez 
oj1o8ay77 0 EECek 
7armes IKeda 


解释 

.打印 源 文本 文件 names 的 内 容 。 

. 本 行 表达 式 中 使 用 了 -开关 项 , 因此 会 原 位 编辑 names 文件 , 并 将 原始 文件 转 存 为 names.bak。 

. 进入 while 循环 ， 以 读 方 式 打开 文件 句柄 ARGYV 。 

. 把 待 处 理 文 件 中 所 有 的 小 写字 母 全 部 转换 为 大 写字 母 〈 借 助 嫌 函数 )。 

. print 函数 把 输出 内 容 转发 给 正在 原 位 编辑 的 文件 。 

. 当 到 达 文 件 末 尾 时 ， 关 闭 文件 句柄 ARGV。 这 样 便 能 在 处 理 多 个 文件 时 及 时 重 置 行 号 ， 或 者 
在 追加 文件 内 容 时 标记 文件 的 未 尾 位 置 。 

. 由 输出 结果 可 见 ， 程 序 更 改 了 names 文件 内 容 。 这 说 明 原 位 修改 操作 成 功 。 

. 创建 文件 names.bak， 并 将 其 作为 原始 文件 的 备份 ， 因 为 原始 文件 已 经 更 改 了 。 


仆 上 mmD 口 一 


Co ~ 


10.3 文件 测试 


与 Shell 一 样 ，Perl 也 提供 了 许多 文件 测试 运算 符 《〈 详 见 表 10.3 )， 用 于 查看 各 种 文件 属性 ， 如 
文件 是 否 存在 、 访 问 权 限 、 是 否 目录 、 是 否 文件 等 。 其 中 大 部 分 的 运算 符 都 在 结果 为 真 时 返回 1， 
在 结果 为 假 时 返回 “”( 即 null)。 

如 果 需 要 反复 多 次 测试 同一 个 文件 ， 则 可 在 程序 中 使 用 单个 下 划 线 来 代表 文件 名 。 这 样 便 可 利 
用 前 一 次 文件 测试 的 stat 结构 。 
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表 10-3 文件 测试 运算 符 “ 
运算 符 售 义 






















































































-Tg$file 如 果 $file 可 读 ， 则 为 真 

-w S$file 如 果 $file 可 写 ， 则 为 真 

-x $file 如 果 $file 可 执行 ， 则 为 真 

-o $file 如 果 $file 的 属 主 是 有 效 的 uid， 则 为 真 
-e $file 如 果 $file 存在 ， 则 为 真 

-z $file 如 果 $file 大 小 为 0， 则 为 真 

-s $file 如 果 $file 大 小 非 0， 则 为 真 。 返 回 文 件 字 节 大 小 
-f$file 如 果 $file 是 普通 文件 ， 则 为 真 

-d$file 如 果 $file 是 目录 ， 则 为 真 

-1 $file 如 果 $file 是 符号 链接 ， 则 为 真 

-p $file 如 果 $file 是 命名 的 管道 或 FIFO， 则 为 真 
-S $file 如 果 $file 是 套 接 字 ， 则 为 真 

-b $file 如 果 $file 是 块 特殊 文件 ， 则 为 真 

-c $file 如 果 $file 是 字符 特殊 文件 ， 则 为 真 
-ug$file 如 果 $file 具有 setuid 位 设置 ， 则 为 真 
-g $file 如 果 $file 具有 setgid 位 设置 ， 则 为 真 
-k $file 如 果 $file 具有 sticky 位 设置 ， 则 为 真 
-t $file 如 果 $file 文件 句柄 对 tty 打开 ， 则 为 真 
-TSfile 如 果 $file 是 文本 文件 ， 则 为 真 

-B $file 如 果 $file 是 二 进 制 文件 ， 则 为 真 

-M $file 返回 上 一 次 修改 文件 后 经 过 的 天 数 

-A $file 返回 上 一 次 访问 文件 后 经 过 的 天 数 

-C $file 返回 信息 结 点 改变 后 经 过 的 天 数 














a. 如 果 没 有 提供 文件 名 的 话 ， 则 设置 默认 文件 名 为 $ 。 


示例 10.34 


(At 
间 


the Commanad Line) 
$ 1s -1 Per1.test 


人 


2 人 


Be es 二 


包 5 有 SEEaELe 
三 站 人 允 S 王 三 尖 三 二 二 Ae 5 
So 


要 WOWS 人 on 全 下 
$file=Pez1l .test:; 
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本 Fint "File is readableNXn" if = Sile， 
Print "File is writeable\n" if -WwW S$file: 
Print "File is executableNn" if -xX 5S$file'， 
Pint "File is a regular 人 LIeN\n" if -E  $file:; 
Ne 
Pint "File 1s text 疾 IeNn"” ifE -了 S$6le， 
Printf "File was last modified %$f days ago.NXn"，-M 5$file:; 
TREE 本 Res M 才 一下 下 人 7 
4 Print "File has read，Wwirite and execute set.Nnn" 
站 三 工 征 S 和 Leac =w ES 和 三 工艺 
3 Stat("afile"); # stat another 石 1e 
RN 
# unpaerscore evralJuates to Jast 夏 Je statr'eda 
1 
OUEUE) 
号 FEITJe Is Freaaapye 


FEITJe Is WriteapJe 

FIiJe 1I5 executapbpJle 

TUE ee 

xDEIOEEOUCASSRSEEEUDESS 汪 和 PE S SG 三 人 六 人 宇 半 
FIIe Is text 五 Te 

RISE 太 SEE OSIea0ROOUOOBSS 友 SO 

FIJIe has reaa，write ana execute set. 

FIiJIe is a set User Ia Pro9ram。 

PiJe Is 5ero sze. 


二 
刷 


人 U PD 一 


人 


. 打印 文件 Perl,test 的 权限 、 属 主 、 文 件 大 小 等 信息 。 

. 打印 文件 afile 的 权限 、 属 主 、 文 件 大 小 等 信息 。 

. 如 有 果 文 件 是 可 读 可 写 且 可 执行 的 话 ， 执 行 print 语句 。 

. 由 于 这 里 需要 检查 同一 个 文件 的 多 个 属性 ,因此 要 给 文件 测试 运算 符 加 上 下 划 线 。 下 划 线 表 


明 将 引用 已 有 的 stat 结构 ， 后 者 是 一 个 含有 文件 信息 的 数组 。 


.stat 国 数 返回 一 个 13 元 数组 ,其 中 含有 文件 相关 的 统计 信息 。 如 果 为 文件 测试 运算 符 加 上 下 


划 线 的 话 ， 就 会 在 随后 的 测试 中 始终 使 用 afile 文件 的 统计 信息 。 


.有 关 stat 结构 的 更 多 信息 请 参阅 第 18 章 “ 与 系统 交互 ”。 


读者 应 当 学 到 的 知识 





什么 是 文件 句柄 ? 

“以 读 方 式 打开 文件 ”是 什么 意思 ? 

在 以 写 方式 打开 文件 时 ， 如 果 该 文件 已 存在 的 话 ， 将 会 发 生 什 么 情况 ? 
select() 国 数 的 用 途 是 什么 ? 

什么 是 binmode ? 

在 处 理 文件 时 ，die 函数 的 用 途 是 什么 ? 

Windows 与 UNIX 系统 处 理 行 终止 符 的 方式 有 什么 不 同 ? 
什么 是 排他 锁 (exclusive lock) ? 








.tell0 国 数 的 返回 值 是 什么 ? 
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10. +< 标记 与 +> 标记 有 何 区 别 ? 

11. statO 国 数 的 用 途 是 什么 ? 

12. 怎样 才能 在 一 个 文件 中 重 定位 其 文件 指针 ? 
13. 在 测试 文件 属性 时 ，-M 开关 项 的 功能 是 什么 ”? 








10.5 下 章 简介 


迄今 为 止 ， 本 书 介 绍 的 所 有 国 数 都 是 Perl 直接 提供 的 。 它 们 都 是 所 谓 的 内 建国 数 〈build-in 
function)， 璧 如 printD)、printfD)、push0)、popO、chomp(O 等 。 在 使 用 这 些 国 数 时 ， 用 户 只 需 知道 它 
们 的 用 途 和 调用 格式 ， 而 不 必 关 心 Perl 开发 者 是 如 何 让 它们 工作 的 。 在 下 一 章 里 , 读者 将 学 习 如 何 编 
写 属 于 自己 的 国 数 ， 又 称 子 例 程 〈subroutine); 并 学 习 如 何 向 它们 发 送 消息 ， 以 及 如 何 返 回 其 结果 。 








练习 10 获得 句柄 


练习 A 
1. 创建 文件 句柄 ， 以 读 方 式 打开 文件 datebook 〈 可 从 华章 网 站 (www.hzbook.com) 上 找到 该 文件 )， 
并 把 收入 大 于 $50,000 的 人 名 打印 到 另 一 个 文件 句柄 。 
2. 要 求 用 户 为 文件 datebook 输入 新 数据 〈 包 括 姓名 、 电 话 号 码 、 地 址 等 ， 保 存在 单独 的 标量 中 )。 
然后 通过 用 户 定义 的 文件 句柄 向 datebook 文件 追加 换行 符 。 
练习 B 
. 借助 过 涯 器 ， 按 照 姓 氏 顺 序 排 列 文 件 datebook。 
. 使 用 open 函数 创建 文件 句柄 ， 通 过 输入 过 站 器 列 出 当前 目录 下 的 所 有 文件 ， 并 打印 所 有 可 读 的 
文本 文件 内 容 。 如 果 open 失败 ， 则 通过 die 函数 退出 脚本 。 
. 重 写 程序 ， 检 查 列 出 的 文件 在 过 去 12 个 小 时 是 否 经 过 修改 ， 并 打印 这 些 文件 的 名 字 。 
练习 C 
. 在 文件 datebook 中 创建 多 个 重复 的 项 。 例 如 ，Fred Fardbarkle 重复 出 现 $ 次 , Igor Chevsky 重复 
出 现 3 次 ， 等 等 。 在 大 多 数 编辑 器 中 ， 这 些 只 需 简单 的 复制 / 粘贴 操作 。 
编写 程序 , 将 文件 datebook 的 文件 名 赋值 给 标量 ,并 检查 文件 是 否 存在 。 如 果 存 在 的 话 ,程序 
继续 检查 文件 是 否 可 写 或 可 读 ,并 通过 die 函数 发 送 错误 信息 到 屏幕 。 同 时 还 要 告诉 用 户 datebook 
文件 上 一 次 修改 的 时 刻 。 
程序 还 应 读 取 datebook 文件 的 每 一 行内 容 ， 并 将 每 个 人 的 薪水 增加 10% 。 不 过 ， 如 果 有 人 
在 文件 中 不 止 出 现 一 次 《假定 同名 同姓 就 代表 重复 ) 的 话 ， 则 只 处 理 第 一 次 ， 而 跳 过 第 二 次 出 现 
的 情况 。 程 序 应 将 每 一 行 输出 发 送 到 文件 raise 中 。 在 raise 文件 内 ， 任 何人 都 不 应 该 重复 出 现 ， 
并 且 其 薪水 值 都 应 当 增 加 10% 。 
在 屏幕 上 显示 datebook 文件 中 所 有 人 的 平均 收入 。 对 于 重复 的 项 ,应 当 打 印 重复 的 人 名 以 及 
相应 的 重复 次 数 。 
. 编写 脚本 checking， 以 任意 数量 文件 作为 命令 行 参 数 ， 打 印 可 读 并 且 可 写 的 文本 文件 名 字 。 如 果 
用 户 没 有 提供 任何 参数 ， 则 打印 错误 信息 并 退出 脚本 。 
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第 11 章 子 例 程 与 函数 


11.1 子 例 程 / 函数 


除了 Perl 已 经 提供 的 大 量 函 数 之 外 , 用 户 还 可 以 创建 自己 的 函数 或 子 例 程 。 有 些 语言 是 区 分 国 
数 (function) 与 子 例 程 〈subroutine) 这 两 个 词 的 ， 但 Perl 不 会 。 如 果 说 “ 子 例 程 >， 大 家 都 知道 
这 指 的 是 “ 国 数 ” 而 如 果 提 到 “ 国 数 ”， 则 每 个 人 都 清楚 它 指 的 是 “ 子 例 程 ”9。 从 技术 层面 上 讲 ， 
国 数 是 一 段 能 提供 返回 值 的 代码 , 而 子 例 程 则 是 执行 某 些 任务 的 代码 块 , 后 者 不 返回 任何 结果 。Perl 
的 子 例 程 与 函数 都 能 同时 支持 上 述 两 种 模式 。 因 此 ， 本 章 将 互 换 地 使 用 这 两 个 术语 。 本 书 将 在 涉及 
用 户 自 定义 函数 时 使 用 “ 子 例 程 ”一 词 。 

子 例 程 是 一 组 自 包含 的 程序 单元 ， 其 设计 目标 是 完成 指定 的 任务 ， 和 譬如 计算 抵押 贷款 额度 、 从 
en 或 者 检查 输入 内 容 的 合法 性 。 ee 就 好 像 离开 主 程序 走 

一 条 捷径 一 样 。Perl 接着 会 开始 执行 子 例 程 中 的 指令 ， 并 在 执行 完 Re 
信 汪 地 二 运 簿 ， 子 例 程 可 以 反复 执行 ， 因 此 能 帮助 开发 者 避免 重复 编码 。 子 例 程 还 可 用 于 把 一 
大 程序 拆 分 为 更 小 的 模块 ， 从 而 提升 代码 的 可 组 织 性 和 可 维护 性 。 

子 例 程 声 明 〈declaration) 是 由 一 个 或 多 个 语句 构成 代码 块 ， 它 独立 于 主 程序 ， 并 且 只 有 在 调 
用 到 时 才能 执行 。 一 般 而 言 ， 读 者 可 以 将 子 例 程 看 成 是 一 个 “墨盒 子 ”。 输 入 信息 进入 这 个 黑 盒 子 
〈 譬 如 在 计算 器 或 于 控 器 上 按 下 按钮 )， 然 后 由 墨盒 子 返 回 相应 的 输出 信息 《譬如 计算 结果 或 相应 电 
视频 道 )。 在 这 个 过 程 中 ， 黑 盒子 内 部 的 处 理 流 程 是 对 用 户 完 全 透明 的 。 惟 一 关心 其 内 部 细节 的 人 
就 是 编写 这 个 子 例 程 的 程序 员 。 当 使 用 Perl 内 建国 数 〈 如 printO 或 randO 国 数 ) 时 , 只 需 把 一 个 文 
本 字符 串 或 一 个 数字 传 入 该 国 数 ， 然 后 便 可 从 国 数 得 到 结果 。 用 户 无 需 关 心 它 是 怎么 做 到 这 些 的 ， 
只 需要 相信 这 些 国 数 将 不 负 所 托 地 完成 任务 。 如 果 送 入 的 数据 信息 有 误 ， 其 得 到 的 结果 也 就 自然 是 
不 正确 的 ， 一 言 以 蔽 之 :“ 传 和 人 垃圾， 得 到 的 也 将 是 垃圾 ”。 

子 例 程 的 作用 域 (scope) 是 指 在 程序 中 能 够 看 到 它 的 位 置 范围 。 子 例 程 是 全 局 的 ， 可 以 放 在 
脚本 中 的 任意 位 置 ， 甚 至 放 在 其 他 脚本 文件 中 。 当 使 用 来 自 其 他 文件 的 子 例 程 时 ， 应 当 使 用 关键 字 
do 、require 或 use 将 它 加 载 到 脚本 里 。 在 子 例 程 中 创建 或 访问 的 所 有 变量 也 是 全 局 的 ， 除 非 用 户 专 
门 通过 local 或 my 运算 符 将 它 声 明 为 局 部 变量 。 

若 要 调用 一 个 子 例 程 ， 用 户 可 以 在 子 例 程 名 之 前 加 上 这 符号， 或 在 子 例 程 前 面 加 上 do 运算 









































































































































四 ”您 甚至 可 以 把 本 章 标题 改 成 “ 畏 数 与 子 程序 ”。 不 过 这 样 的 话 有 些 人 就 会 不 赞成 啦 。 
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符 S, 也 可 在 子 例 程 名 后 面 加 上 一 组 括号 。 如 果 使 用 了 向 前 引用 〈forward reference) 的 话 , 在 调用 
子 例 程 时 就 不 需要 提供 色 或 括号 。 

如 果 调 用 的 子 例 程 不 存在 ， 程 序 便 会 退出 执行 ， 并 产生 错误 销 息 : Undefined subroutine“main : : 
pPIOg” 如 要 检查 子 例 程 是 否 已 有 定义 的 话 ， 可 使 用 内 建 的 defined 函数 。 

子 例 程 的 返回 值 是 其 最 后 一 个 求 值 表达 式 的 值 〈 标 量 型 或 数组 型 )。 用 户 亦 可 通过 return 国 数 
显 式 地 返回 它 的 结果 值 ， 或 者 根据 某 些 条 件 的 测试 结果 ， 然 后 直接 从 子 例 程 中 退出 来 。 

如 果 在 表达 式 内 部 调用 子 例 程 的 话 ， 可 直接 将 子 例 程 返回 值 赋予 指定 变量 。 也 就 是 说 和 国 数 的 
使 用 方式 一 模 一 样 。 









































格式 


Subroutine dec1laration: 
UsWoeoeneTams 
Subrzoutine definition: 
SUoEESUooenme 要 manms EECCS SR) 
Subrzoutine call: 
qGgsmlocemisne 本 ame 
souEnme 汪 站 SmEY 
EEC E 汪 TSmeng 有 
Unoenncs 旺 name 
Subroutine call with ParameteLrs : 
Seenenameeaanmeeecelroarame < 
Enomennsnameesaranmseeiiosname 忆 ET 人) 


定义 并 调用 子 例 程 


声明 〈declaration ) 只 是 向 Perl 编译 器 说 明 要 在 程序 中 定义 一 个 子 例 程 , 并 规定 它 的 参数 格式 。 
子 例 程 声明 的 作用 域 是 全 局 的 ， 换 而 言 之 ， 不 论 将 它 放 在 程序 中 的 哪个 位 置 ， 它 们 都 将 是 可 见 的 。 
不 过 习惯 上 一 般 会 把 子 例 程 的 声明 语句 放 在 程序 的 开头 或 未 尾 。 所 谓 子 例 程 的 定义 (Cdefinition )， 
则 是 跟随 在 子 例 程 名 后 面 的 代码 块 。 如 果 尚 未 显 式 地 声明 该 子 例 程 ， 则 会 在 定义 该 子 例 程 时 一 并 
声明 它 。 

声明 : sub 子 例 程 名 ; 

定义 : sub 子 例 程 名 {! 语句 ; 语句 ;} 

子 例 程 的 定义 可 以 出 现在 程序 中 的 任何 位 置 ， 甚 至 在 其 他 文件 中 。 一 个 子 例 程 包含 一 个 关键 字 
sub， 其 后 是 一 个 起 始 花 括 号 、 位 于 花 括号 之 间 的 一 组 语句 、 以 及 一 个 财 合 花 括 号 。 
在 调用 之 前 ， 子 例 程 是 不 会 自己 执行 的 。 若 要 调用 一 个 子 例 程 ， 可 在 子 例 程 名 之 前 加 上 一 个 广 
符号 ， 也 可 在 子 例 程 名 后 面 加 上 一 组 空 的 括号 ， 还 可 通过 上 述 方式 以 内 建国 数 的 形式 调用 它 。 如 果 
在 调用 子 例 程 时 既 不 提供 人 符号 又 不 加 小 括号 ， 则 必须 在 调用 前 事先 声明 该 子 例 程 。 


示例 11.1 
(TS Si 
由 Sub greetme { Print "Welcome，Valkommen til1，BienvenuelIANn"7)} 
色 &greetme ift aefineaQ &greetme， 
瑟 EREOESnEENUESR NU 























龟 do 函数 的 主要 用 途 是 从 Perl4 的 库 〈 艾 如 do pwd.pl) 中 载 入 Perl 子 程序 。 
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4 &greetme); # CalLllL to subroutine 

配 EnERZNOEOESSEEmESEERA RE 

6 &bpye:; 

7 sub bye { Print "Bye，adjo，adieu.NXn"” } 

8 &bye: 

(GE 

议 WelIcomey VaJIKommen tiI7I，BIienvenuel! 

名 Cg 

4 Welcome VaJKkormmen tiJI7I，BIienenuel! 

与 More 三 Gonee 

民权 忆 洒 是 二 忆 几 已 克 攻 三 人 站 二 到 
Bye，aajo，aaieu. 
解释 

1. 这 是 一 个 子 例 程 的 定义 。 开 头 是 关键 字 sub, 其 后 跟随 着 子 例 程 名 greetme, 最 后 则 是 调用 时 
需要 执行 的 代码 块 。 一 般 可 以 在 子 例 程 名 前 面 缀 以 && 符号 ， 不 过 这 不 是 必需 的 。 惟 一 必需 
加 多 符号 的 情况 出 现在 调用 子 例 程 时 、 通 过 子 例 程 名 创建 引用 时 、 以 及 为 国 数 〈 如 defined ) 
提供 参数 时 。 该 定义 可 以 放 在 程序 的 任何 位 置 , 并 且 在 调用 前 不 会 对 程序 产生 任何 影响 。 本 
例 在 调用 国 数 时 将 只 执行 一 条 print 语句 。 

2. 通过 在 子 例 程 名 前 面 加 皮 标记 的 方式 调用 子 例 程 greetme。 这 里 使 用 内 建国 数 defined 检 
查 该 子 例 程 是 否 已 经 定义 。 在 使 用 子 例 程 名 时 ,要求 必 须 提 供 祥 标记 。 在 调用 时 , 程序 将 跳 
入 子 例 程 中 ， 并 执行 后 者 定义 的 语句 ， 在 这 里 即 为 Welcome 语句 。 

3. 当 子 例 程 调 用 完毕 后 ， 程 序 将 从 原 位 置 的 下 一 条 语句 开始 继续 执行 主 程序 。 

4. 再 一 次 调用 子 例 程 greetme。 

5. 子 例 程 在 第 4 行 退出 ， 然 后 恢复 执行 原 程 序 。 

6. 调用 子 例 程 bye。 在 后 面 第 7 行 中 可 以 找到 该 子 例 程 的 定义 。 

7. 定义 子 例 程 bye。 不 论 把 子 例 程 定义 放 在 哪里 ， 编 译 吉 都 能 找到 它 。 

8. 调用 子 例 程 bye。 

空 值 Cnull) 参数 列表 。 如 果子 例 程 名 后 面 跟随 着 空 括号 〈 即 空 值 参数 列表 ), 则 可 以 不 在 其 程 























序 名 前 面 加 文 标 记 。 











示例 11.2 


#1Vuszr/pbin/Per1l 


刘 


瑟 


4 
本 


Sname="E1L1Lie"y 
Ga LIEOESESNETE 入 人 


bye () : # withpout Parens or an ampersanad bye mwoula be a baremorad 
# causina9 a warnina9 messa9e when -w Is Usea.， 
Sub byei 
EnmnegEYE 汪 SSTESNIL 
} 


向 前 引用 。 向 前 引用 〈forward reference) 负责 向 编译 器 声明 已 经 在 程序 中 的 某 个 位 置 定义 好 
了 子 例 程 。 如 果 出 现 了 向 前 引用 ， 则 在 调用 该 子 例 程 时 就 不 必 提 供 广 标记 。 
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示例 11.3 


#1/usz/pbin/Per1l 
亚 Sub bye; # Forwara reference 


Sname="E1L1ie"7 
包 TESTameNne 


下 bye : # Ca SuUDproutine WwWIthout the ampersana 


4 Sub byei{ 

本 TESTmairieNn 
} 

(GESUE) 

到 HeJJo PITIie. 

总 Bye 五 /1JIe 


变量 作用 域 。 作 用 域 (scope) 负责 描述 变量 在 程序 中 的 哪些 位 置 是 可 见 的 。Perl 变 





量 的 作用 域 


都 是 全 局 的 ， 即 在 整个 程序 中 都 是 可 见 的， 就 连 子 例 程 中 的 变量 也 不 例外 。 如 果 在 子 例 程 中 声明 了 











一 个 变量 


量 ， 则 该 变量 将 对 整个 程序 可 见 。 如 果 在 子 例 程 中 修改 已 有 变量 值 ， 则 在 退 














出 子 例 程 后 这 次 








修改 仍 上 日 有效。 局 部 〈local) 变量 是 只 能 用 于 局 部 代码 块 、 子 例 程 或 文件 的 变量 。 用 户 必 须 使 用 内 
建国 数 local 或 my 来 创建 局 部 变量 ， 因 为 在 默认 情况 下 Perl 变量 的 作用 域 都 是 全 局 的 〈 详 见 “ 使 


用 local 和 my 按 值 调 用 ”一 节 )。 


示例 11.4 


ESeeioty 
0 
# Variables usea in Supbroutines are 91obal by aefauIt 
站 sub bye { Print "Bye SnameNn"; S$Sname="Tom" :} 
# Suproutine aenIitioDn 


汉 Sname="E11ie"7 

吉 ENETICOEESOUESOOR7ORESUANTTRE 

4 &bye: 

三 TERRYOUEESEEENESUOTSUETOER TECNIameANLY 
# Spame Is Domw Tom 

6 &bye 

OUE ES) 

习 ER 

由 = 大 属 是 = 

避 Out of zhe Suproutine。， Fe IIo 7o. 

和 Bye 了 om 

解释 
1. 定义 子 例 程 bye。 在 子 例 程 块 中 将 变量 Sname 赋值 为 Tom。$name 是 一 个 全 局 变量 , 也 就 是 


说 它 在 整个 程序 中 都 是 可 见 的 。 
2. 从 本 行 开 始 执行 程序 。 将 全 局 变量 $name 赋值 为 Ellie。 
， 本 行 只 介 责 说 明 执行 的 流程 。 


LULD 


4. 调用 子 例 程 &bye。 程 序 在 第 一 行 处 进入 子 例 程 ,此 时 $name 的 值 仍然 是 Ellie。 在 执 
行 完 Bye 行 之 后 ,会 给 变量 Sname 赋予 新 值 Tom。 然 后 退出 子 例 程 ， 从 第 5 行 恢复 程序 





执行 。 
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5. 在 子 例 程 中 改变 变量 $name 的 值 。 
6. 再 次 调用 子 例 程 。 此 时 ， 变 量 $name 的 值 为 Tom 。 
a. 这 里 假设 把 程序 编译 到 名 叫 main 的 包 中 。 有 关 包 和 作用 域 的 内 容 请 参阅 第 12 章 “ 模 块 、 包 和 库 ”。 





11.2 ”参数 传递 











在 调用 子 例 程 时 ， 一 般 需 要 在 括号 中 提供 一 组 以 逗号 隔 开 的 参数 。 








The feed _me function below takes 3 arguments when called: 


Qfruit=aqw(apples pears peaches PlLlums)， # DecIJare variabJes 
SVveggie="corn" 7 


&fteedq me( Gfruit，S$Sveggie， "milIk" ) : # Ca suproutine with ar9uments 


参数 可 以 由 数字 、 字 符 串 、 引 用 、 变 量 等 组 成 。 国 数 都 把 参数 保存 到 特殊 的 Perl 数组 中 去 ， 该 
数组 名 叫 @_， 其 中 每 个 元 素 称 作 是 一 个 参数 。 


sub feedQ me{f Przint join(nyrnr Q@ )rnNvnn" } 
# SUproutine 9etSs ar9uments in @ array 


总 五 攻 六 记 巧 apples，Ppears，pbpeache，PpPlums，corny miIlLK 


按 引用 调用 和 @_ 数组。 不 论 参 数 是 标量 型 还 是 数组 型 的 ， 都 必须 将 它们 传人 子 例 程 ， 并 保 

存 到 @_ 数组 中 去 。 数 组 @_ 是 一 个 局 部 〈local) 数组 ， 甚 值 是 隐 含 的 对 实际 参数 的 引用 。 如 果 修 
改 @_ 数组 ， 就 必须 同时 修改 这 些 实际 的 参数 。 如 果 只 是 移动 或 弹出 @_ 数 组 中 的 元 素 ， 则 只 会 
去 对 实际 参数 的 引用 而 已 〈 详 见 “ 使 用 local 和 my 按 值 调 用 ”一 节 )。 
当 把 数组 或 标量 传递 给 函数 或 者 子 例 程 时 ，Perl 默认 通过 按 引 用 调用 〈call by reference) 的 方 
式 调 用 它们 。@_ 数组 是 一 个 特殊 的 局 部 数组 ， 用 于 引用 实际 参数 的 名 字 。 用 户 可 以 改变 @_ 数组 
的 值 ， 因 此 便 可 更 改 相 应 实际 参数 的 值 。@_ 数组 的 元 素 包 括 $_[0]、$_[1]、$_[2] 等 。 如 果 传 递 的 
是 标量 型 参数 , 其 参数 值 就 是 @_ 数 组 的 第 一 个 元 素 $_[0]。Perl 并 不 关心 这 些 传 进来 的 参数 是 否 全 
被 用 到 ， 或 者 是 否 有 足够 的 参数 传递 进来 。 如 果 对 @_ 数组 执行 移动 或 退出 操作 ， 则 只 会 失去 对 实 
际 参 数 的 引用 。 此 外 ,如 果 要 更 改 全 局 拷贝 而 不 是 局 部 数组 @_ 的 话 , 用 户 可 以 使 用 typeglobs 〈 符 
号 引用 ) 或 者 指针 《〈 硬 引用 )。 本 书 将 在 下 面 “ 通 过 指针 传递 ”一 节 以 及 第 13 章 的 “这 个 作业 需要 
引用 吗 ?” 一 节 了 予以 详细 讨论 。 


示例 11.5 


ES 
#Passizn9 ar9uments 
也 SEE AGENS RS 
ES BieleleaisnS 冯 
&greeting ( S$first，S$SLast ) ; 
Sub greetingi{ 
RN 
OICEWEILSCiisEcEiEeEeano SEESIELDIAANTTD 
































Gon 人 WINR 


Q aray 


} 
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( 
4 
己 


解释 


外 
之 
3 
4 


(LA 


em 


ChparJIes Doppbins 
JeJIcome to the cIup，Charles Dobpinpns'! 


. 给 标量 赋值 。 
. 使 用 两 个 参数 $first 和 $last 调用 子 例 程 greeting。 
声明 子 例 程 。 
. 参数 保存 在 数组 @_ 中， 它 是 一 个 局 部 数组 ， 在 进入 子 例 程 时 自动 创建 ， 并 在 退出 子 例 程 时 


自动 销毁 。 数 组 中 含有 对 两 个 参数 $first 和 $last 的 引用 。 


. 打印 数组 @_ 中 的 前 两 个 元 素 。 标 量 $_[0] 和 $_[1] 分 别 代表 单个 元 素 。 


6. 困 合 花 括 号 说 明子 例 程 在 这 里 结束 。 数 组 @_ 自动 销毁 。 


示例 11.6 


人 SEESccniety 


并 
晕 
加 
4 
5 
6 


并 大 下 天 Ga 看 aemonStzae5O7CREZ Scenees7SINOESE 
Sub Params { 
EECTIe ae 人 ET 本 aaY7 量 SSGRNTO 
EN 
ROSS POPILGENEAIR 
foreach S$Svalue ( @ ) 1{ 
SValue+=5 
EL 











】 

ISDNSRIEES WoE SS 
二 站 二 人 作 人 
&Params (Gn) : 
1 SESSION 

Print "The new values are 6n N\n"; 


OUWEe Gy) 


(LO 


t 上  \ 


已 


GDPP 一 


C 〇 D 


GT7Yemneao nnpersc 2 2 
ES 
Thpe rst value 1IS 了 
7TPpe Jast vaJue 1I5 5 
TDPe vaJue Is5 6 
7Tpe 7aJIue Is 7 
Zhe 7aJue Is 8 
7Pe aue 工 5 9 
ET 三 到 届 9) 
Thpe Dew vaJues are 6 /89 5 


.定义 子 例 程 params。 

.打印 @_ 的 值 ， 即 实际 参数 列表 。@_ 是 一 个 局 部 数组 ， 负 责 引 用 传 给 子 例 程 的 所 有 参数 。 
.打印 @_ 数组 的 第 一 个 元 素 。 

. 使 用 pop 国 数 删除 数组 的 最 后 一 个 元 素 ， 并 打印 。 

. foreach 循环 依次 把 @_ 数 组 中 的 每 个 元 素 赋值 给 标量 $value。 

. 将 数组 中 每 个 元 素 递 增 5， 并 保存 到 标量 $value 中 。 
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芝 忆 阐 





7. 当 用 户 输入 5 个 数字 后 ，split 函数 返回 一 个 数组 ， 其 元素 是 从 STDIN 文件 句柄 读 取 的 每 一 


个 字符 。 
8. 以 数组 为 参数 调用 子 例 程 。 


9. 打印 出 来 的 值 说 明 在 国 数 中 修改 的 变量 值 真 的 改变 了 。 只 有 原 数 组 最 后 一 个 元 素 的 值 没 有 发 


生变 化 ， 因 为 它 在 程序 第 4 行 已 被 弹出 了 。 


使 用 local 和 my 按 值 调 用 。 大 多 数 编程 语言 都 支持 把 参数 值 传递 给 子 例 程 的 方式 , 该 方式 将 不 
会 改变 原 参数 的 值 。 当 以 按 值 调 用 〈call-by-value) 方式 传递 参数 时 ， 程 序 会 把 参数 值 的 一 个 副本 


发 送 给 子 例 程 。 即 使 程序 修改 了 这 个 副本 的 值 , 原 





参数 的 值 仍 将 保持 不 变 。 在 Perl 中 为 参数 创建 副 





本 时 ， 程 序 会 将 该 参数 从 @_ 数组 中 拷贝 出 来 ， 然 后 赋值 给 另 一 个 局 部 变量 ， 参 见 图 11-1。 为 支持 
局 部 副本 的 创建 ，Perl 提供 了 两 种 内 建国 数 : local 和 my。 


local 函数 














Perls 引入 了 另 一 种 函数 my， 能 进一步 保障 变量 太 


在 Perl5 出 现 之 前 ，local 函数 负责 在 Perl 脚本 中 打开 按 值 调 用 〈call by value) 模式 。 后 来 ， 


E 代 码 块 中 的 私有 性 。 





local 国 数 能 从 参数 列表 中 创建 局 部 变量 。 任 何 使 用 local 函数 声明 的 变量 都 是 动态 拷贝 的 。 也 
就 是 说 ， 该 变量 不 但 在 创建 它 的 块 中 可 见 ， 而 且 对 于 任何 从 该 代码 块 调用 的 函数 或 在 蔡 入 定义 的 代 
码 块 中 也 都 是 可 见 的 。 如 果 局 部 变量 和 全 局 变量 重 名 的 话 ， 程 序 将 临时 创建 一 个 新 的 局 部 变量 来 暂 
存 全 局 变量 的 值 。 当 局 部 变量 超出 其 作用 域 时 ， 全 局 变量 将 再 一 次 可 见 ， 并 恢复 其 原 有 值 。 在 执行 
完 子 例 程 的 最 后 一 条 语句 之 后 ， 程 序 将 清除 其 创建 的 局 部 变量 。 建 议 读者 在 子 例 程 代码 块 的 开头 设 














置 所 有 的 局 部 变量 。 


pop 操作 前 


Q@narroy 


G@norray 


子 例 程 中 的 foreach 循环 执行 完毕 后 





图 11-1 @_ 数 组 引 
































pop 操作 后 


CT 


离开 子 例 程 后 


用 实际 的 标量 变量 


示例 11.7 
WeSCeneEny 
册 Sfirst="Pez" 
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S$SLast="Linadberg"; 


忆 &greeting ( $first，S$SLast ) : # Cal1 the 9reetin9 SuproutIine 
思 Print "---$fname---\n" if defined $Ename 1 
# SuUP 9reetinG 
# Suproutine aefnea 
sub gceetingli 
可 local ($fname，$SLIname) = 6 ); # Cal11 by value 
Print "Welcome $SftnamellNn"; 
】} 
oOuEwe) 
吕 <O 莉 局 三 忆 下 直 宇 
瑟 WeJ come Pery 


1. 为 标量 型 变量 赋值 。 

2. 调用 子 例 程 greeting， 并 向 它 传 递 两 个 参数 。 

3. 不 执行 print 函数 ， 因 为 这 里 没有 定义 $ftname。 它 在 子 例 程 中 定义 为 一 个 局 部 变量 ， 只 有 对 
子 例 程 greeting 而 言 才 是 局 部 〈local) 的 。 

4. local 函数 从 @_ 数组 中 获取 参数 列表 , 并 从 该 列表 创建 两 个 局 部 变量 , $fname 和 $lname。 
局 部 变量 中 的 值 是 传递 进来 的 参数 副本 。 

5. 执行 print 语句 ， 打 印 局 部 变量 $fname 的 内 容 。 其 内 容 是 变量 $first 值 的 副本 。 








y 运算 符 

my 运 全 Clexically ) 打开 按 值 调用 〈call-by-value) 模式 。my 声明 得 到 的 变量 
在 从 声明 之 处 开始 到 最 内 层 包 含 的 块 中 都 是 可 见 的 。 这 里 所 谓 的 块 (block) 包括 所 有 位 于 花 括 号 中 
的 代码 块 、 子 例 程 或 文件 。 使 用 my 运算 符 声明 的 变量 将 创建 在 特殊 缓冲 区 中 ， 该 缓冲 区 将 专用 于 
创建 它 的 代码 块 。 

与 local 函数 声明 的 变量 不 同 ，my 函数 声明 得 到 的 所 有 变量 都 只 在 声明 它 的 子 例 程 中 可 见 ， 对 
该 子 例 程 调用 的 任何 其 他 子 例 程 都 是 不 可 见 的 。 如 果 列 出 多 个 变量 ， 则 必须 将 它们 放 在 括号 中 。 因 
此 ， 示 例 11.7 中 的 子 例 程 可 按 如 下 方式 提供 : 






































Sub greetingft{ 
my ($fname，S$SLname) = @ : # 5Sfname ana 5Iname are DrIivate 


Print "Welcome S$SfnamellNn'n; 
} 


示例 11.8 


(The Script) 
# The scope of my variaples 


王 my S$Sname = "Raimo" : 

乌 SnSiTieNE 

引 { 上 Enter DPIocK 

人 4 Print "My name is S$SnameNn" 7 
瑟 my S$Sname = "BE1Lizabeth" : 

6 Print "Now name is S$SnameNxn" 
my $1Love = "Christian" 

8 


ENSONERES 和 SEN 





@@ ”有 关 my 变量 的 更 多 知识 ， 请 参见 第 12 章 。 





大 人 
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引 | 同人 

OOETnESOamEEEESRCRSNO 

IE ELEREOUERETE ER 

ou 

到 Razmo 

配 My pname Is Razmo 

6 Now parme Is IIzabetnh 

8 IE 

着 SE 

11 工 can't see mr Jove out here. 
解释 


1. 使 用 my 国 数 在 词法 上 创建 变量 $name， 并 将 它 赋 值 为 Raimo。 访 变量 在 创建 它 的 位 置 以 及 


co ~ 人 上 hib 


g 


10. 变 





所 有 内 部 代码 块 中 都 是 可 见 的 。 它 位 于 自己 专 有 的 缓 钟 区 中 。 
. 打印 该 变量 值 。 

. 进入 新 代码 块 。 

. 词法 变量 $name 仍 在 作用 域 中 ， 即 仍然 可 见 。 
声明 一 个 新 变量 。 该 变量 获得 一 个 专用 的 缓冲 区 。 

. 新 变量 $name 是 可 见 的 ， 打 印 甚 变量 值 。 

在 代码 块 中 声明 另 一 个 词法 变量 ， 并 为 其 提供 专用 的 缓冲 区 。 
.打印 $love 的 值 Christina。 它 在 本 代码 块 中 是 可 见 的 
代码 块 到 此 结束 。my 变量 离开 其 作用 域 。 











变量 $name 现在 是 可 见 的 了 。 打 印 Raimo 。 





11. $love 变量 超出 了 作用 域 。 


示例 11.9 


SSE 


# DiIFference Detween my ana JIocal 


下 $Eriend="Louise" ; # GIopal variapbJes 

电 SPalL="Danny" : 

电 EN 

4 Sub guests 1{ 

瑟 my $SEriend="Pat"; # IDexicalIy scopea variable 

6 Local $PalL="Chris"; # DynamicalIy scopea variabJe 

这 Print "S$Sftriend and $pal are Welcome guests.Nn"i; 

8 &who is _ it; 1 
上 

名 sub who is it { 

10 En YonES 本 SESSIONORARESECIendGEnE 瑟 二 人 向 下 让 

站 站 TELEUEEY ODS 本 SN 
】 

12  &guests : # Ca suproutine 

13 Print "Global friends are back: $Eziend ana SpalL.N\n"; 

(OUEGE) 

己 所 1 后 奈 =K= Too 几 oo1o1 = oo 天 再 有 

忆 Pat ana ChrIzs are welcome 9uests.， 

站 向 Mo 有 有 且 ES 三 N 有 oo 有 
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加 己 三 全 
2UG7e5ay FEEDaCRRRICOEISER SC DS 厂 万 克 5 


解释 
1. 将 变量 $friend 赋值 为 Louise。 在 main 中 的 所 有 变量 都 是 全 局 的 。 
2. 将 变量 $pal 赋值 为 Danny， 它 也 是 全 局 的 。 
3. 打印 全 局 变量 值 。 
4. 定义 子 例 程 guests。 
5. 通过 my 国 数 将 变量 $friend 声明 为 子 例 程 局 部 变量 。 
6. 通过 local 国 数 将 变量 $pal 声明 为 该 子 例 程 及 其 调用 的 其 他 子 例 程 的 局 部 变量 。 
8 
9 
] 





.在 guests 子 例 程 中 打印 $fiend 和 $pal 的 变量 值 。 
. 调用 子 例 程 who_is_it。 
.定义 子 例 程 who is it。 





0. 在 子 例 程 who is 让 中 ， 全 局 变量 $friend 〈 值 为 Louise) 是 可 见 的 。 词 法 变量 $friend 〈 值 


为 Pat) 在 该 子 例 程 中 是 不 可 见 的 ， 因 为 它 是 my 函数 在 其 他 子 例 程 中 声明 的 。 


11. 另 一 方面 , 在 子 例 程 guests 中 通过 local 函数 声明 标量 $pal〈 值 为 Chris ),， 该 变量 在 子 例 程 


who is it 中 仍然 是 可 见 的 。 
12. 调用 guests 子 例 程 。 
13. 退出 子 例 程 后 ， 全 局 变量 返回 其 作用 域 ， 并 打印 它们 的 值 。 


使 用 strict 编译 指示 符 〈my 或 our)。 编译 指示 符 〈pragma) 是 一 种 程序 模块 ， 负 责 在 探测 到 


时 











阻 序 有 问题 时 去 触发 编译 器 的 相关 错误 信息 。strict 编译 指示 符 可 用 于 在 程序 中 避免 使 用 全 局 变量 
一 且 声 明了 strict， 只 要 使 用 了 全 局 变量 ， 即 使 用 local 函数 声明 它 ， 编 译 器 也 会 提示 报错 。 不 过 


词 


法 变量 是 允许 出 现 的 。 这 些 变量 都 通过 内 建国 数 my 或 our 声明 。 如 果 用 户 需要 使 用 全 局 变量 ， 同 
时 又 想 启 动 strict 编译 指示 符 以 避免 在 程序 其 他 位 置 误 用 全 局 变量 的 话 ， 可 使 用 内 建国 数 our (Perl 








5.6 十 )。( 有 关 strict 和 包 的 更 多 信息 ， 请 参 陪 “strict 编译 指示 符 ” 一 节 。) 


示例 11.10 


ESeemiety 


下 Use Strict "Vars" 
包 my Sname = "EL1ie"; # my (Jexical) variapJIes are OKay 
司 QEriends = qw(Tom Stefan Bin Marie) 
# 9Iopal variables not alI1omweda 
4 1Local S$Snewspaper = "The Globe": # JocaJ variapbJes are Dot al71owea 
与 Pint "MY name is S$name and our friends are Gfriends.NXn"; 
OUEoE) 
司 GJopal sy7mnpol "6rfFrienas”reduzires explicit Packaoce name at 
风机 3 辣 | 和 矶 0 二 则 二 二 
加 GJopbal Symbol "5Snewspaper" reGquires expIicit packac9e name at 


1 

于 万 生 S 让 天 汪 辣 可 汪汪 C 六 天 贡 人 万 避 二 是 记忆 下 是 成 本 万 E 丰 天 EGR EC 本 起 本 天 站 5 忆 司 丰 
JIzne 5，Ppear "sname ana our Frienas our frienas" 

GJopal sy7mnpol "6Gfrienas”rFre9uzires expJicit pacKkacge name at 
0 帮主 汪 

JAD oo oo ic ETooiease 必 ceo ES 
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. 以 vars 为 参数 使 用 strict 编译 指示 符 , 告诉 编译 器 如 果 发 现任 何 全 局 变量 就 提示 报错 。strict 

模块 strict,pm 是 标准 Perl 发 布 包 的 一 部 分 。 

2. 变量 $name 是 通过 my 国 数 定义 的 词法 变量 , 也 就 是 说 , 它 专 属于 创建 它 的 代码 块 。strict 编 
译 指示 符 与 my 变量 类 似 。 

3. 数组 @friends 是 一 个 全 局 变量 。 编 译 器 如 果 碰 到 像 第 3 行 输出 所 示 的 全 局 变量 , 就 会 提示 出 
错 。 该 消息 通过 explicit package name 表明 ,如 果 在 名 称 前 面 加 上 包 名 和 双 冒 号 ( 即 @main:: 
friend) 的 话 ， 就 仍然 可 以 使 用 原来 的 全 局 变量 。 

4. 在 动态 分 配 全 局 变量 时 ,Perl 通过 local 图 数 来 对 声明 的 变量 进行 分 类 。 由 于 没有 使 用 my 国 

数 声明 变量 , 因此 在 这 里 编译 恬 仍 然 会 提示 报错 。 如 要 使 用 局 部 变量 , 则 显然 应 当 使 用 local 

$main::newspaper。 


5. 由 于 编译 器 出 错 ， 因 此 本 程序 将 永远 不 会 执行 到 这 一 行 。 


EEC 


ES 











亚 Use 下 szTCLTaZSI 
思 my S$Sname = "EL1ie"; 井 习 I 了 azrziapbpJes are Jexical In SCcope 
本 ou friends = aqw(Tom Stefan Bin Marie) ; 
4 ou S$newsPapPer = "The Globe":， 
瑟 Er Snmame anagSETEnOSTOIEESRETEESESSESaDETERANDL 
ouEswuey) 
与 本 卫生 站 es EEAEEECSSE 
解释 
1. 以 vars 为 参数 使 用 strict 编译 指示 符 , 告诉 编译 器 如 果 发 现任 何 全 局 变量 就 提示 报错 。strict 


模块 strict,pm 是 标准 Perl 发 布 包 的 一 部 分 。 

2. 变量 $name 是 通过 my 图 数 定义 的 词法 变量 , 也 就 是 说 , 它 专属 于 创建 它 的 代码 块 。strict 编 
译 指示 符 与 my 变量 类 似 。 

.our 变量 〈Perl 5.6+) 伪装 成 一 个 词法 变量 "， 因 此 strict 编译 指示 符 将 忽略 它 的 存在 。 这 样 
便 可 在 真正 需要 时 避免 使 用 全 局 变量 。 

4. 这 个 标量 也 是 our 变量 。 它 是 全 局 的 ， 也 是 一 个 词法 变量 ， 因 此 能 避免 引发 strict 编译 指示 
符 报错 。 

. print 了 国 数 负 责 打 印 词法 变量 的 值 。 

Wall, 工 ., Christianson, T, and Orwant, J.,，Progra1a1111g Per 37d ed., 0O ”Reilly & Associates; Sebastopol, CA ， 


LD 


(LA 


人 


2000, p. 138。 
11.2.1 ”原型 


原型 《Prototype) 又 称 作 模 板 〈Template)， 它 负责 在 调用 子 例 程 时 告诉 编译 器 应 当 读 取 多 少 
个 参数 ， 以 及 相应 参数 类 型 。 它 能 让 Perl 像 对 待 内 建国 数 一 样 对 待 子 例 程 。 作 为 声明 的 一 部 分 ， 原 
型 将 在 程序 编译 阶段 进行 处 理 。 如 要 调用 使 用 原型 声明 的 子 例 程 , 则 必须 省 略 & 符号 ， 否 则 程序 便 
会 将 该 子 例 程 当 作用 户 自 定 义 的 子 例 程 来 处 理 ， 而 不 是 作为 内 建 子 例 程 处 理 ， 同 时 编译 器 将 忽略 子 
例 程 原型 。 
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PrototyPe: (Per 5.003+ 
sub subroutine _ name ($SS) ; 
Takes two scaJar ar9umentsS 


sub subroutine name (\G) ; 
Ar9ument must bpe an arrayr Preceaea with an @ Symbol 


Sub subroutine _ name ($SS7Q@) 
Takes two scalar ar9uments ana an optiona]l array. 
Anythzin9 after the Semi-colon Is optional . 


示例 11.12 


# FIi7ename: Prototypes 
二 
下 而 风光 语 三 5 7 


my Sb=6:， 
my S$Sc=77 
受 四 辣 辐 本 S = 全 改 多 于 2 全 [四 本 
下 sub myadd ($S$S) 1{ # myaaa redquizres two scalar ar9uments 


my(Sx，SY)=G 
Ni 


4 myadd ($Sa，S$Sb) : 井 OKay 

与 myadd (5，4) ; 井 OKay 

6 myadd ($Sa，S$Sb，S$Sc) : # Too many ar9uments 

ou 

6 了 GOmanys5UwEES 辣 大 OSIXSCCS 记 避 EOE7oSS De 


1 
erFors. 了 1I 


训 


.声明 三 个 标量 型 变量 ， 并 为 它们 赋值 。 

. 为 数组 @list 赋值 。 

. 定义 子 例 程 myadd 的 原型 ， 期 望 两 个 标量 型 参数 。 多 于 或 少 于 两 个 参数 都 会 造成 编译 出 错 。 
. 向 子 僵 程 提供 两 个 标量 型 参数 。 这 样 就 没有 问题 。 

. 向 子 例 程 传递 两 个 数字 。 这 样 也 没有 问题 。 

. 子 例 程 原型 期 望 两 个 标量 型 参数 ， 但 这 里 要 传递 三 个 参数 ， 因 此 编译 吉 会 发 送 错误 消息 。 


示例 11.13 


# Prototypes 


人 上 PP 一 


浊 sub mynumbs (6$S;:S$S) : 1 
之 力 下 下 意 电 王八 生产 3) 
3 mynumbs (GelList，25) ; 
4 sub mynumbs (6$S;S$S) { # Matcnh the Prototypes 
号 my (SSscalacz)=pople ) 
6 my(earr) = 6 ， 
玉 TEN 
8 ES 本 二 由 下 和 
】} 
(ESSEE 


下 人 
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全 


8 


1. 这 里 是 一 个 原型 声明 , 期 望 输入 数组 、3 
2. 为 数组 @list 赋值 。 

3. 以 一 个 列表 和 标量 值 25 为 参数 调用 子 例 程 mynumbs。 
4. 定义 子 例 程 。 即 使 已 经 在 子 例 程 声明 的 第 一 行 

则 会 得 到 如 下 错误 背 息 ; 
EEOESOEVEe marsmaeen 


变量 或 者 可 选 


sub main::mynumbs (6@S$7S$) 


. 将 数组 @_ 的 剩余 元 素 赋 值 给 @arr。 
.打印 @arr 数组 的 内 容 。 
. 打印 标量 $scalar 的 值 。 


返回 值 


COOLON Cn 


11.2.2 


的 标量 。 这 里 的 分 号 表明 参数 是 可 选 的 。 


在 调用 子 例 程 原型 时 ， 无 需 使 用 区 符号 。 


中 创建 过 原型 , 也 必须 在 这 里 再 重复 一 遍 。 否 


VS none at Drototype line 19。 


.弹出 @_ 数 组 中 的 最 后 一 个 元 素 ， 并 赋值 给 标量 $scalar。 














值 运算 符 的 右 侧 调用 子 例 程 。 然 后 , 子 例 程 就 会 把 返回 值 传 
$average = &ave(3,5,6,20); 
返回 值 调用 子 例 程 
子 例 程 的 返回 值 是 其 中 最 后 一 个 表达 式 的 值 。 
此 外 ， 用 户 还 可 通过 return 困 数 返 
在 子 例 程 外 使 用 ，return 国 数 将 会 导致 致命 错误 。 可 以 这 权 








在 调用 时 ， 子 例 程 可 以 表现 得 类 似 于 国 数 ， 即 可 以 返回 一 个 标量 


回 指定 的 值 ， 或 者 根据 某 些 条 件 提 前 从 子 例 程 中 返 


革 或 列表 。 例 如 ， 用 户 可 以 在 赋 
递 给 运算 符 左 侧 的 标量 型 或 数组 型 变量 。 








回 。 如 果 
讲 : return 是 专门 用 于 子 例 程 的 ; 而 











则 是 专用 于 程序 主体 的 。 如 果 在 子 例 程 中 使 用 exit 国 数 ， 


则 会 退 





整个 程序 脚本 ， 并 返回 命令 和 


示例 11.14 


人 ES 
#! /Pbin/Pez1l 


Sub MAX 1{ 
贡 my(S$max) = shift(G@_ ) : 
包 EeeacheEoEse 葬 (大 0) 下 
了 Sa 三 SS 全 SmS 芭 全 OF 
NIL 5 
】 
通过 下着 让 ， 交 于 二 二 二 二 二 二 二 二 二 二 二 一 二 一 一 二 一 一 一 一 一 一 一 一 一 一 一 一 一 
4 Smax 
】} 
Sub MIN 1{ 

my(Smin) = PoP( 6 ):; 

EECISESOO ULC RU 
ma 
人 

] 

刘 革 亲 记 症 全 二 二 二 二 二 二 二 二 二 二 二 二 二 二 三 二 一 二 二 二 二 三 二 三 = 

zeturn Smin'; 

】} 
己 my $biggest = &MRX ( 2，3，4，10，100，1L 
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6 my $smallest= &MIN ( 200，2，12，40，2，20 ): 
可 Print "The biggest is $piggest and the smallest is S$Ssmallest.Nn"7 


OU 


浊 时 抽打 全 入 人 玫 二 三 及 是 ES 让 2 


解释 


一 


. 标量 $max 保存 着 数组 @_ 的 第 一 个 元 素 值 。my 国 数 使 Smax 成 为 该 子 例 程 的 局 部 变量 。 即 
使 在 子 例 程 中 修改 变量 $max， 也 不 会 影响 原 变量 值 。 

. 对 列表 中 的 每 个 元 素 ， 通 过 循环 将 其 元 素 值 赋 给 标量 $foo。 

. 如 果 $max 小 于 $ftoo， 则 让 $max 获得 $foo 变量 值 。 

. 由 于 子 例 程 MAX 的 最 后 一 个 语句 是 $max, 因此 返回 $max 的 值 , 并 在 第 5 行 赋值 给 $biggest。 

.把 MAX 子 例 程 中 最 后 一 个 表达 式 的 值 赋 给 标量 Sbiggest。 

.把 MIN 函数 的 返回 值 赋值 给 标量 $Ssmallest。 这 里 在 子 例 程 MIN 中 显 式 地 用 到 了 return 函数 。 


11.2.3 上下文 和 子 例 程 


在 讨论 变量 和 运算 符 时 ， 本 书 就 引入 了 “上 下 文 《Context)” 的 概念 。 这 里 将 介绍 如 何在 子 例 
程 中 使 用 上 下 文 。Perl 主要 提供 了 两 种 上 下 文 : 标量 型 上 下 文 和 列表 型 上 下 文 。 在 不 同 的 上 下 文 类 
型 中 ， 表 达 式 的 取 值 结果 也 将 表现 为 相应 的 类 型 。 

数组 赋值 和 标量 赋值 操作 提供 了 使 用 上 下 文 的 典型 场景 。 读 者 不 妨 先 看 下 面 这 个 示例 : 


从 上 hi 


























Qlist = qw( appbples pears peaches plLums ) # IISt ConteXxt 
Snumber = 1ist; # Scalar context 


在 列表 上 下 文中 ， 程 序 将 把 @list 赋值 为 一 组 数组 元 素 ， 而 在 标量 上 下 文中 ， 程 序 则 会 将 
$number 赋值 为 数组 @list 的 长 度 值 。 

此 外 ， 用 户 还 会 在 使 用 Perl 内 建国 数 时 接触 到 上 下 文 。 不 妨 以 localtime 函数 为 例 。 如 果 程 序 
将 其 返回 值 赋 予 一 个 标量 ， 则 国 数 会 把 日 期 和 时 间 值 以 字符 串 的 形式 返回 : 但 是 如 果 将 其 返回 值 赋 
予 一 个 数组 的 话 ， 则 函 数 会 返回 一 个 数组 ， 其 每 个 数组 元 素 分 别 是 代表 时 、 分 、 秒 的 数字 。 另 一 个 
示例 是 print 国 数 ， 该 函数 期 望 在 列表 上 下 文中 获得 一 系列 参数 。 用 户 可 以 借助 内 建 的 scalar 国 数 
显 式 地 在 标量 上 下 文中 计算 表达 式 的 值 ， 正 如 示例 11.5 所 示 。 












































示例 11.15 
# Coptext 
1 now = LocalLtime:; # IIst context 
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ZEOEnONWNDY 1 月 碟 ore 
3 S$now = LocalLtime: 
NT 
ETnEETIOcaLemeNn 是 忆 20CS 本 症 CE 区 
Print scalar LocalLtime,"\n"; # Forcea to sca7Iar context 
GE 


站 由 古 2 是 让 人 全 生生 大 2 和 
GE 必 二 人 全 人 用 岂 必 到 约 光 
0 本 本 0 

220 区 00 


示例 11.16 


# _ Context 
DERSNSISEE Se 计生 WaS 


Qnr 民 END 一 On 


2 ($first，S$middle，$1Last)=sP1Lit("”"，<STDIN>) :# S7TDTN scalar context 
证 人 NE 


(ESGEN) 
2 pa 工 5 Your 工 0J7I mame2 Daniel Teo Stachezin 
3 57 DanzeJy Stachey2n 


wantarray 国 数 和 用 户 自 定义 子 例 程 。 当 大 家 正在 为 某 个 故事 、 圣 经 问题 或 政治 演说 争论 不 休 
时 ， 可 能 会 说 :“ 他 说 的 话 根本 文 不 对 题 〈out of context) …… ”。 在 第 5 章 中 ， 我 们 已 经 讨论 了 有 
关上 下 文 的 知识 。 在 Perl 中 ， 上 下 文 决定 了 以 何 种 方式 对 变量 或 表达 式 求 值 。 例 如 : 上 下 文 究 竟 是 
列表 性 的 还 是 标量 性 的 ? 在 很 多 时 候 ， 用 户 往往 期 望 根据 调用 子 例 程 的 上 下 文 类 型 来 决定 子 例 程 的 
行为 模式 。 这 时 便 可 使 用 内 建 的 wantarray 国 数 。 通 过 该 函数 ,用 户 便 可 判断 子 例 程 的 返回 值 类 型 是 
列表 还 是 标量 。 如 果 在 列表 上 下 文中 调用 子 例 程 〈《 璧 如 将 返回 值 赋值 给 一 个 数组 ) 的 话 ， wantarray 
国 数 会 返回 true ; 反之 则 返回 false。 如 果 上 下 文 返回 值 为 空 〈 即 空 值 上 下 文 )， 则 wantarray 国 数 
将 返回 未 定义 值 。 


示例 11.17 


打 尼 SEE 下 
































EeeWnaEE CU 
chomp ($ftullname=<STDIN>) ; 


1 Garrayname = title($Eullname) ; # Context Is array 
Print "Welcome S$arrayname [0] S$arrayname [2]1!NXn"; 
Dunenas ce name 硬 cenaaoccke ycouasceaannogo 
chomp ($bookname=<STDIN>) ; 

2 $scalLarname = 七 ItLe ($bookname): 直 Context Is StrIDn9 
Pint "The book S$Sarrayname[0] is reading is $scalarname.Nn" 


3 Sub 七 Itlel 
站 UTC EC 有 人 全 记 E 生 用 25 二 CEEEEC ESE 天 生 CE 友 万 汪 让 忆 天 可 
大 本 着 志 本 0 六 E 基 7 总 和 二 2 人 人 7 
4 my Stext=ShIift7 
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my Snewstring'; 


5 myStext=1c(Stext) ， 
6 my Qnewtext=Ssplit(" "Stext)， # Create a 17Ist ofF Woras 
foreach my Sword ( newtext ){ 
SwWorzaQ = Ucfhizst(Sworca) Capztalzze the st Jete 天 
晶 Snewstring .= "Sword ") # Create aa title strIinG9 
) 
mewaeFay SG ARESEWSEEDOO)E 
8 让 
chop (Snewstring)7 # Removre tralilin9 whitespace 
久 return wantaLrray ? newarray : $newstring;  # Return either arFray 


# or scaJar basea on how the suproutine mwas cal1Jeda 


】} 
(GEREEE) 

What :Is you full name? zcopbezt james 上 taylLoFC 

WelLconme RobeEzt 了 Tayloz' 

What is the name of that book you are treading? harry Potter halE 
eexeye go op 二 0ex= 

nso5eokERcenes sse 由 rryRSEESEERSEEETSOSSRETCOC ER 


11.3 按 引用 调用 


11.3.1 符号 引用 一 typeglob 


定义 。typeglob 是 变量 的 别名 , 即 变 量 的 另 一 个 名 字 。 它 又 称 作 是 “符号 引用 ”类似 于 UNIX 
文件 系统 中 的 软 链接 。 如 要 创建 别名 ,可 在 实际 变量 的 前 面 加 上 一 个 “*?” 符 号 。 星 号 〈“*>”) 适用 
于 任意 类 型 的 变量 ， 包 括 标量 、 数 组 、 散 列 、 文 件 句 柄 和 子 例 程 等 。 别 名 是 符号 表 中 针对 同名 标识 
符 的 另外 一 个 名 称 。“typeglob” 这 个 名 字 的 来 历 是 : 它 能 以 同样 的 名 字 表 达 不 同 的 数据 类 型 。 例 
如 ，*name 既 可 以 表示 $name、@name， 也 可 表示 %name、&name 等 等 。 

别名 机 制 常 常 出 现在 早期 (Perl 4) 的 脚本 中 , 负责 按 引 用 进行 参数 传递 。 虽 然 现 在 Perl 提 
供 了 改进 的 硬 引用 机 制 〈 详 见 第 13 章 “ 这 个 功能 需要 用 到 引用 吗 ? ”), 但 用 户 仍 可 按照 以 往 的 
方式 使 用 typeglob 或 别名 机 制 。 鉴 于 早期 的 Perl 引入 了 大 量 含有 typeglob 机 制 的 库 ， 而 且 目 
前 在 为 程序 构建 符号 表 时 也 还 需要 用 到 它们 【〈 详 见 第 12 章 )， 因 此 本 章 还 将 对 它们 进行 详细 介 
绍 。( 如 需 了 解 如 何在 子 例 程 中 使 用 硬 引用 机 制 ， 请 阅读 “ 硬 引 用 一 指针 ”一 节 ， 完 整 内 容 请 参 
阅 第 13 章 )。 

通过 别名 按 引用 传递 。 用 户 可 将 别名 〈 或 typeglob) 传递 到 函数 中 ， 以 便 真 正 支持 按 引 用 传 
递 。 这 样 便 可 修改 全 局 变量 的 值 ， 而 不 是 修改 @_ 数组 中 的 局 部 副本 。 如 需 将 一 个 或 多 个 数组 传人 
某 个 国 数 的 话 ， 用 户 无 需 把 数组 的 全 部 内 容 一 一 传人 子 例 程 ， 而 是 可 以 传递 该 数组 的 别名 或 指针 
〈 详 见 “ 硬 引用 一 指针 ”一 节 )。 如 要 为 某 个 变量 创建 相应 的 别名 ,请 在 别名 的 名 称 前 面 加 上 一 个 星 
号 〈*) 字符 ， 如 下 所 示 : 


*alias = xVariable :， 


星 号 前 缀 代表 所 有 的 变量 类 型 ， 包 括 子 例 程 、 文 件 句柄 和 格式 。Typeglob 将 自动 产生 具有 相同 



























































200 


芝 忆 阐 





名 称 的 标量 值 ， 也 就 是 说 ， 它 会 “glob ”到 符号 表 中 具有 相同 名 字 的 所 有 符号 上 去 2。 这 里 由 程序 
员 自 行 决定 别名 应 该 引用 哪 种 符号 。 为 此 在 访问 别名 值 时 ， 读 者 应 当 在 别名 名 称 前 面 加 上 正确 的 前 
缀 字符 。 例 如 : 


Given : 


Then: 








*alias = xVaL 
S$Salias refers to the scalar SVaL 


Qalias refers to the array va 
S$Saliasfstring}j refers to an element of a hash 外 Var 


如 果 把 一 个 文件 句柄 传递 给 子 例 程 ， 也 可 通过 typeglob 实现 文件 句柄 的 本 地 化 。 

Perl 5 改进 了 原 有 的 别名 机 制 。 现 在 ,别名 可 以 仅 代表 单个 特殊 字符 ， 而 不 是 所 有 的 特殊 字符 。 
此 外 它 还 引入 了 另 一 种 更 为 方便 的 按 引 用 传递 的 方式 ， 称 为 硬 引用 〈hard reference)， 该 机 制 类 似 
于 C 语言 中 的 指针 。 

使 别名 私有 化 一 一 local 与 my。 通过 my 函数 创建 的 变量 名 称 并 不 保存 到 符号 表 中 ,而 是 位 于 
临时 缓冲 区 里 。my 函数 能 够 创建 专用 于 其 代码 块 的 私有 变量 。 由 于 typeglob 仅 能 关联 到 特定 包 的 





符号 表 上 ， 











因此 my 函数 不 能 对 它 进行 私有 化 。 如 要 让 typeglob 本 地 化 ， 必 须 使 用 local 函数 。 


示例 11.18 


esSercnotay 
要 愉 mSDTmEEET 


并 $colors="rainbow'" : 
现 Qcolors=("red"，"green"， "Yellow" ) : 
区 &PEiIntit(*colLors) : 上 
4 EDITET 
号 LIocal (*whichone)=Q@_ : 二 MSOSENOCE 
6 rm wonER RAY # Thphe PacKka9e Is mmaziDn 
则 S$whichone="Prism of Light": # a7ias For the scalar 
8 S$whichone [0]="PURPILE" ， # AIias For the array 
】} 
9 nEODEECEES OUEITESRAL 


有 OGANSCECOEORSETEEESCoEOSRNOD 
下 


Da 
6 辣 于 天 
引 OA 


IO 
ECVRRIEORSSED 帮 ED 


解释 


1. 将 标量 $colors 赋值 为 rainbow。 

2. 向 数组 @colors 赋予 三 个 值 : red、green 和 yellow 。 

3. 调用 子 例 程 printit。 将 所 有 别名 为 colors 的 符号 作为 参数 传递 给 该 子 例 程 。 这 里 通过 星 号 创 
建 别 名 (typeglob ) 。 

4. 定义 子 例 程 printit 。 

5. 数组 @_ 中 含有 需要 传递 的 别名 。 这 里 使 用 本 地 别名 *whichone 癌 它 赋值 。*whichone 现在 


是 colors 符号 的 另 一 个 别名 。 





台 ”这 和 文件 名 替换 时 执行 的 “glob” 操 作 〈 如 <p*>) 不 同 。 
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6. 如 果 在 这 里 打印 别名 本 身 的 值 ， 则 只 能 说 明 该 别名 位 于 main 包 中 ， 以 及 所 有 名 为 colors 的 


变量 、 子 合 程 和 文件 句柄 的 符号 。 


7. 向 该 别名 代表 的 标量 赋予 新 的 值 。 


8. 针对 该 别名 代表 的 数组 ， 为 其 第 


9. 退出 子 例 程 。 
10. 退出 子 例 程 。 此 时 ， 标 量 $colors 的 值 已 经 改变 。 
11. 退出 子 例 程 。 此 时 ， 数 组 @colors 的 值 已 经 改变 。 


示例 11.19 


人 se 





小 及 全 区 和 和 让 芝 二 帮 记 天 二 和 本 人 


一 个 元 素 赋 了 予 新 的 值 。 


Now UsIno9 L7pe9Jop 


arearesy 王 ae SEE AN 


DOPIUGS 工 DJ) 


<--- TIook phpere. Got poppea this tzime/ 


. 调用 子 例 程 params。 将 符号 表 中 对 应 于 mm 的 任意 一 个 别名 作为 参数 传递 给 该 子 例 程 。 


在 子 例 程 params 中 ， 将 别名 传递 给 @_ 数组。 将 该 值 赋予 本 地 别名 〈typeglob) *arr。 
. 打印 数组 @arr 的 值 。 请 记 住 : @arr 只 是 数组 @n 的 一 个 别名 ， 引 用 @n 数组 中 的 元 素 值 。 





站 Fa eme 瑟 SUmOSssT 
2 en = SP1Lit(' '，<STDIN>) ， 
马 &PaLrams (*Dm) : 
4 SRSESUSI 
四 LIocal (*arLz)=Q_ :， 
6 DIEInL "The Values of the 
及 ES 
8 ran 人 ES 
9 foreach $value(Qarr) 1 
人 Svalue+=57 
工 疙 ES 汪汪 IUSERNmO 
】} 
】} 
ES RN 
12 Print "The new values are 6n.N\n":; 
OUEoUE) 
孔 GIe me 5 Dnunrpers: II 2334 5 
6 The 7aJues In the Carr array are 1233425 
这 Tpe 矿 rst value 工 5 了 
8 Tnhe Jast vaJue Is5 5 
] 可 鹃 IE 昌 7 6 
7TPpe Value Is 7 
Tpe 7aJyJuae Is 8 
Tpe 7aJue Is5 9 
EEC 
12 The mnew vaJues are 6 7/ 8 9 
解释 
1. 要 求 用 户 提供 输入 。 
2. 基于 空白 字符 对 用 户 输入 内 容 进 行 拆 分 〈split)， 并 返回 给 数组 @n。 
引 
4. 定义 子 例 程 barams。 
洒 
0 
7. 打印 数组 的 第 一 个 元 素 。 
8. 弹出 数组 中 的 最 后 一 个 元 素 ， 而 不 只 是 引用 它 。 
多 


. foreach 循环 依次 把 数组 @arr 中 的 每 个 元 素 赋值 给 标量 $value 。 
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10. 将 数组 中 的 每 个 元 素 递增 5， 并 保存 到 标量 $Svalue。 
11. 打印 新 的 值 。 
12. 打印 出 来 的 值 表 明 : 该 国 数 通过 别名 修改 的 值 真 的 在 数组 @n 中 改变 了 。 请 参考 示例 11.6。 





通过 引用 传递 文件 句柄 。 如 要 直接 把 文件 句柄 传递 给 子 例 程 ， 惟 一 的 途径 就 是 通过 引用 。 用 
户 可 以 使 用 typeglob 为 文件 句柄 创建 别名 或 使 用 硬 引 用 《有 关 硬 引用 的 更 多 内 容 ， 详 见 第 13 章 )。 


示例 11.20 


人 Eee 


中 
邓 


| 
4 


解释 


| 属 
之 。 


3 
4. 


#!V/bin/pPer1l 


SEEnUREAEBMEEER ED 切 用 咱 ce 
&Lreadit (*RERADMEEIILE) # Passin9 a 万 1ehanaJe to aa Subproutine 
SuUb readiti 
Local (*myfile)=Q@_ :; # my 石 Je Is an al1ias 大 or 民 万 及 DIM 玉 FT 三 媚 
while (<myiLIe>) { 
| 


】 


open 函数 以 读 方 式 打开 UNIX 文件 如， 并 将 其 附加 给 文件 句柄 READEFILE。 

调用 子 例 程 readit。 这 里 通过 typeglob 为 文件 句柄 指定 一 个 别名 ， 并 将 其 作为 参数 传递 给 子 
例 程 。 

将 @_ 的 值 赋予 本 地 别名 myfile， 即 将 别名 传递 给 子 例 程 。 

别名 是 文件 句柄 READEFILE 的 另 一 个 名 字 , 位 于 角 括 号 之 间 。 然 后 通过 while 循环 逐 行 读 取 
文件 句柄 中 的 各 行内 容 ， 并 打印 之 。 


选择 性 别名 与 反 斜 杠 运算 符 。 Perl 5 的 引用 机 制 允 许 对 某 类 特定 变量 而 不 是 所 有 变量 类 型 使 用 
别名 。 例 如 ; 








*array=N\Q@array' 
xscalar=\SscalLar' 
*hash=\gsassoc_arrayi 
xfunc=N\&supbroutine:， 


示例 11.21 


ES 


全 己 


=JIUSN 


# References ana type9l1opb 
关 辣 晤 SS 二 2 全 和 ， 全 汪 全 汪汪 放 于 > 
天 隔 二 全 全 王 y 


二 SP 一 NS 二 元 大国 写 天 ”EECeony7EOR TEST as 二 
人 
RE # Not aa scalar reference 
Sub alias 1{ 
SC)REGOEF # Must use Jocal1，not 夯 Y 
IO 
easF 


) 
&alLias (*aLrLz) : # Ca7l1 the suproutine 
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几 0 DERIQTTSENDO 

1  S$num=57 

2  *scalar=\Snum:; # xscalar is aa reference to the scalIar Snum 
SESSIONR 

OUWEE) 


人 了 证 志 二 全 罗 


LO 





CL 
Cn 


审 


. 将 一 个 列表 赋值 给 数组 @list。 

. 为 标量 $list 赋值 。 

.别名 *arr 是 数组 @list 的 另 一 个 名 字 。 它 不 会 是 任何 其 他 类 型 的 别名 。 
. 通过 别名 *arr 引用 数组 @list。 

. 别名 *arr 不 引用 变量 。 这 里 不 会 打印 任何 内 容 。 

在 子 例 程 中 ， 局 部 变量 *a 接收 来 自 参 数 传递 的 别名 的 值 ， 并 贱 值 给 @_ 数 组 。 
. 通过 别名 为 数组 赋予 新 的 值 。 

. 通过 别名 弹出 数组 的 元 素 值 。 

. 调用 子 例 程 ， 并 把 别名 *atr 作为 参数 传递 。 

10. 打印 @list 的 值 ， 表 明子 例 程 所 作 的 修改 内 容 。 

11. 给 标量 Saum 赋值 。 

12. 创建 一 个 新 别名 。*scalar 只 引用 标量 $naum。 

13. 别名 只 是 标量 $aum 的 另 一 个 名 字 。 打 印 其 值 。 





MD oo ~ 了 了 ww 上 wb 一 


11.3.2 ” 硬 引 用 一 指针 


在 作 
有 关 


< 目 - 
变量 


中 的 


一 个 





在 按 引用 疝 子 例 程 传递 参数 时 ， 目 前 比 typeglobs 机 制 更 常用 到 的 途径 是 通过 指针 (pointer )。 
更 进一步 的 介绍 之 前 , 本 节 将 首先 定义 指针 及 其 格式 , 还 有 如 何 使 用 指针 。 然 后 提供 一 些 实例 。 
指针 使 用 方面 的 更 多 知识 ， 请 阅读 第 13 章 。 

定义 。 硬 引用 Chard reference)， 通 常 又 称 为 指针 〈pointer)， 是 含有 其 他 变量 地 址 的 标量 型 
。 用 户 可 通过 反 和 斜 枉 〈\) 运算 符 来 创建 指针 。 在 打印 指针 值 时 , 用 户 不 但 可 以 看 到 保存 在 指针 
十 六 进 制 地 址 ， 还 能 观察 到 驻 留 于 该 地 址 的 数据 类 型 。 

例如 ， 如 果 编 写 如 下 代码 : 


$p =\$name ; 








则 会 把 标量 $name 的 地 址 赋值 给 $p。$p 就 是 对 标量 Sname 的 引用 。 在 打印 时 ,$p 变量 值 的 格 
SCALAR (0xb057c )。 


由 于 指针 中 含有 地 址 信息 ， 因 此 可 用 于 按 引用 为 字符 串 传 递 参数 。 此 外 ， 由 于 指针 本 质 上 只 是 




















标量 型 变量 ， 而 非 typeglob 别名 ， 因 此 可 以 通过 my 函数 将 其 声明 为 专用 的 词法 变量 。 
my Sarrayptr=\Garray: # Creates aa Pointer to an array 

my S$scalarptr=\S$scalar; # Creates a Polinter to a sca 了 ar 

my S$hashptr=\sassoc_ array # creates a Pointer to a hasp 

my S$Sftuncptr=\&subroutine:， # Creates a Pointer to a SuUuproutine 
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访问 指针 地 址 。 如 果 打 印 指针 的 值 ， 就 会 看 到 一 串 地 址 。 如 果 需 要 获取 该 地 址 上 保存 的 值 ， 即 
按 地 址 访问 指针 ， 则 必须 使 用 两 个 特殊 符号 作为 指针 的 起 始 字符 。 一 个 是 美元 符号 〈$)， 由 于 指针 
本 身 是 标量 性 的 ， 因 此 位 于 指针 前 面 的 特殊 符号 表明 了 指针 的 数据 类 型 。 例 如 ， 如 果 $p 是 对 标量 
$x 的 引用 ， 则 $$p 就 能 获得 $x 的 值 ;， 如 果 $p 是 对 数组 @x 的 引用 ， 则 @S$p 将 得 到 @a 的 值 。 在 
上 述 两 个 示例 中 , 位 于 $p 前 面 的 特殊 符号 表明 了 它 所 指向 变量 的 数据 类 型 。 在 更 为 复杂 的 例子 中 ， 
用 户 还 可 使 用 箭头 《中 绥 ) 运算 符 〈 有 关 箭 头 运算 符 的 知识 请 参阅 “引用 和 芽 名 变量 ”一 节 )。 表 
11-1 给 出 了 一 些 创 建 指针 和 访问 指针 地 址 内 容 的 例子 。 




















一 


表 11-1 创建 指针 和 访问 指针 地 址 














赋值 创建 引用 访问 地 址 使 用 箭头 运算 符 访 问 地 址 
$sca=5; $p = \$sca print $$p; 
@arr = (4,5,6); 3$p = \@arT print @$p，; $p->[0] 


print $$p[0]; 
%hash=(key=>'value)); $p = \%hash Print %$p; $p->{key} 


print $$p{keyy》; 





示例 11.22 
ES 
#1V/Pbin/VPez1l 
Snum=5: 
SP = NS$num; # Thpe bacKksIash operator means "aaaaress of 
ONURNEEEswQSSSESSEDOUOEdEES TS USD NT 
Print "The value storeq at that addqress is $SP \n"7 


Oxb05a0 Oxb057c 


UNOTP 


Memory aadresses 


eBay) 
到 The aaaress assig9nea SP Is SCATAR(OXP057c) 
4 7TPe aue SoreaQ at tnpnat aaaress 1I15 5 
解释 





1. 把 标量 Snum 赋值 为 5。 

2. 把 $num 的 地 址 赋值 给 标量 Sp。 反 斜 杠 运算 符 在 这 里 负责 创建 引用 。$p 又 称 为 引用 或 指针 
〈 两 个 名 称 可 以 互 换 使 用 )。 

3. 打印 保存 在 $p 中 的 地 址 。Perl 还 给 出 其 变量 类 型 是 SCALAR。 

4. 如 要 根据 地 址 访问 $p 的 内 容 , 则 应 给 $p 加 上 另 一 个 美元 符号 〈$)。 这 个 额外 的 美元 符号 告 
诉 Perl 去 查找 $p 引用 的 变量 值 ， 即 Snum。 








示例 11.23 
SSE 
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业 Qtoys = qw( Buzzlightyear Woody Thomas Pokemon ) 
多 Snum = Qtoys'， 
二 GOTSE 作 SS 是 SF 全 下 双 玫 三 之 人 US 

TGSISD 三 之 汪 生 EC 

"Pokemon"=>"Japan"y 


) ;7 


4 S$refl = \S$num: # Scalar Poznter 

国 Sref2 = NGQtoys: # Array Pointer 

6 Sref3= \%movies: # Fasp Pointer 

咏 NETEESESSSeETEEOY SAN # Dereference Pointers 
8 ENEYXESEESR SeE2NO 

9 while( ($key，S$value) = each ( %$ref3 ) )1{ 

二 加 DPIint "S$Skey==-S$SvalueNn'n ; 


】 


11 print "His favorite toys are Sref2->[0] and $ref2->[3].\n"; 
12 Print "The Pokemon movie was made in $Sref3->{'Pokemon'}l.Nxn'"; 


ULGERUE) 
以 Tpere are 4 toys. 
8 Thpey are: BuZ2ZJIo9htyear Wooay 7homas PokemocDn . 
上 0 ia/ 玫 瑟 9oe 司 必 ore/ 
Pokemon--vapan 
3 
癌症 EC 
12 Thpe Pokemon movie was maae in vapan ， 


1. 将 一 个 列表 赋值 给 数组 @toys。 
将 标量 型 变量 $num 赋值 给 数组 @toys， 并 返回 数组 的 元 素 个 数 。 
. 为 散 列 型 变量 %movies 赋予 键 / 值 对 。 








. 引用 $ref2 是 一 个 标量 。 这 里 将 数组 @toys 的 地 址 赋值 给 它 
. 引用 $ref3 是 一 个 标量 。 这 里 将 散 列 变 量 %movies 的 地 址 赋值 给 它 





\D oo ~ 人 ww 上 局 


. 引用 $refl 是 一 个 标量 。 这 里 将 标量 $num 的 地 址 赋值 给 它 。 反 和 斜 杠 运算 符 用 于 创建 引用 。 


. 按 地 址 访问 引用 ， 即 : 跳 转 到 $refl 指向 的 地 址 ， 然 后 打印 保存 在 该 地 址 的 标量 内 容 。 
. 按 地 址 访问 引用 ， 即 : 跳 转 到 $ref2 指向 的 地 址 ， 然 后 获取 数组 并 打印 其 内 容 。 





. 内 建 的 each 函数 负责 从 散 列 中 获取 键 和 值 。 散 列 型 指针 $ref3 的 前 








1 带 有 百 分 号 %, 也 就 是 





说 ， 本 行将 根据 地 址 访问 散 列 指针 的 内 容 。 
10. 从 散 列 变量 %movies 中 打印 所 有 键 / 值 对 。 


11. 按 地址 访问 指针 ,， 并 获得 数组 的 第 一 个 和 第 四 个 元 素 。 阁 要 按 地 址 访问 数组 中 的 指针 ， 可 
以 使 用 箭头 运算 符 和 数组 元 素 下 标 。 此 外 还 可 使 用 形 如 $$ref2[0] 或 $$ref2[3] 的 格式 ， 不 过 


这 种 格式 读 写 起 来 都 不 大 方便 。 


12. 通过 箭头 运算 符 访问 指针 地 址 内 容 。 这 里 用 花 括 号 围 住 散 列 值 。 此 外 还 可 使 用 形 如 叹 reB Pokemon} 





的 格式 。 


指针 参数 。 当 一 个 子 例 程 接收 参数 时 ， 便 会 把 参数 保存 到 @_ 特殊 数组 中 。 例 如 ， 当 把 两 个 
数组 同时 传递 给 一 个 子 例 程 时 ， 这 两 个 数组 都 将 保存 到 @_ 特殊 数组 中 ， 并 连接 成 单个 列表 。 如 有 果 








不 知道 其 中 前 一 个 数组 长 度 的 话 ， 基 本 上 就 不 可 能 再 拆 开 这 两 个 数组 了 。 不 过 ， 如 果 传 递 给 子 例 程 























的 是 两 个 指针 ， 分 别 含 有 这 两 个 数组 地 址 的 话 ， 就 可 以 方便 地 实现 数组 内 容 的 分 离 ， 并 能 按 地 址 访 


问 数组 内 容 了 。 详 见 示例 11.24。 
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示例 11.24 


(IThe Script) 
# Passin9 Py reference with Pointers 
SEE 三 和 
是 | 有 A 二 双 攻 三 和 (二 天 全 攻 了 人 及 


3 disPLay(61ListL，QGlList2):; # Pass two arrayS 
全 


4 disPlay(\@lLlistl，Nelist2); # Pass two Pointers 


5 Sub disPlLayi{ 
PEnEIJGEND 
) 


Ceweewey 

3 2 
.52 0 有 9 二 2 瑟 2 3 
5 


<ContIinues> 


人 
全 汪 二 和 放 和 0 


了 ARRAY(OXI82e048) ARRAY7(OXI82ea38) 


把 指针 传递 给 子 例 程 





示例 11.25 


全 
# TIzs SCcrIzpt Gemonstrates the Use of hara references 
# wpemn PassIin9 arrays。 TITnsteaa of passin9 the entIre 
# arrayra hara reference (pointer) Is Passea. 
# The vaJue of the Jast expression Is returneaQ. 


到 


六 全 二 作风 二 
和 和 二 证 罗 二 化 瑟 人 有 下 3 用 仙 有 


STEELREDEOTSaGQqaemnapNGIas 上 上 TANQLS 上 2 RN 
# 上 wo Poznpters 
4 sub addemup{w 2 SS 
my( S$SarLEl， sarz 名 三 碍 (Shi 七 ESDhI 人 七 ) 玉 # The 上 two Pointers 
# are SnhIEtea Eromn @ 


人 Cn 


6 IESEGE 三 0 
7 Ti 

8 人 

9 foreach Snum ( QS$Sarz1l,QGS$Sarrz2 )1{ # aereference the Pointers 
人 Stotal+=Snumy; 

外 让 StotalL: 上 The expression is evaluatea ana returneda 

】} 
SEE 


( 

7 ARRAY(OX8a62a658) 
7 ARRAY(OX8a60F2c) 
隐 


ee 0O 
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二 UP 一 证 


(LA 


\D oo ~ 了 


1 
1 


1 1.3 


. 为 数组 @listl 赋予 1 到 100 之 间 的 值 。 

. 将 四 个 值 赋予 数组 @list2 。 

. 以 两 个 参数 调用 子 例 程 &addemp 。 本 行 的 反 和 斜 杠 用 于 创建 指针 ， 以 便 传 递 @listlL 和 @list2 
的 地 址 。 

. 声明 子 例 程 &addemp。 

.数组 @_ 中 售 有 刚刚 传人 的 两 个 参数 。 将 参数 从 数组 @_ 转移 到 my 变量 $arrl 与 $arr2 中 ， 
它们 都 是 指针 。 

. 为 $total 赋予 初始 值 0。 

. 打印 指针 值 。 该 指针 指向 数组 @list1 。 

. 打印 指针 值 。 该 指针 指向 数组 @list2 。 

. 进入 foreach 循环 , 通过 按 地 址 访问 指针 的 方式 依次 把 @listl 中 的 每 个 元 素 赋 值 给 Snum, 直 
到 数组 中 所 有 元 素 都 处 理 完毕 。 

0. 将 $num 的 每 个 变量 值 相 加 ， 并 赋值 给 $total 中 ， 直 到 循环 执行 完毕 。 

1. 在 第 3 行 返回 $total 的 总 和 。 然 后 将 该 值 作 为 参数 传 给 print 国 数 打印 出 来 。 


3 自动 加 载 








Perl 的 AUTOLOAD 函数 能 检查 是 否定 义 了 子 例 程 。 当 程序 要 求 调用 子 例 程 , 同时 又 没有 找到 
该 子 例 程 的 定义 时 ,就 会 去 调用 AUTOLOAD 子 例 程 。 然 后 还 会 把 未 定义 的 子 例 程 名 称 赋 值 给 特殊 
变量 $SAUTOLOAD 。 

此 外 ，AUTOLOAD 国 数 还 可 用 在 对 象 中 ， 提 供 了 调用 匿名 方法 (anonymous method) 的 实现 


机 制 





《方法 是 面向 对 象 语 境 中 子 例 程 的 另 一 种 称呼 )。 











示例 11.26 


( 


Eee 
#!V/bin/pPer1l 


下 Sub AUTOLORAD 1{ 
色 my (Qarguments)=Q@ :， 
司 SarosEJicarEL GonenEEE 
4 Print "$AUTOLORD was never definedq.Nn"; 
司 Print "The arguments passedq were S$args.Nn"; 
】 
6 SadriVver="Joqdqy"7 
Smiles=50: 
S$Sdg9al1lons=5;” 
到 &mileage($driver，S$Smiles，S$Sgallons); # Call to an unaeftnea 
# SUProutIzne 
(GEGE) 
4 1smneemnaneazeiras aee ae 方 2eQc 
配 Tpe ar9umrentLts DasseaQa Were JoaQy，50，25. 
习 


义 子 例 程 AUTOLOAD 。 


尘 
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2. 调用 子 例 程 AUTOLOAD， 其 参数 与 第 7 行 中 调用 原 有 子 例 程 的 参数 相同 。 
3. 通过 喜 号 连接 各 个 参数 ， 并 将 它们 保存 到 标量 $args 中 。 
4. 把 原 有 的 包 和 调用 的 子 例 程 名 保存 到 标量 $SAUTOLOAD 中 “〈 对 于 本 例 而 言 , 默 认 包 名 是 main ) 。 
5. 打印 参数 。 
6. 对 标量 型 变量 进行 研 值 。 
7. 通过 三 个 参数 调用 子 例 程 meleage。 如 果 需 要 调用 尚未 定义 的 子 例 程 ,Perl 便 会 自动 调用 AUTOLOAD 


国 数 ， 其 传递 的 参数 和 传 给 子 例 程 mileage 的 参数 相同 。 


示例 11.27 


心 WO 上 


GUI 


#1/bin/Pez1l 
02 


Sub AUTOLORAD 1{ 
my(earxguments) = Q ， 
my(Spackage，S$command)=split("::"/S$SAUTOLORD ，2) ; 
return '!S$Scommand Garguments ' ; # Commana supbstitutioDn 
S$Sday=dqate ("+g&D" ) ; # aate Is an unaeNnea suproutzine 
RE 
TFICalSR2O0O7A 本 # cal Is an unaetnea suproutine 
OUEUL) 


0 


S 


济 
当 


解释 


amEGm 丁 20 
国生 定向 和 必 
2 
ZE 2 2 
后 
CE 
本 2 史 攻 必 关 和 过 古 区 区 


1. 定义 子 例 程 AUTOLOAD。 
2. 调用 子 例 程 AUTOLOAD， 其 参数 与 第 5 行 、 第 7 行 中 调用 原 有 子 例 程 的 参数 相同 。 
3. 借助 双 冒 号 〈::) 定 界 符 将 变量 AUTIOLOAD 的 内 容 拆 分 〈split) 为 两 个 部 分 。 返 回 的 数组 


含有 两 个 元 素 : 包 名 (package name) 和 调用 的 子 例 程 名 。 


.返回 值 是 调用 函数 的 名 称 ， 在 第 一 种 情况 下 是 一 个 UNIX 命令 及 其 参数， 这 里 的 反 引 号 将 使 





其 中 的 字符 串 以 UNIX 命令 格式 执行 。 


. 本 示例 没有 定义 子 例 程 date。 因 此 AUTOLOAD 将 找到 其 名 字 , 并 在 AUTOLOAD 函数 中 将 


它 赋值 给 $AUTOLOAD 。 国 数 date 接收 一 个 参数 ， 即 参数 +%D 。 该 参数 也 是 UNIX 命令 
date 支持 的 参数 ， 它 表示 返回 当前 的 日 期 值 。 





. 打印 返回 值 内容 。 
. 本 示例 没有 定义 子 例 程 cal。 它 接收 两 个 参数 。AUTOLOAD 将 cal 赋值 给 $AUTOLOAD 。 其 





参数 是 赋予 数组 @arguments 的 3 和 2003 。 将 参数 传递 给 AUTOLOAD 国 数 ,并 在 第 4 行使 
用 它 。 在 变量 替换 完毕 后 , 反 引 号 将 执行 位 于 其 中 的 字符 串 。 即 : 执行 UNIX 命令 cal 3 2003， 
并 将 结果 返回 给 print 国 数 。 
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11.3.4 BEGIN 和 END 子 例 程 《 开 始 与 结束 ) 


这 里 的 BEGIN 和 END 函数 会 让 UNIX 程序 员 回 忆 起 awk 编程 语言 中 的 BEGIN 和 END 模式 。 
对 于 C++ 程序 员 而 言 ， 可 以 把 BEGIN 看 作 是 构造 国 数 ， 并 把 END 看 作 是 析 构 函数 。BEGIN 和 
END 函数 的 功能 与 它们 相似 。 

BEGIN 子 例 程 将 在 程序 开头 立刻 执行 ,甚至 优先 于 程序 中 其 他 部 分 的 解析 工作 。 如 果 提 供 了 多 
个 BEGIN 函数 的 话 ， 则 按照 它们 定义 的 顺序 依次 执行 
当 所 有 任务 完成 之 后 ， 程 序 便 会 执行 END 子 例 程 。 甚至 在 通过 die 函数 退出 程序 时 也 是 如 此 。 
多 个 END 函数 将 按 相 反 的 顺序 予以 执行 
在 使 用 这 些 特殊 子 例 程 时 ， 用 户 必 须 提供 关键 字 subp。 


示例 11.28 


#1/bin/Pez1l 
非 0 EOEaemaomnSE ae 要 有 GTN ESD CENDS 二 DUOeE 



































山 是 S 让 全 让 中 Eeeamerea SN 

本 BEGIN{ Print "Welcome to my Program.Nn" }: 

S; END{ Pint "Bailing out somewhere near Line "， IINE 
ESOEIIOmORNTO ID 

人 EGRE 


WeJcome to 了 7 RPRrooran。 
Ce 本 caoNO 汪 SEO 有 多 天 克 
瑟 本 ESOmeneeDes 量 是 本 5 5 本 ODS 


解释 
1. 尝试 把 目录 改名 为 /stuff。 这 里 chdir 执行 失败 ， 因 此 会 调用 die 函数 。 在 一 般 情 况 下 ， 程 序 
会 立刻 退出 。 但 是 这 里 定义 了 一 个 END 子 例 程 ， 因 此 在 退出 程序 前 必须 首先 执行 END。 
2. 尽快 执行 BEGIN 子 例 程 ， 即 在 定义 后 马上 执行 它 。 该 子 例 程 将 在 程序 其 他 部 分 执行 之 前 就 
予以 执行 
3. 在 退出 程序 时 ， 始 终 需 要 执行 END 子 例 程 ， 即 便 在 调用 die 国 数 时 也 是 如 此 。 这 里 只 是 为 
awk 程序 员 打 印 一 行 信息 。 








11.3.5 subs 函数 














subs 国 数 用 于 预先 声明 子 例 程 。 其 参数 是 子 例 程 的 列表 。 这 样 一 来 , 即便 不 用 文 和 括号 , 用 户 
也 能 调用 子 例 程 ， 并 能 覆盖 内 建 的 Perl 函数 。 


示例 11.29 


#!V/bin/pPer1l 
# TYpe sups moaule 
站 Use Subs qw(Eunl Eun2 ) : 








测 EUTHR 
S; Enm25 


4 SR 王 可 并 4 
EGR 
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】 
己 本 加 且 有 站 尼 中 
六 
】} 
(GEGIE) 
加 丽人 7 
2 


1 


运 汪 
二 
人 


1 
1 
1 


11.5 


MD oo ~ 人 下 上 mb 一 


. 加 载 sub 模块 〈 详 见 “use 国 数 〈 模 块 与 程序 )” 一 市 )， 并 给 出 子 例 程 列表 。 
. 既 不 通过 区， 也 不 使 用 括号 ， 调 用 子 例 程 ftnl1， 因 为 它 位 于 subs 列表 中 。 之 后 定义 该 国 数 。 
. 在 定义 之 前 调用 fun2。 


读者 应 当 学 到 的 知识 


. 如 何 定义 和 调用 子 例 程 (subroutine) ? 

函数 〈function) 和 子 例 程 之 间 有 什么 差别 ? 

在 Perl 脚本 中 ， 可 以 将 子 侈 程 的 定义 放 在 哪里 ? 
. 如 何 把 参数 传递 给 子 例 程 ? 

. Perl 是 如 何 检索 参数 列表 的 ? 

. 全 局 变量 和 局 部 变量 有 什么 异同 ? 

. 按 值 传递 和 按 引 用 传递 方式 有 什么 不 同 ? 

. 硬 引 用 (hard reference) 的 另 一 个 名 称 是 什么 ? 
. 什么 是 typeglob ? 

0. return 语句 有 什么 重要 性 ? 

1. 什么 是 原型 (prototype) ? 

2. 什么 是 自动 加 载 (autoloading) ? 




















下 章 简介 


在 下 一 章 内 容 中 ， 读 者 将 扬帆 远航 ， 从 “入 门 级 ”Perl 程序 员 迈 向 “高 级 ”程序 员 水 平 。 我 们 





将 不 





再 编写 扳 立 的 小 脚本 , 而 是 开始 学 习 如 何 使 用 Perl 业已 提供 的 库 和 模块 。 读 者 将 浏览 CPAN 内 




















容 ， 并 学 习 如 何 下载 和 使 用 其 他 程序 员 编 写 好 的 模块 。 
此 外 ， 读 者 还 将 了 解 有 关 包 《〈package) 和 命名 空间 (namespace)、 如 何 导出 〈export) / 导入 








Cimport) 符号 、 如 何 使 用 Perl 标准 库 、 以 及 如 何 创建 自 定 义 库 等 方面 的 知识 。 最 后 还 会 学 习 如 何 
创建 过 程 模 块 (procedural module)， 以 及 如 何 保存 并 使 用 这 些 模块 。 





练习 











11 不 可 或 缺 的 子 例 程 


1. 编写 一 段 名 叫 tripper 的 程序 ， 要 求 用 户 输入 驾驶 里 程 和 耗 用 的 汽油 数目 。 在 tripper 中 ， 编 写 一 
个 子 例 程 mileage, 计算 用 户 驾驶 的 耗 油 率 《〈 每 加 仑 油 的 公里 数 )。 该 程序 的 参数 是 行驶 里 程 数 和 
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耗 用 的 汽油 量 。 所 有 变量 都 应 当 是 my 变量 。 最 后 打印 计算 结果 。 在 程序 中 应 当 提供 tripper 的 
原型 。 
2. 酒店 通常 都 是 根据 代表 其 等 级 的 星 级 情况 来 收费 的 。 一 个 五 星 级 酒店 里 可 能 有 特大 床 、 厨 房 、 两 
个 电视 ;而 一 星 级 酒店 中 就 可 能 只 有 镑 娜 和 漏水 的 屋顶 。 编 写 一 个 名 叫 printstar 的 子 例 程 ， 生 成 
下 列 散 列 变量 中 各 酒店 的 星 级 收费 结果 。printstar 函数 接受 两 个 参数 酒店 名 字 和 星 级 数 。( 小 提 
示 : 可 以 将 散 列 的 键 排列 为 数组 ， 然 后 循环 遍历 所 有 的 键 ， 并 对 每 一 次 循环 调用 printstar 函数 )。 






































心 


shotels=("Pil1lowmint Lodqge" => "5"7v 


"BuUxton Suitesn" 三 
"The Midadletonian" => "3"， 
"Notchpbe1lown 二 芝 让 人 nm 
"Ranehnhec 瑟 1 Cheapcnm => "二 "7 
"Pile Innynm 三 汶 、 下 多 1 
藉 : 
(OUTEUT》 
Hote1l Category 
Notchbelow | 六 六 六 六 | 
The Middletonian | 大 大 大 | 
Pillowmint Lodqge | 太太 大 大 六 | 
Pile Inn | 太太 | 
Rancho 了 1 Cheapo | * | 
Buxton Suites | 六 关 火炎 六 | 


将 酒店 按 星 级 排序 ， 五 星 级 最 前 ， 一 星 级 最 后 。 
3. 编写 一 段 名 为 grades 的 程序 , 以 课程 编号 和 学 生 姓 名 作为 参数 。 课 程 编 号 包括 CS101、CS202 和 
CS303 。 该 程序 包含 三 个 子 例 程 : 
a. 子 例 程 ave 负责 计算 一 组 成 绩 的 平均 值 。 
b. 子 例 程 highest 负责 计算 该 组 成 绩 的 最 大 值 。 
c. 子 例 程 l1owest 负责 计算 该 组 成 绩 的 最 小 值 。 
打印 平均 值 、 最 大 值 和 最 小 值 。 如 有 不 及 格 《〈 平 均值 低 于 60) 的 情况 ， 则 癌 STDERR 打印 该 同 
学 的 姓名 、 课 程 编号 和 相应 的 警告 信息 ， 如 : Be advised: Joe Blow failed CS202。 然 后 ， 把 不 
及 格 同学 的 姓名 与 课程 编号 发 送 到 文件 failures 中 ， 并 按照 成 绩 顺 序 进 行 排序 。 
使 用 AUTOLOAD 数 检查 每 个 子 例 程 是 否 已 经 定义 。 





第 12 章 模块 化 、 打 包 并 发 送 到 库 


12.1 包 和 模块 


12.1.1 引言 








在 下 面 几 节 中 , 我 们 将 讨论 标准 Perl 库 中 的 包 和 模块 以 及 如 何 使 用 它们 。 目 前 许多 模块 都 使 用 
面向 对 象 的 方法 进行 程序 设计 ， 本 书 将 在 第 14 章 中 了 予以 讨论 ， 并 介绍 诸如 类 、 对 象 和 方法 之 类 的 
术语 。 本 章 重 点 介绍 面向 国 数 的 模块 和 库 ， 以 及 如 何 使 用 与 创建 它们 。 本 章 还 将 介绍 如 何 从 CPAN 
CComprehensive Perl Archive Network，Perl 综合 文档 网 ) 获取 模块 ， 在 第 14、15 和 18 章 中 将 更 
详细 地 介绍 如 何 安装 和 使 用 CPAN 模块 。 






































12.1.2 ”一 个 类 比 








两 个 孩子 都 有 一 盒 乐 高 积木 玩具 。 其 中 一 套 乐高 积木 可 以 建 一 稻 船 ， 另 一 套 可 以 建 一 架 飞 机 。 
这 两 个 孩子 打开 盒子 并 把 其 中 的 积木 撒 在 地 板 上 ， 它 们 混在 一 起 。 乐 高 积木 块 具有 不 同 的 形状 和 颜 
色 。 两 个 盒子 中 都 有 黄色 的 方块 、 红 色 的 三 角 块 和 蓝 色 的 矩形 块 ， 但 是 它们 现在 混在 了 一 起 ， 很 难 
分 清 哪 些 应 该 用 于 造 飞机 ， 哪 些 应 用 于 造船 。 如 果 这 些 积木 都 放 在 它们 单独 的 盒子 里 ， 那 就 始终 不 
会 出 现 这 种 混 消 情况 了 。 
在 Perl 中 ， 这 些 单独 的 盒子 称 为 包 〈package)， 乐 高 积木 块 则 称 为 符号 〈symbol);， 即 变量 和 
常量 的 名 称 。 通 过 把 符号 保存 在 它们 自己 的 私有 包 中 ， 用 户 便 可 在 程序 中 导入 库 模 块 和 例 程 ， 从 而 
避免 变量 名 与 所 包含 的 模块 或 库 文件 中 的 命名 发 生 冲 突 。 












































12.1.3 定义 


将 数据 和 函数 包装 到 单独 的 命名 空间 中 称 为 封装 “encapsulation) (C++ 程序 员 称 之 为 类 
《class)， 面 向 对 象 的 Perl 程序 员 也 称 之 为 类 )。 单 独 的 命名 空间 又 称 作 是 包 (package)。 单 独 的 命 
名 空间 意味 着 : 对 于 命名 包 中 所 有 的 变量 ，Perl 都 持 有 一 个 单独 的 符号 表 。 默 认 的 当前 包 是 main 
包 。 迄 今 为 止 所 有 的 示例 脚本 都 位 于 包 main 中 。 在 默认 情况 下 , 包 内 所 有 的 变量 都 是 全 局 变量 。 包 
机 制 允 许 用 户 切 换 命名 空间 ， 从 而 让 包 中 的 变量 成 为 私有 变量 ， 即 使 它们 在 包 外 拥有 相同 的 名 称 也 
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可 如 此 【参见 图 12-1 ) 。 


friend 包 


S$x=5; 














鸭 12-1 每 个 包 都 有 它 自 己 的 命名 空间 〈 符 号 表 


包 的 作用 域 是 从 声明 位 置 一 直到 文件 末尾 ` 最 内 层 封 闲 块 的 末尾 , 或 者 直到 另 一 个 包 的 声明 为 止 。 
包 的 作用 域 通 常 就 等 于 文件 的 作用 域 。 如 要 引用 另 一 个 包 中 的 变量 , 用 户 可 以 在 包 名 前 面 加 上 代表 变 
量 数据 类 型 的 特殊 字符 作为 前 绥 ， 随 后 提供 双 冒 号 和 变量 名 。 在 老 版 本 的 Perl 4 中 ， 可 使 用 搬 号 代替 
上 述 冒 号 9 〈( 双 冒号 令 人 想起 C++ 中 的 作用 域 解析 运算 符 )。 在 引用 main 包 时 ， 还 可 以 删除 包 名 。 

Perl 5 将 包 的 概念 扩展 成 了 模块 “module )。 模 块 通常 是 在 库 中 定义 且 可 重用 的 包 。 模 块 要 比 
简单 的 包 更 为 复杂 。 它 们 能 够 把 符号 导出 到 其 他 包 中 ,并且 可 以 与 类 和 方法 协同 工作 。 模 块 是 一 种 
保存 在 文件 中 的 包 ， 只 需 在 文件 名 后 面 追 加 .pm 扩展 名 就 构成 了 模块 名 。Use 国 数 以 模块 名 作为 参 
数 ， 负 责 把 该 模块 加 载 到 脚本 中 。 

S$package 'Vvariable 

Spbackadgde::variable 


Smain::variable 
S$::variable 


12.1.4 ”符号 表 


在 编译 程序 时 ， 编 译 器 必须 记录 使 用 的 所 有 变量 名 、 文 件 句柄 、 目 录 名 柄 、 格 式 和 子 例 程 。Perl 
将 这 些 符号 的 名 称 作为 键 存储 在 每 个 包 的 散 列 表 中 。 散 列 的 名 称 与 包 名 相同 。 与 散 列 键 相关 联 的 值 
是 对 应 的 typeglob 值 , 又 称 为 别名 (Calias )。typeglob 会 “glob” 所 有 可 用 符号 名 称 表达 的 类 型 〈 参 
见 第 11 章 中 关于 别名 和 typeglob 的 介绍 )。 对 于 用 相同 名 称 表示 的 每 个 值 , Perl 实际 上 会 创建 单独 
的 内 部 指针 〈 人 参见 图 12-2 ) 。 

每 个 包 都 有 它 自 己 的 符号 表 。 无 论 何 时 使 用 包 声 明 ， 都 要 切换 到 该 包 的 符号 表 。 

用 户 可 通过 双 冒 号 〈::) 用 包 名 限定 某 个 由 local 函数 赋值 的 变量 , 从 而 实现 在 另 一 个 包 中 访问 
该 变量 。 此 时 该 变量 仍 在 作用 域内 ， 并 可 从 主 符号 表 中 访问 它 。 

由 my 函数 赋值 的 变量 将 不 能 从 其 所 在 包 的 外 面 访问 。 它 们 并 没有 存储 在 包 符 号 表 中 ， 而 是 存 
储 在 为 每 个 调用 子 例 程 创建 的 专用 缓冲 区 里 。 因 此 , 在 使 用 “my” 变 量 时 , 用 户 将 无 法 通过 包 的 符 
号 表 来 访问 它们 ， 因 为 它们 根本 不 在 那里 ! 
在 下 面 的 示例 中 ， 读 者 将 注意 到 main 包 不 但 保存 了 程序 提供 的 符号 ， 还 保存 了 其 他 一 些 符号 ， 
如 STDIN、STDOUT、STDERR、ARGV、ARGVOUT、ENV 和 SIG 等 。 这 些 符号 和 特殊 变量 〈 如 
$ 和 $!) 都 是 强制 保存 在 包 main 里 的 。 除 非 进行 限定 ， 否 则 其 他 包 也 可 以 引用 这 些 符 号 。 示 例 
12.1 显示 了 main 包 的 符号 表 的 内 容 。 





生态 





































































































加 从 版 本 5.003 起 ， 在 Perl 5 脚本 中 仍然 接受 抠 号 。 
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变量 
SXx (SCRALRAR) 
图 12-2 ”每 个 符号 都 被 赋予 一 个 typeglob 〈 即 *x)， 它 表示 所 有 名 为 x 的 类 型 
示例 12.1 

(ESG 

#1V/bin/pPper1l 

# 井 PacKka9e mazDn 
孔 SS ES 
2 use WwWacnings:， 
名 our ( friends，dogs，S$Skey，S$Svalue ) # DecJarzn9 variaples 
4 my(S$name, SPal ,Smoney) ; 
枉 Sname="Susanne": 
6 Qftrienas=qw(Joe Jeff Jan ) : 
机 es 三 SUEUYSCnTSTES UnCI)E 
8 local S$main::dude="Ernie" # KeePpP strict Pappy 
多 myEESReul 呈 na 井 Not Im the SympboJI tapJe 
10 my S$money = 1000: 
11 while((S$key，S$Svalue) = each (smain::))({ 

# ZIook at main's Symbol tablJe 
PEint "Skey:NXtSvalueNn"; 

上 
(esiey 
Name "manauae" usea onlJy once: possipJe typo at packa9es 1ine 0. 
点 克 DO GD 
Q@: 灶 历 三 于 姜 瑟 JJ 
ARGV: IE 且 遇 和 人 公交 
这 世 > 0 
四 本 
Gae xmazDnz:auae 
大 证 让 030 SS 全 
JE WE 证 证 5 Js 
业 这 ED 
总 本 加 计生 全 0 
ee 全 9 生 全 必 放 2 
TANV ROSA 全 必 刷 癌 汪 区 风 记 国人 克 和 首 时 
3 汪 疝 风光 让 让 
VaJdJuey xmaznx27vaJyue 
网 交行 囊 而 加 瑟 必 全 区 站 本 状语 风 六 矶 王 天 训 忆 可 
3 VE 有 证 9EE 2 
RTV 局 证 全 90 语 故人 力 is 
SG ET 


五 和 DOFLEGEm 种 交 隐 加 玫 人 2 
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六 司 罗 全 放生 
DIS 
:五 GTN 
QQe7 
NE 


和 
DA7TA 
人 罗 本 


5 
OO 
和 
:NT 
5ielaeSs 
EEC 区 
Go 
8 
人 RE 
2 

了 
:Er7Tenas 


ER 


: STDRERR 


全 区 司机 9 半 
[0 0 
BEGIN: 这 
StLQeCzI: 鸭 亲 司机 的 于 
光 愉 人 2 区 二 下放 
局 癌 计生 
本 二 辣 三光 
DATA: 有 
本 区 0 
和 xmazDmy: 
EQOELEE WE 请 5 醒 
下 人 汪汪 证 
厂 NV: 本 于 
Goes 了 
SEE E0 
矶 0 区 站 总 百 的 区 
人 人 05 本 
区 OOR 有 3 为 站 癌症 于 
7 x*7mazDmy: 
呈 多 汪 辣 9 琶 
ES 古本 
人 
了 帮 RRRe 为 们 司 剖 
人 区 池 IE 用 5 了 


IE 放生 


1. 除非 有 全 局 变量 ， 


\D oo ~ 人 下 ww 上 局 


缓冲 区 里 。 


否则 会 打开 strict 编译 指示 〈pragma ) 。 

. 如 果 有 裸 字 (bareword)、 未 初始 化 的 变量 等 ，warnings 编译 指示 就 会 发 出 警告 。 

. 声明 一 个 全 局 的 词法 变量 out。strict 编译 指示 将 不 会 把 它们 当 作 全 局 变量 。 

. 声明 具有 词法 作用 域 的 变量 my。 

.给 my 变量 $name 赋值 Susanne。 

, 贼 予 数 组 @friends 一 个 名 字 列 表 。 

. 赋予 数组 @dogs 一 个 列表 。 

. 为 了 防止 strict 编译 指示 报错 ， 必 须 使 用 包 名 来 完全 限定 local 变量 $dude。 

. 给 词法 作用 域内 的 my 变量 赋值 。 该 变量 将 不 会 出 现在 符号 表 中 。 它 将 保存 在 代码 块 的 特殊 


10. 这 个 my 变量 也 不 会 出 现在 符号 表 中 。 
11. 打印 main 符号 表 的 键 和 值 。 键 是 标识 符 的 名 称 ， 值 是 对 应 的 typeglob 值 。 


示例 12.2 


sshy 


# Defau7t Package 工 S 页 am 


下 Qtown = 
$Eriend="MarYy" : 


1 
Package boy: 
Sname="StevVe" 


oo ~ 性 WwW 


Gqw(Boston Chico TamPa) : 


SEE 


# PacKka9e aecJaratioDn 


ED 
Smain: :friend="Patricia" : 
TENGESWE ECEONRNNDD 
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久 Package main': # PacKka9e aecJIaratioDn 
10 rint "II malin: \Sname is $nameNn" 
11 Print "In main: \S$name is $boy: :name\n" 
INSERTESECIenORNn 
OUWE) 
辐 SOME 
6 TD Doy Sname Is Steve. 
8 天 0 和 Oo SCSEO 人 CE S 
10 TDn mazn: Sname 工 5 
11 TITn main: Sname Is Steve 
站 十 半 
解释 
1. 默认 包 名 是 main。 在 main 包 中 为 数组 @towa 赋值 ，@towana 位 于 main 包 的 符号 表 中 。 
2. 在 包 main 中 把 标量 $friend 赋值 为 Mary。$friend 位 于 main 包 的 符号 表 中 。 
3. 打印 $friend 的 值 。 
4. 声明 包 boy。 现 在 从 包 main 切换 到 包 boy。 该 包 具 有 它 自己 的 符号 表 。 从 这 一 刻 开始 直到 程 


序 结束 或 声明 其 他 包 为 止 ，boy 包 都 在 其 作用 域 中 。 在 这 个 包 中 创建 的 变量 是 全 局 变量 ， 但 
不 属于 main 包 的 一 部 分 。 


5. 给 标量 $name 赋值 Steve。 
6. 打印 Sname 中 的 值 。 


负 


10. 
由 由 


| 忆 


. 如 要 访问 包 main 中 的 变量 $fiend， 首 先 应 当 在 包 名 前 面 加 上 美元 符号 ， 表 明 变 量 类 型 是 标 


量 型 ， 其 后 则 是 包 名 main、 双 冒号 、 变 量 名 friend。 这 样 就 能 允许 用 户 在 包 内 切换 命名 空间 。 
将 Patricia 赋值 给 main 包 内 的 变量 $friend 。 





. 由 于 main 是 默认 包 ， 切 换 命 名 空间 时 无 需 使 用 其 名 称 。@::towan 告诉 Perl 将 命名 空间 切换 


回 main 包 中 的 数组 @town。 

声明 包 main。 现 在 切换 回 main 包 中 。 

在 main 包 中 ， 设 有 定义 Sname。 

打印 boy 包 内 $name 变量 的 值 。 

.boy 包 中 的 $friend 标量 发 生变 化 ， 这 是 因为 包 main 完全 限定 了 它 也 就 是 说 ， 当 给 该 变 
量 赋 值 时 ， 程 序 将 临时 切换 到 包 main。 打 印 这 个 变量 的 值 。 








示例 12.3 


ES 


DEC OO 己 


站 
下 


# Packa9e aecJIaratzons 


Sname="Suzanne" # Thpese variables are In Packa9ge maziDn 
Snum=100: 
Package friend: # Packa9e aeclJaratIizon 


Sub welLcome 1{ 
[en 
chomp ($name=<STDIN>) ; 
Print "Welcome S$namelNnny; 
TENSmumnEis 是 SmamaN 人 # Unknown to this Packadge 
Print "Where is S$main::name?NnN\n" 
】} 
Package main: # Packa9e aecJaration” pacK ID maziDn 
&friend::welcome: # Ca suproutIine 
Pint "Back in main Package \S$name is SnameNn"n; 
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由 局 有 LS ETIENQORSSEKSSOSRREYSRSASETEemOEEaSme An 
下 4 DFTOOD EYEEESmameNmNLL 


15 Package bizthday: # PacKka9e aecJIaratizoDn 


16  $name="Beatrice": 
有 TEN EIDENOEY SIERANTR 
下 SENORESEDamne amaSEcrenoe name ER 放生 了 NT 


(ESGUE) 

司 Ta 
以 Welcome Tormmy/ 

8 2 

习 Where 2 二 5 SUzanne2? 


12 Back in main packa9e 5Sname Is Suzanne 
13 SSWIEch Lo FrIena Packacge， Bye 了 工 ommy 
14 Bye 5Suzanne 


二 到 六 三 冯 37BESL 
1 





解释 
1 . 为 默认 包 main 给 标量 $name 赋值 Suzanne 。 
2. 给 标量 $num 赋值 100。 
3. 声明 包 friend。 在 第 10 行 以 前 ， 它 是 在 作用 域内 的 。 
4. 在 friend 包 内 定义 子 例 程 welcome。 
5. 要 求 用 户 输入 。 
6. 给 Sname 赋值 。 包 名 是 friend 。 
7. 打印 $name 的 值 。 
8. 标量 Snum 是 main 包 中 的 局 部 变量 ; 在 这 里 没有 定义 它 。 没 有 打印 内 容 。 
9. 如 要 从 包 main 访问 变量 Sname， 可 在 包 名 main 后 面 加 上 双 冒 号 和 变量 名 。 请 注意 ,，$ 是 位 


于 包 名 前 面 的 ， 而 不 是 变量 前 面 。 
10. 在 子 例 程 外 面 声 明 包 main 。 
11. 除非 使 用 包 名 予以 限定 ， 否 则 不 能 调用 子 例 程 welcome。 

12. 包 main 中 的 $name 值 为 Suzanne。 

13. 要 从 包 friend 访问 变量 ， 变 量 名 前 必须 有 包 名 。 这 将 导致 切换 命名 空间 。 
14. 包 main 中 的 $name 值 为 Suzanne 。 

15. 声明 新 包 birthday。 它 在 块 结 束 前 保持 有 效 一 一 此 处 也 就 是 在 脚本 结束 前 。 
16. 给 包 birthday 中 的 $name 变量 赋值 。 

17. 在 包 birthday 中 ，$name 是 Beatrice 。 

18. 为 了 从 以 前 的 包 中 访问 变量 ， 变 量 名 前 必须 有 包 名 和 双 引 号 。 

















main 包 friend 包 birthday 包 


Sname="Suzanne" Sname= "Tormmy" Sname="Beatrice" 


12-3 包 负 责 创 建 单独 的 命名 空间 ， 如 示例 12.3 所 示 











加 
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站 2 之 


Perl 发 行 包 中 带 有 很 多 标准 的 Perl 库 图 数 和 包 。Perl 4 中 的 库 例 程 是 一 组 过 程 性 程序 ， 其 


标准 Perl 库 





字 都 以 .p1 扩 展 名 结尾 。Perl 5 中 的 模块 则 以 .pm 扩展 名 结尾 。 在 Perl 5 中 ，.pm 文件 又 称 为 模块 


Cmodule)。.pm 文件 是 以 两 种 不 同 的 编程 模式 编写 的 模块 : 过 程 的 (procedural) 和 国 








癌 对 象 的 











Cobject oriented)。 模 块 的 文件 名 一 般 以 大 写字 母 开 头 而 那些 以 小 写字 母 开 头 的 .pm 文件 则 是 特殊 
类 型 模块 , 又 称 作 编 译 指示 〈programa)。 编 译 指示 是 一 种 特殊 的 模块 , 负责 告诉 编译 器 在 编译 Perl 








程序 时 必须 检查 哪些 条 件 。 没 有 扩展 名 的 文件 则 属于 子 目 录 。 它 们 各 自 含 有 几 个 .pm 文件 ， 划 分 为 


一 些 常用 模块 。 例 如 ，Math 子 目录 中 含有 BigFloat.pm、BigInt.pm、Complex.pm 以 及 Trig.pm。 
下 面 是 一 些 标准 的 Perl 库 内 容 9: 














AnyDBM _ File .pm 
AutoLoader.pm 
AutoSp1it .pm 
提 

也 .Pm 
Benchmark .pm 
ByteLoader .pm 
已 四 开 

CGI .Pm 

CORE 

CPAN 

CEPAN . Pm 

马云 工 伺 

Carp .pm 

Cl1ass 

Config .pm 
epopirenmeill 
Cwd . pm 

DB . Pm 

Data 

DeVel 
DirHandqle .pm 
Dumpvalue .Pm 
DynaLoader .pm 
English .pm 


PPXPorter .Pm 

盏 及 七 WU 七 1 S 
Fatal .pm 
FEcnt1 .pm 

File 
FileCcache.pm 
FileHandle .pm 
FindqBin.Pm 
Getopt 

II18N 

开 何 

IO .pm 

工 PC 

Math 

Net 

oO.Pm 

Opcode .pm 

已 人 8 工头 -区 志 
EBPOSIX .Poa 

Pod 
SDBM_File.pm 
Safe .pm 
Search 
SelectSavez.pnm 
SelfLoadqer .pm 





Env .Pm Shel1 .pm 
了 xno .pm Socket .pm 
卫 XPOIE 七 e 工 Symbol .pm 
12.2.1 _ @INC 数组 


特殊 数组 @INC 含有 指向 库 例 程 所 在 位 置 的 目录 路 径 。 如 需 包 含 @INC 数组 中 没有 的 目录 , 则 
可 在 命令 行 中 使 用 -1 开关 @， 或 将 环境 变量 PERL5LIB 设置 为 其 爹 路 径 名 。 一 般 应 当 把 这 个 变量 























SYS 

TIerzm 

Test 

Test .pm 
TexXt 
Thread 
Thread .pm 
了 Te 





Time 
UNIVERSAL .pm 
USseL 
XSLoader .Pm 
abbrev.P1 
asSsSert.P1 
attzriputes .pm 
已 七 七 工 S :全 和 

auto 

autouse .pm 
Dase .pm 
bigfloat.P1 
工 村 于 站 七: 疙 工 
业主 可 基 a 才 :和 于 
D1Lib .Pm 

Dytes .pm 
bytes_heavVvy.P1 
cacheout .P1 
charnames .pm 
chat2.P1 








complete.P1 
QOS 上 aRt .PPm 
ctime .P1 


Qiagnostics.pm 


忆 G 蕊 5 下- 全 上 
QumpPvar .P1 
exceptions.PpJl 
fastcwdq.P1 
ields .pm 

疾 Jetest .pm 
下 页 已 5 政工 
fndadepth .P1l 
了 ush .P1 

于 七 入 :五 工 
getcwd.P1 
9etopt .P1l 
getopts .P1 
hostname.P1 
Importenv.P1 
Integer .pm 
ess.pm 

二 汪 区 < 区 而 
ocale.pm 

二 DO. 瑟 工 
network .P1 
newgetopt .P1 
open .pm 
open2 .P1 














open3 .P1 
ops . pm 
Over1load.pm 
Perz1L5dab .P1 
Per1llocal.pod 
PPm .PPm 

Pwd.P1 

ze .pm 
Shel1Lwordqs .P1 
区 和 可 七 革 忆 而 二 让 

S 七 误 蕊 - 碳 卫 

S 七 工 诗 蕊 七。 全 而 
Subs .pm 
SYS1Log.P1 

七 ainted.Pp1l 
termcap .P1 
timelocal.P1 
unicode 

utf8 .pm 

utf8_ heavy.P1 
Validate.p1 
Vars .pm 
warnings 
warnings .pm 























设置 到 初始 化 文件 中 去 。 如 果 使 用 的 是 UNIX， 初 始 化 文件 就 是 ,origin 或 .profile 文件， 如 有 果 使 用 
Windows 的 话 ， 则 如 图 12-4 所 示 。 








名 可 在 安装 Perl 时 确定 指向 标准 Perl 库 的 路 径 名 。 可 以 将 它 设 定 为 默认 值 ， 亦 可 由 Perl 安装 人 员 负 责 指定 。 


全 有 关 -1 开 关 项 的 更 多 介绍 ， 请 参阅 附 





录 A 中 的 表 A.18 。 
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示例 12.4 
山 $ Perl -V (Windqows Commandq Line) 
EEC 2 有 7 玫 作 证 
0 
ES 
osname=MS1Iin32，osvers=4.0，archname=MS1rin32-Xx36-muItz-threada 
Uname= 
Emo 
ELE 忆 交 且 人 放 局 5 三 交 生 己基 人 忆 庆 交 
Usetphreaas=aeftne use5005threaas=unaer uselithreaas=aeftne 
UsemuItzipPJIIzcity=aene 
曾 辣 国 辣 二 下 几 革 忆 王 局 后盾 二 间 放 玫 玫 用 和 半 用 放生 全 和 全 三， 刘 全 和 受用 人 和 
Use64DPitint=unaerf use64pitall=unaerf useJon9aoupbpJIe=unae 
UsemymalIloc=n pincompat5005=unae 天 
CompziJTer: 
全 全 克 三 玫 和 天生 夫 帮 本 三 全 全 三 /生生 克星 2 车 央 EC 玉 丽人 攻 旋 
三 有 大 CONSOT NO 和 六 区 帮 项 凡 5 本 OO 5 本 有 
三 思 帮 S 甩 晤 S 大力 大 3 下 吕 交 5 语 故人 有 玫 全 作 入 人 天 下 区 天 生意 三 矶 后 站 玫 汪 人 且 放下 人 下 大 0 
三 到 加 忆 本 是 下 且 丰 于 入 大 一 忆 忆 站 民 克 本 信人 站 克基 民 现 交 局 大 天 人 
加 DEL 从 用 必 二 2 了 二 太太 太 甩 以 三 忆 了 
OUtPULt contIinues Phere 


2 GTINC: 
3 $ Perl -e 'PFint "QINCNn" (Windows) 
NG 


人 局 瑟瑟 学 区 有 
全 局 已 


4 5$ Perzl -V (Linux) 
BRNGR 
可 用 合生 全 7 全 人 全 和合 5 证 和 7 乓 JE 
全国 帮 术 全 晴天 作用 有 有 
全 
人 三 站 确信 用 放 7 人 人 有 人 -二 本 = 二 省 玫 人 2 了 
人 
用 
全 帮 oo 天 帮 夺 信 必 肌 ec 全 必 77 全 下 帮 可 = 人 


解释 

1. Perl 命令 的 -V 选项 能 够 显示 版 本 、 配 置 和 库 信息 。 

2. 数组 @INC 中 含有 到 库 例 程 所 在 路 径 。 

3. 在 Windows 命令 行 提 示 符 下 ， 打 印 数 组 @INC 的 内 容 。 这 些 路 径 都 通过 喜 号 隔 开 ， 其 第 一 
个 元 素 是 C:/Perl/site/lib， 该 路 径 指 加 Windows 专用 库 国 数 的 存放 位 置 ; 第 二 个 元 素 是 C:/ 
PerUlib， 指 向 标准 Perl 库 的 位 置 。 最 后 一 个 点 号 非常 重要 ， 表 明 当 Perl 搜索 库 文 件 时 ， 会 
把 当前 工作 目录 《〈 文 件 夹 ) 下 的 所 有 库 文 件 导 入 进来 。 

4. 含 有 “site” 一 词 的 路 径 名 是 随 着 站 点 不 同 而 变化 的 , 该 路 径 中 含有 针对 本 站 点 架构 而 下 载 
得 到 的 库 例 程 。 其 中 有 些 特定 的 库 文件 已 在 标准 发 布 包 中 提供 。 那 些 含 有 site 或 linux( 如 
果 使 用 Solaris UNIX, 则 也 可 能 是 solaris) 的 路 径 分 别 指向 针对 Linux 的 库 例 程 和 模块 。 路 
径 /usrlocallib/Per15/5.8.6 指向 标准 Perl 库 的 位 置 ， 而 最 后 的 点 号 则 表示 当前 的 工作 目录 。 
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久 ControlPanel General NEtwok Identification | Hardwaie| User Profiles “dvanced | 
| File EqE Wiew Favorit 站 下 PP 和 TFT 可 F 汪 了 lx| 





| 55 过 


一 FUser variables For administrator 
| Address 回 Control Panel 


Variable 









































< 全 外 4 PATHEXT .pi.pl ,COM .EXE;.BAT;.CMD;.YB5;.YB,， 
5 CI: Yperjfunctions 
上 ddiIRemove addiRemove 上 TEMP CDocuments and Settings\administrat,,， 


Hardware Programs 


ES 全 

[ 始 ] 动 New,， Edit,,， | Delete | 

Fonts Game 
Controllers 


AS 
衣 图 
Power Options Printers 
昌 多 
System Users and New,.， | Edit，. | Delete | 
Passwords 
ca | 


敬 sbjec | | 


TMP CDocuments and 5ettings\administrat,,， 








广 System variables 






Value 
C'VWINNTVsystem32Vcmd,exe 
GE 


Variable 
Com5pec 
HOME 
NUMEER_OF_PR,.，1 

O5 Windows_NT 
Os2zLibPath CIVWWINNTASystem32Vos2Vdl 十 




























图 12-4 在 Windows 中 设置 环境 变量 PERL5LIB 


设置 PERL5LIB 环境 变量 。 如 果 用 户 使 用 的 是 UNIX/Linux 操作 系统 , 并 需要 为 数组 @INC 添 
加 新 路 径 元 素 的 话 ， 不 妨 在 初始 化 文件 中 设 定 PERL5LIB 环境 变量 。 
在 C shell 或 TC shell 的 .login 文件 中 键入 ; 


SetenV PERL5LIB "directory Pathn" 





在 Bourne、Korn 及 Bash shell 中 键入 : 
PERL5ILIB = "qirectory Path"” export PERL5ILIB 
如 果 使 用 的 是 Windows， 则 可 进入 开始 全 单 ， 然 后 依次 选择 属性 、 系 统 属 性 、 环 境 变量 ， 最 后 


点 击 新 建 按 钮 。 参 见 图 12-4。 
如 需 让 自己 设置 的 库 例 程 优先 于 @INC 数组 列 出 的 例 程 ， 可 将 如 下 代码 行 放 在 程序 中 : 


责 六 SS 上 于 下 萎 《B 开 Bo 


unshift 会 把 “.” 加 到 数组 @INC 的 最 前 面 ， 使 得 当前 工作 目录 路 径 成 为 搜索 路 径 中 的 第 一 个 
元 素 。 如 有 果 库 文件 位 于 不 同 目 录 的 话 ， 则 应 使 用 其 多 路 径 名 ， 而 不 是 点 号 。 


12.2.2 包 和 .pl 文件 


标准 Perl 库 提供 的 大 多 数 .pl 库 例 程 都 是 在 Perl 4 时 代 编 写 的 ， 它 们 由 包含 在 包 里 面 的 子 例 程 
构成 。 这 些 库 例 程 现 在 仍然 可 用 ， 但 其 中 许多 库 例 程 已 由 新 的 模块 或 .pm 文件 替代 。 

require 国 数 。 为 了 导入 并 执行 标准 Perl 库 例 程 或 其 他 文件 中 的 代码 ， 应 当 使 用 require 国 数 。 
它 类 似 于 C 语言 中 的 外 nclude 语句 。require 国 数 能 检查 某 个 库 文件 是 否 已 被 导入 。 它 和 eval 或 do 
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国 数 不 同 , 后 者 是 较为 陈旧 的 文件 导入 方法 。 如 果 没 有 提供 参数 , 该 函数 就 默认 导入 $_ 变量 值 。 如 
有 果 在 @INC 数组 中 没有 正确 的 库 路 径 ， 则 require 函数 将 执行 失败 ， 并 返回 如 下 出 错 消息 : 


Cany 1ocate pwad.DPL zi INC at package /ie 了. 
require 国 数 在 执行 时 会 把 文件 加 载 到 程序 中 ， 并 更 新 @INC 数组 内 容 。 








格式 


require (了 ExPLr) 
isielhp 基 SS ne 
zedquize 


载 入 标准 库 例 程 。 为 提供 一 个 有 关 Perl 标准 库 例 程 的 示例 ,示例 12.5 显示 pwd.pl 例 程 “该 例 
程 由 Larry Wall 编写 )。pwd 包 由 两 个 子 例 程 构成 ， 负 责 更 新 PWD 环境 变量 。 其 中 ,， $ENV{PWD} 
的 值 是 当前 工作 目录 。 

请 广 意 ， 在 下 列 库 例 程 中 ， 包 都 声明 在 子 例 程 定义 之 前 ， 因 此 可 把 文件 的 其 余部 分 放 入 pwd 包 
中 。 所 有 的 变量 都 输入 该 包 。 如 需 在 main 中 调用 它们 , 则 应 显 式 地 将 子 例 程 的 名 字 切 换 到 main 包 
中 去 ,但 其 变量 仍然 是 pwd 包 的 本 地 变量 (这 里 使 用 搬 号 代替 双 冒 号 来 切换 命名 空间 。 扩 号 是 Perl4 
中 负责 切换 命名 空间 的 符号 )。 

下 面 是 一 段 来 自 Perl 标准 库 中 的 .pl 例 程 示例 。 
































示例 12.5 


(The Pwa package) 


# 
于 # Usage: 
忆 # require "Pwd.P1L":， 
非 &initpPpwady; 
# 2 
非 于 
下 Package Pwd: 
4 sub main'initPwda { 
ISOENNEITEEUVTIDD NO 
上 ER 
有 本 玫 可 内 三 要 SSENRA ET 训 瑟 机 二 于 
return if $qdi == $Spi && S$qdad == S$pd'; 
上 
EeerSNWHRWDDI WO)E 
己 sub main'chdizr 1{ 


人 人 人 Oo) 天 三 本 Sai 
EGG ES QOS 汪 天 汪 | 
下 和 三 有 
SENV{IPNWD'I} = S$Snewdqiry 
else 1{ 
local (ecurdir) = SPp1it(m#/#，SENV{IEPENWD'IT} ) ; 
必 区 让 闪避 机 全 证 三 让 用 二 全 SS 人 CO 
foreach $Scomponent (spP1it(m#/#， Snewdqir)) ({ 
next if $Scomponent eq ! .7 
本 本 VONIEE 和 有 
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】 


SRINNLEEEUTODN 汪汪 人 edc) 古国 时 沈 全 

1 

} 

else { 
07 

# Return va7ue 

】} 
6 下 <---TIMPORTANT 


1. 用 法 〈usage) 提示 信息 提示 用 户 该 如 何 使 用 这 个 包 。 

2. 在 用 法 消 息 中 ,告诉 用 户 应 当 对 文件 pwd.pl1 执 行 require 操作 。 要 调用 的 两 个 子 例 程 是 inipwd 
和 chdir。 国 数 chdir 接收 一 个 参数 ， 即 目录 名 。 

3. 声明 包 pwd。 这 是 文件 中 惟一 的 包 。 

4. 定义 子 例 程 initpwd。 广 意 ， 其 名 称 限 定 为 main 包 中 的 符号 。 这 就 意味 着 可 以 从 main 包 中 
直接 调用 initpwd， 而 不 必 提 到 包 pwd。 

5. 定义 子 例 程 chdir。 

6. 对 于 require 函数 ， 在 该 包 未 尾 要 求 加 1。 如 果 该 文件 最 后 一 个 表达 式 的 值 为 真 ， 则 require 
国 数 将 不 把 文件 加 载 到 程序 中 。 








下 面 这 个 示例 在 脚本 中 用 到 了 库 例 程 。 


示例 12.6 


WeESCeie 
#1V/bin/pPpezr1l 











并 require "ctime.P1LI": 

到 require "Pwd.P1LI"; 

瑟 &initPpwad'” # Ca the suproutine 

4 OFTOEEREDEEOTESSETDEENOEKEITIOEOIEECEOE7ETEE SENTOAESRNVIENDITE 
吕 全 

6 PETERDESSETEENOEEOIOEOUEECEOEYEETE NODESRNNIE 人 IE 
7 Stoday=&ctime (time) ， 

8 和 证 次 SiEGCIERL 

GUN 


Thpe Present workin9 airectory Is /home/Joay/eII17e/per 了 
Thpe Present workin9 airectory Is /home/Joay 
NeawEMs 玫 到 本 丽 必 二 六 吕 到 0 了 以 


( 
4 
6 
8 
释 
1. 这 里 加 载 了 Perl 标准 库 例 程 ctime.pl。 
2. 加 载 Perl 标准 库 例 程 pwd.pl。 
3. 为 pwd.pl 国 数 调用 子 例 程 mitpwd， 初 始 化 PWD 的 值 。 
4. 打印 环境 变量 PWD 的 当前 值 。 
3. 调用 chdir 函数 ， 改 变 当 前 工作 目录 。 
6. 打印 环境 变量 PWD 更 新 后 的 值 。 
7. 通过 ctime.pl 中 的 子 例 程 ctime， 将 当天 目 期 内 容 设 定 为 易于 阅读 的 格式 。 
8. 以 新 格式 打印 当天 日 期 。 
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它们 载 入 到 Perl 脚本 中 。 在 加 载 用 户 





























在 Perl 中 加 载 自 己 的 库 。 下 面 的 示例 将 展示 如 何 创建 自己 的 库 例 程 , 并 通过 require 国 数 将 
自 定义 例 程 或 者 向 库 添 加 例 程 时 ， 请 读者 确保 例 程 的 最 后 一 


行内 容 是 1;〈 非 零 值 )。 如 果 库 文件 的 最 后 一 行 返 回 的 不 是 一 个 真 值 ， 将 从 require 国 数 得 到 如 下 


报错 : 


QVYerage.DL did 110t Fetal ad 1rUe yaGUUe QUSeDLAX 711eS 3 了. 


示例 12.7 


( 


( 


THe matezcnmns Script) 
#1V/bin/Pez1l 
# Pro9ram Dame: materms 
# 7TPpIs Pro9ram wiJ1 cal] a Supbroutine From another 石 1e 
unshift(eGeINC，"/home/jody/ellie/Perz1L/my1Lib") : 
require "average.P1L": 
Pint "Enter your midterm Scores.NXn"; 
Eeeres 三 SN 人 二 王 瑟 下 NE 
Printf "The averadgde is ss.1f.\Xn"，average::ave(Gscores) : 
# Tpe ave Suproutinpe is Founa in a 厂 Je callJea avrerag9e.Pp1] 


0 手 Se 加 二 


配 $ _ cat average .P1I # FIIe wpere Suproutine Is aeftnea 
6 Package average; # DeclIare a packa9e 
# Average a JIsLt of 9raaes 
也 Sub ave { 
8 my(egrades)=Q@ :; 
msSmunmgEcEEEoaoOeSERSHOESQOSS RE 
foreach S$graqde ( grades ) 1! 
Stotal += $grade'; 
】} 
9 Stotal/Snum of gradesy; # phat 9ets Feturneda 
} 
10 1 # Make Sure the 石 1e returns true oOoF FreG9uire WII1 not succeeda/! 
解释 
1. unshi 人 t 函数 负责 将 指向 个 人 目 孙 mylib 的 路 径 名 生 、 加 到 @INC 数组 中 。 


乌 。 


LD 


4 
写 
0 
9 
8 
9 
外 


require 国 数 首先 检查 @INC 数组 内 容 , 获得 要 在 其 中 查找 .pl 文件 的 所 有 目 
国 数 将 加 载 Perl 函数 average.p1。 





了 录 清 单 。require 


. 调用 ave 函数 , 并 将 返回 值 保 存 到 标量 $average 中 。 由 于 ave 函数 定义 在 库 文件 中 一 个 名 叫 
average 的 包 内 ， 因 此 在 调用 aveO 时 必须 在 它 前 面 加 上 包 名 《和 两 个 冒号 )。 否 则 ，Perl 将 





尝试 在 当前 包 main 中 查找 ave(O) 。 

在 命令 行将 目录 切换 到 mylib 。 美 元 符号 在 这 里 是 shell 提示 符 。 

现在 查看 文件 average.pl 的 内 容 。 

定义 一 个 名 为 average 的 包 。 

定义 子 例 程 ave0O)。 

该 子 例 程 以 一 组 分 数值 作为 参数 。 通 过 my 畏 数 将 这 些 参数 变量 本 地 化 。 

求 表达 式 值 并 返回 之 。 

0. 本 语句 的 值 为 true， 并 位 于 文件 未 尾 。 在 加 载 文件 时 ，require 函数 要 求 返 











回 值 为 true。 
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12.2.3 ”模块 和 .pm 文件 


在 使 用 标准 Perl 库 提供 的 模块 〈《 即 以 .pm 为 扩展 名 的 文件 》 时 ， 读 者 必须 先 要 保证 @INC 数 
组 含有 指向 发 布 包 库 的 全 路 径 ， 并 使 用 use 函数 引用 所 需 模块 名 。 

如 需 了 解 特定 库 模块 的 功能 ， 可 使 用 perldoc 命令 获得 帮助 文档 〈perldoc 命令 对 于 库 中 .pl 文 
件 是 无 效 的 )。 例 如 ， 如 需 了 解 CGLpm 模块 ， 则 可 在 命令 行 中 输入 ; 


Per1ldqoc CGI 


就 能 显示 CGI.pm 模块 相关 的 文档 。 如 有 果 输入 : 

Perz1ldoc English 

则 能 显示 English.pm 模块 相关 文档 。 

use 图 数 〈 模 块 和 编译 指示 )。use 国 数 用 于 在 编译 时 将 Perl 模块 和 编译 指示 符 载 入 到 程序 中 。 
如 果 模 块 的 文件 名 不 含 .pm 扩展 名 的 话 ，use 函数 就 不 会 载 和 该 模块 。require 函数 也 能 完成 同样 的 
工作 ， 但 它 不 能 在 运行 时 导入 〈import) 和 加 载 模块 。 

模块 是 库 里 面 的 文件 ,其 行为 取决 于 所 在 的 环境 。 标 准 Perl 库 中 的 模块 拥有 .pm 扩展 名 , 用 户 
亦 可 在 子 目 录 中 找到 它们 。 例 如 , 模块 Bigfloat.pm 在 子 目 录 Math 中 。 如 需 使 用 位 于 其 他 子 目录 中 
的 模块 ， 则 应 当 在 目录 名 后 面 跟 上 两 个 冒号 ， 然 后 给 出 模块 名 称 ， 璧 如 Math::Bigfloat.pm。 (尽管 
这 两 个 冒号 使 Bigfloat.pm 模块 看 上 去 像 是 位 于 一 个 Math 包 里 面 ， 但 在 这 里 的 上 下 文中 , 这 两 个 冒 
号 只 负责 隔 开 Math 目录 /文件 夹 和 模块 名 。 在 UNIX 型 操作 系统 中 ，Perl 将 把 这 对 冒号 替换 为 正 
斜 枉 ， 而 在 Windows 系统 中 ， 则 替换 为 反 斜 杠 。) 

编译 指示 (pragma) 告诉 编译 髓 要 求 程 序 行为 必须 满足 某 种 形式 ,否则 就 退出 程序 。 常 见 的 编 
译 指示 符 包 括 lib、strict、sub 和 diagnostics。 有 关 模 块 和 编译 指示 符 的 详细 列表 请 参阅 附录 A 中 
的 表 A.4 和 表 A.5。 
在 面向 对 象 的 术语 中 , 子 例 程 又 称 作 模块 。 如 果 读 者 在 这 里 看 到 涉及 方法 (method) 的 诊断 信 
息 ， 则 可 以 认为 是 子 例 程 。 库 中 很 多 模块 都 使 用 了 面向 对 象 的 Perl。 但 本 章 讨 论 的 模块 不 要 求 用 户 
了 解 对 象 的 概念 。 有 关 如 何 使 用 面向 对 象 模块 的 内 容 ， 请 参阅 第 14 草 “ 面 向 对 象 的 Perl ”)。 







































































格式 


use Moduley” 
SENMecaulisnss 怕 到 ) 下 
use Dizectozxzy::Modaule: 
SEE 七) 玉 

no Pragmay 


12.2.4 导出 和 导入 


在 进出 口 业 务 中 ， 有 的 人 要 出 口 货物 ， 而 另 一 些 人 则 要 进口 货物 。 假 定 某 位 加 州 酿酒 商 的 酒 窘 
里 存 有 四 种 极品 葡萄 洒 ， 他 决定 向 客户 销售 其 中 的 三 种 ， 而 把 最 好 的 那 一 种 留 给 自己 享用 。 为 此 他 
打印 了 一 份 出 售 清单 ， 并 将 它 第 在 了 酒 害 的 墙 上 ， 购 买 者 只 能 从 这 份 清单 里 选择 买 哪 种 酒 。 购 买 者 
负责 提供 输入 。 当 然 ， 输 入 者 可 以 要 求购 买 所 有 的 四 种 酒 ， 但 是 如 果 按 照 出 售 清单 做 的 话 ， 就 只 能 
选择 列 在 清单 上 的 那 几 种 。 

在 使 用 Perl 模块 时 ， 用 户 就 像 上 面 的 购买 者 ， 能 从 模块 提供 的 导出 export) 列表 中 导入 
Cimport) 所 需 符 号 〈 子 例 程 和 变量 )。 用 户 可 从 其 他 模块 中 获得 符号 ， 并 将 它们 添加 到 自己 的 符号 
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表 里 。 此 时 ， 用 户 可 以 取 列 表 上 的 默认 项 ， 也 可 导入 列表 中 的 其 他 具体 项 ， 甚 至 还 可 屏蔽 列表 中 的 
其 他 所 有 符号 。 导 入 和 导出 只 是 一 种 命名 空间 导入 方式 ， 负 责 将 符号 导入 程序 包 中 ， 而 不 必 使 用 模 
块 的 包 名 和 双 冒 号 来 完全 限定 所 有 导入 项 的 名 称 ， 如 人文 Module::funl。 导 入 的 内 容 可 以 列 在 use 指 
令 后 面 ， 璧 如 use Module qw( funl fun2)。 

Exporter 模块 。 导出 模块 操作 能 把 模块 中 的 符号 发 送 给 使 用 模块 的 用 户 。 标 准 Perl 库 中 的 模 
块 Exporterpm 为 导出 模块 中 的 变量 或 子 例 程 提供 了 必要 的 符号 支持 。 它 实现 了 一 种 导入 方法 ， 人 
许 模块 把 函数 和 变量 导出 到 用 户 命名 空间 。 如 前 所 述 , 符号 是 以 一 个 typeglob 散 列 的 形式 保存 在 包 
内 符号 表 上 的 。 导 入 例 程 负责 为 符号 创建 一 个 别名 ， 进 而 将 该 符号 从 一 个 包 里 导出 ， 并 用 到 另 一 个 
包 中 去 。 考 虑 如 下 语句 : 


*Package mine::somefunction = \&Package exporter: :somefunction 

上 述 名 为 “Package_mine” 的 包 将 从 “Package_exporter” 中 导入 一 个 叫做 “somefunction” 
的 符号 。 该 符号 是 子 例 程 “somefunction” 的 程序 名 。 在 此 过 程 中 ， 程 序 会 把 一 个 指向 原 包 内 
“somefunction” 的 引用 赋值 给 “Package_mine” 中 的 typeglob 结构 ， 璧 如 “Package mine” 的 符 
号 表 。 

Exporter 模块 也 实现 了 同 前 面 所 述 机 制 类 似 的 一 种 导入 方法 。 尽 管 可 以 定制 属于 自己 的 导入 方 
法 ， 但 大 多 数 模块 还 是 使 用 了 Exporter 模块 ， 因 为 后 者 的 接口 在 扩展 性 和 易 用 性 方面 都 很 出 色 。 
在 针对 某 个 模块 处 理 use 语句 时 ，Perl 会 自动 调用 其 导入 方法 。 用 户 可 在 perlfunc 和 perlmod 
中 找到 有 关 模 块 和 use 语句 的 说 明文 档 。 如 要 帝 入 理解 Exporter， 首 先 必 须 了 解 模块 的 概念 ， 以 及 
use 语句 的 工作 原理 。Exporter.pm 是 面向 对 象 的 模块 , 其 功能 和 类 〈class) 相似 。 其 他 模块 只 能 从 
Exporter.pm 类 中 继承 符号 导出 能 力 〈《 有 关 面 向 对 象 的 知识 请 参阅 第 14 章 )。 所 有 继承 类 必须 在 数 
组 @ISA 中 了 予以 列举 。 


zedquire 卫 XPorteIr; 
OULT QISA = GqW (ExpPorter) 


在 默认 情况 下 ,，@EXPORT 数组 中 列 出 的 名 称 将 会 切换 到 模块 调用 者 的 命名 空间 上 。 只 有 在 显 
式 请 求 时, 才 会 将 @EXPORT_OK 数组 中 的 名 称 添 加 到 用 户 所 在 命名 空间 上 。 而 @EXPORT_FAIL 
数组 则 列 出 了 不 能 导出 的 符号 。 如 果 使 用 use 语句 导入 模块 ， 并 在 模块 名 上 添加 了 括号 的 话 〈 璧 如 
use ModuleO0) )， 则 不 会 将 符号 导出 到 模块 中 。 表 12-1 介绍 了 导出 模块 以 及 用 到 它 的 模块 情况 。 


表 12-1 导出 符号 
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导出 模块 含义 
Package 7T2Estniodzle: 包 声 明 
Jeguire EXPporter 使 用 Exporter.pm 模块 将 符号 从 包 导 出 到 另 一 个 包 
ou1 @1S4 = gw(Exporte 站 : @ISA 含有 在 导出 执行 时 需要 的 基本 类 名 
or @PXPORT=qwfgx @) 起: 列表 中 的 符号 自动 导出 到 该 模块 的 调用 方 
oj @EXPORT_ OK=dqwUiiz bo) 只 有 收 到 请 求 时 ， 才 由 模块 调用 者 导出 列表 中 的 符号 








名 注意 ， 当 用 作 require 的 参数 时 ，Exporter 模块 并 不 位 于 双 引号 中 ， 并 且 没 有 出 现 .pm 扩展 名 。 这 就 告诉 
Perl 编译 器 两 件 事 :如 果 需 要 将 模块 Math::BigFloat 转换 为 Math/BigFloat， 或 者 在 模块 中 有 间接 的 方法 引 
用 的 话 ， 则 将 它们 当 作 面 向 对 象 的 方法 来 对 待 ， 而 不 是 普通 的 子 例 程 。 
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导出 模块 


〈 续 ) 


史 





OU EXPORT F4 了 =qw(p123 e) 


OU 26FEXPORT 74GCS=Y 
“groUD7 => /qdqw(apc)1， 


上 


87roUD2 => /gw (gx @) %c) 1 ， 





不 导出 的 符号 


键 “group1l ”统一 代表 符号 ab 和 c( 国 数 名 》 "group2， 


则 统一 代表 符号 $x、@y 和 %e 





导入 模块 


售 义 





1USe 7estjodzle， 
USe 7estodule 9gW( 12 让 


USe 7estiodulel) 


USe 7est1odule gw(fSFOUD7T /SrOUD2) 


USe 7estniodule gw(fS7rOUD7T 12) 


2Se 7es11zodzle gw 


加 载 Testmodule 
加 载 Testmodule， 导 入 fun2 


加 载 Testmodule， 不 导入 任何 符号 
Testmodule 从 groupl1( 见 上 面 的 %EXPORT TAGS 散 














列 值 ) 导入 符号 ， 同 时 不 导入 group2 中 的 符号 


Testmodule 从 groupl 中 导入 符号 ， 同 时 不 导入 fun2 
Testmodule 导入 所 有 名 字 以 锯 开头 的 符号 








SomeModule.pm 





模块 调用 代码 





Dackage 9o11elhodz1e.D71 
1USe 尼 XDOFter 


OU @194 = 9gW( EXDOrter 办 


OU QPEXPORT =qgw0aDc 六 


SUD 0 刀 

SUD D 刀 

SUD c 刀 

SUD Gd 刀 

了， 

Package 9o11elodzle.D71 
1Se 尼 XDOFtery 


OU @7194 = 9gW( EXDOrter 办 


OU Q@PEXPORTOK =qgW(aDc 六 


SUD ad 妇 
SUD D 刀 
SUD c 刀 
SUD Gd 刀 
7， 


a. 变量 名 前 带 有 特殊 符号 ; 而 子 例 程 不 含 特殊 符号 。 


Use SomeModule; 
信 a ; 
Kb ; 


多 c ; # 自 动 从 @EXPORT 数 组 中 导入 相应 函数 和 变量 
久 SomeModule::d #d 不 在 列表 @EXPORT 中 
# 因此 必须 定义 其 全 路 径 





























use SomeModule qw(a c); # 必须 要 求 输 入 符号 
信 a ; # 否则 就 不 会 导入 它们 
人 c ; 


&SomeModule::c # 必须 给 出 符号 的 全 名 
SomeModule::d # 不 从 @EXPORT_OK 列表 请 求 


符号 


a、b、c 指 的 是 具有 这 些 名 字 的 子 例 程 。 
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使 用 perldoc 获取 Perl 模块 文档 。 当 准备 使 用 Perl 模块 时 ， 可 以 通过 内 建 的 perldoc 命令 检索 
Perl5 模块 相关 文档 ， 这 些 文档 都 通过 特殊 的 pod 指示 符 格式 化 《有关 此 类 格式 的 详细 信息 ， 请 参 


阅 第 15 章 )。 下 面 这 个 示例 即 来 自 于 CGI.pm 文档 。 





请 注 六 读者 若 想 实际 和 运行 模块 CGIpm 所 示 代 码 的 话 , 请 剪 切 和 粘贴 下 画 





ji 高 亮 部 分 的 内 容 , 并 











置 入 另 一 个 文件 中 。 然后 把 这 个 文件 保存 到 Web 服务 器 根 目录 下 的 cgi-bin 子 














目录 。 如 果 使 用 UNIX 


的 话 , 还 应 当 借助 chmod 命令 打开 文件 的 执行 权限 。 接 着 便 可 在 浏览 器 中 执行 该 脚本 了 。 读 者 如 果 
还 不 清楚 如 何 执行 CGI 程序 的 话 ， 请 参阅 本 书 第 16 章 ， 了 解 相 关 指令 的 详情 。 





示例 12.8 


(At the Commanad Line) 
1 Perz1ldoc CGI 
(GEGE) 
NAME 
CGI = Simple Commenmn Gateway Intezftace ClLass 


SYNOPESIS 
二 GT 
# ana echoes bacKkK Its valIues ， 


多 Use CGI gw/ :standard/ : 
马 Pint headeLr， 
start_html (' 和 有 SimPle 了 ExamPle')， 
hl('A SimPle 瑟 xamPle') ， 
StaLt_form， 
"What's Yourz name? " ,七 extfield('name'),P， 
"What's the combination?"，P， 
checkbox_groupP (-name=> 'words '， 
-Values=>['eenie'，'meenie'，'minie'， 
-defaults=>['eenie'，'minie'])，P， 
"What's Yourz favorite color? "， 
PoPuP_menu(-Dame=>'colorF'， 
-Values=>['zred'，'green'，'blue'，'chartreuse']) 
SUbmit， 
endq_form， 
jos 


if (Param()) { 
my S$Sname = Param('name') : 
my $keywords = join '!'，'!vParam('words'): 
my S$ScolLor = Param('color') 
Pint "Your name Is"vem(escapeHTML (Sname) ),P， 
"The keywords are: "em(escapPeHTMIL ($keywords) 


"moe']， 


7P， 


),P， 


"Your favorite color is "em(escapPeHIML ($colLor) ) ， 


攻 王 
} 


ABSTRACT 


This Perl ipracy Uses Per1l5 objects to make 1it easy to create Web 
有 由 二 本 OES 忆 PSSEEeIEEeCSOAEENESS ES 各 KE 和 GE 贡生 忆 G 


ee 


解释 


1. perldoc 命令 能 为 那些 使 用 Perl POD 指示 符 的 模块 生成 帮助 文档 。( 有 关 如 何 使 用 纯 Ole 文 
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档 〈 即 Plain Ole Documentation，POD ) 的 细节 请 参阅 第 1$ 章 )。 

2. 本 行 负责 以 基于 国 数 的 形式 加 载 CGI 模块 , 并 导入 所 有 标准 符号 ， 从 而 创建 一 段 含 有 HIML 
和 了 Perl 函数 的 CGI 脚本 。CGI.pm 模块 自身 通过 %EXPORT _ TAGS 散 列 表 定 义 了 一 组 符号 
列表 , 其 中 “standard” 是 键 , 后 面 跟 有 一 组 相应 值 〈 以 及 售 有 大 量 函 数 名 的 一 组 标签 ): ':standard' 


=> [qw/html2 :html3: html4: form: cgi]。 这 些 符 号 将 自动 导入 到 调用 该 模块 的 代码 中 。 


3. 这 部 分 文档 告诉 用 户 如 何 使 用 CGI.pm 中 的 某 些 特性 。 有 关 CGI 的 更 多 信息 ,请 阅读 第 16 章 。 


使 用 标准 Perl 库 中 的 Perl5s 模块 。 下 面 的 English.pm 模块 为 内 建 变量 〈 如 $_ 和 3$/) 定义 了 一 
些 别 名 。 对 于 那些 也 属于 awk 编程 语言 一 部 分 的 变量 ， 其 变量 同时 具有 长 短 两 种 形式 。 例 如 ， 存 
储 当前 记录 数 的 变量 在 Perl 中 表示 为 $.， 而 在 awk 中 则 表示 为 NR。 其 英文 名 分 别 是 SRSCawk) 或 
SINPUT_RECORD_ SEPARATOR(Perl)。 


(The Script) 
1 


























业 Use English: # Use EpolIisnh woras to repJace 
# Special Per1l variapbles 
马 ES 全 EROSEESEETDRNTE 
昌 nEORIEEOEETE 汪 SET 
4 Er ESSTLROOOEESRERATEUSRR 基 DR 
号 ET 和 ERSTEONRNS 
OUwEs 
甩 EC 
Re 本 EC 2 
4 了 Eeea 296， 
写 5 本 60 
解释 
1. 在 编译 时 ， 使 用 use 指令 加 载 English.pm 模块 。 
2. 打印 该 进程 的 id 号 。 
3. 变量 $PID 的 内 容 和 加 ROCESS.ID 值 相 同 。 
4. 打印 该 程序 用 户 的 真实 用 户 id。 
SPETIHR ESNGNOR 














下 男 


ij 是 取 


自 Perl 标准 库 中 的 一 个 .pm 文件 示例 。 





示例 12.10 


(RAR Module from the Standard Per1l Liprary)” 
Package CarP: 

# ZnPIs Packa9e ImpJemnents hanay routines 

# 二 or moauJes that wish to throw 

# exceptions outsiae of the current PacKka9e 
zedquire 卫 xPOort 上 ez / 

QISRA = 卫 xPorteL : 

QEXPORT = qwl(confess croak carP) : 

Sub Longmess 1{ 


也 


On On 人 ON 


mV EEC 三 Sn 
my S$mess = 


We 
忆 
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mm 52 

my ($packyvS$filevS$linerSsub)， 

全 国 本 全 放 证 的 可 对 三 古本 EEC 
SESSION 
Smess SECONDEIRITEESOOENTTE 
SezIoL 7 


】} 
SeSIS II 
】} 
Sub shortmess 1{ 
my Serzor = Shitft7 
ICSewusocie ay 居 三 古 woE 风 区 人 由 下 
Ti 王 S 大 三 是 2 
mw 人 (全 ae 有 ESUITEESSUS 
while (($packyS$filerS$linevSsub) = callezc(S$Si++)) ({ 
return "S$error at S$file 1Line $1Linexnn 
FESDaCRNEEESCUEDSaSIS7 
} 
Longmess S$SerLor: 
】} 
Sub confess { Qie Longmess QQ ; } 
SubpEcrFoakaaneEEsheorenessG 基 5 站 
SUbacazpwarnsnortnmesse 


ia 夺 1ss 证 一 | 


解释 
1. 这 是 一 个 包 声 明 。 程序 将 在 包 文 件 Carp.pm 之 后 对 该 包 进行 命名 。 国 数 carp \croak 





和 confess 


E 调 用 例 程 





将 生成 出 错 信息 ， 等 效 于 die 和 warn。 其 区 别 在 于 ， 当 使 用 carp 和 croak 时 ， 会 如 


中 产生 错误 的 那 一 行 报错 ;而 confess 函数 则 会 打印 出 相应 堆栈 回调 信息 ， 从 而 说 明 产 生 错 





误 的 子 例 程 链 。 它 是 在 调用 的 那 一 行 打印 出 错 信 息 的 。 
2. 这 里 require Exporter 模块 ， 使 得 其 子 例 程 和 变量 能 供 其 他 程序 使 用 。 








3. 数组 @ISA 中 含有 该 模块 需要 用 到 的 包 名 。Perl 在 @ISA 数组 中 列 出 该 包 用 到 其 他 模块 , 并 


4. 数组 @EXPORT 列 出 了 从 该 模块 默认 导出 到 模块 调用 者 的 子 合 程 。 在 使 用 该 模块 


的 时 候 , 不 


需 其 他 设置 就 可 以 调用 其 子 例 程 confess .croak 以 及 carp。 由 于 longmess 和 shortmess 都 不 


在 导出 列表 上 ， 因 此 不 能 直接 调用 这 两 个 子 例 程 。 
. 这 是 模块 的 子 例 程 定 义 。 
. 本 行 把 出 错 信息 作为 参数 传递 给 confess 图 数 ， 并 将 其 转 存 到 标量 Serror 中 。 
. 将 子 例 程 confess 定义 为 以 longmess 返回 值 作 为 参数 调用 die 函数 。 
. 将 子 例 程 croak 定义 为 以 shortmess 返回 值 作为 参数 调用 die 国 数 。 
. 将 子 例 程 carp 定义 为 以 shortmess 返回 值 作 为 参数 调用 warn 国 数 。 


12.2.5 ”如何 “use” 来 自 标准 Perl 库 的 模块 





\D oo ~ 个 内 





下 面 这 个 例子 显示 了 该 如 何 使 用 来 自 标准 Perl 库 的 Carp 模块 。 使 用 模块 的 第 一 步 是 仔细 阅读 





相关 文档 。 读 者 可 利用 perldoc 命令 完成 这 一 步 。 
$ Perldoc CarP 


NAM 
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CarpP - warn of errors (from Perspective of ca 了 ITer) 

CJUCK - Warn of errors With Stack bpacktrace (not exportea Dy aQefau7Itl) 

Croak - aie of errors (from Perspective of ca 了 ITer) 

Confess - QIie of errors With StacKk backtrace 

Shortmess - return the messa9e that carp ana croak Proauce 

了 Iongmess - Freturn the messa9e that cJuck ana confess Proauce 
SSYNOP5TS 


DSSBE CarDpy7 
CFroak "re're outta here1"7 


Use Carp G9mwfcJucKk) 
CJIUCK "Thzis Is homw we 9ot Phereyl! 71" 


Pint FE Cazrpr7sportmness(f ThIS WIIL Pare cayLer75 Getaz15 acaec7") 7 
Print FF Carp::1ongmess("ThiSs WIIJI phave Stack pacKktrace aaqaea") 7 


DESCRIPTION 
Thpe Carp routines are USeful In Your omwn moauJes because they act 
JIKke aie(f() or warn()， put with aa message Which Is more JIKeJy to be 
USeful to a User of your moauJje，xrTn the case of cJuck confess， ana 
了 Iongmess that context Is a Summnary of evrery cal]l in the calJ1-sStacKk. 
For aa Shorter messag9e you can Use carp croak or Shortmess Which 
FrePpPort the error as Deling from where your moauJje was calJeaq. There 
Is Po 9uarantee that that 1I5 Where the error wasr Dut It Is aa 9ooa 
eaucatea 9uess . 
<cCconptinues Pere> 


“use” 指 示 符 保证 程序 在 编译 时 载 入 了 所 需 的 模块 。 如 果 在 模块 名 后 面 跟 有 一 个 列表 ， 则 这 个 
列表 的 内 容 代表 了 从 该 模块 中 导出 的 模块 ， 以 便 供 读 者 自己 的 程序 调用 (导入 )。 在 Carp.pm 模块 
中 ， 有 一 个 名 为 croak 的 函数 。 在 调用 时 ,用 户 可 以 不 用 :: 结构 指明 符号 的 全 名 〈Carp::croak)， 直 
接 便 可 调用 这 个 croak 函数 。 


EECET 


EDOEMSGIE 和 下 NE 有 SEE 
#1V/bin/Pez1l 

1 use CarP qw(croak) : 

NSS 

Sgrade =<STDIN>， 

SEOEI # Ca 了 7 supbroutine 


io 
5 my(Snumpez)=Q : 
6 crzoakcrLlegalvalues fsnnose < OU smonos 00 


】 


人 Si 
2 Give me a 9raae:” 200 
CEcau7saue ae 郑 PE ee 

近 研 FSAGOEEEEe 基 DIE 
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解释 
1 


人 上 


.在 当前 包 main 中 使 用 《〈 载 入 ) Carp 模块 。 由 于 croak 国 数位 于 模块 名 后 面 的 列表 中 ， 因 此 





它 是 惟一 一 个 可 在 本 脚本 中 不 指定 全 名 而 直接 调用 的 子 例 程 。 艾 如 , 如 果 读 者 使 用 confess 
而 不 是 Carp::confess 的 话 , 程序 便 会 退出 执行 ,并 报 一 条 出 错 信 息 String found where operator 


expected at cluck.plx line9，mnear "confess" Jllegal value : " " (Do you need to predeclare confess?) … 





. 要 求 用 户 输入 。 

. 调用 子 例 程 ty， 并 将 标量 $grade 传递 给 它 。 

本 二 以 晤 人 全 例 | 和 汪 人 和 

. 将 传 入 的 参数 贱 值 给 Snumber。 

. 以 出 错 信息 为 参数 调用 croak 国 数 。croak 函数 由 Carp 模块 导出 。 如 果 $number 变量 值 不 在 


0 到 100 之 间 的 话 ， 程 序 便 会 退出 。 出 错 信 息 将 显示 程序 退出 的 行 号 ， 以 及 包 名 、 子 例 程 名 
和 调用 子 例 程 的 行 号 。 


示例 12.12 


UUSEESRNMoaUE 汪 em EnESESmOSEEORRETITOESE TDS 


也 


包 


#1V/bin/VPer1l 
Use CarP gw(clLuck): 上 cJIuck not exportea by aefau7t 


Door7e me 用 aoczaae 7 
S$grade = <STDIN>; 


try(Sgrade) 北村 全 二 可 各 司 Ci 全 
SEE 
my(Snumcez)=Q : 
Cluck "I1L1Legal value: "If $number < 0 11 $number > 100: 


】 


ETELUITSEWSE 有 IISEEESRSEOIOR ROSE ETEE 人 人 


oOuEewe) 
2 Ge me a 9raae” 200 
6 Give me a 9raade: 200 
Je9SUR7SAAEE CC 大 本 2 天 二 2 
0 攻 放 二 同人 全 王国 
VESSEL 
解释 


| 属 


在 当前 包 main 中 使 用 《〈 载 入 ) Carp 模块 。 本 脚本 中 将 使 用 cluck 函数 。 如 果 用 户 仔细 看 一 
下 有 关 cluck 函数 的 文档 ， 就 会 发 现 该 符号 在 默认 情况 下 并 不 会 导出 到 用 户 的 命名 空间 中 。 因 
此 ， 本 程序 将 显 式 地 导出 该 函数 。 

要 求 用 户 输入 。 








. 调用 子 例 程 fy， 并 将 标量 $grade 传递 给 它 。 

.定义 证 子 例 程 try。 

. 将 传 入 的 参数 赋值 给 Snumber。 

. 以 出 错 信息 为 参数 调用 cluck 函数 。 该 函数 来 自 Carp 模块 。 如 果 $number 变量 值 不 在 0 到 


100 之 间 的 话 , 程序 便 会 发 出 一 条 警告 信息 。 如 果 用 户 试图 使 用 其 他 任何 Carp 国 数 的 话 , 程 
序 就 会 退出 执行 。 为 了 使 用 其 他 这 些 国 数 , 用 户 必 须 显 式 地 导入 它们 , 或 者 使 用 它们 的 全 名 ， 
如 :， Carp::confess 。 
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12.2.6 ”使 用 Perl 创建 自己 的 模块 


下 面 这 个 示例 展示 了 如 何在 separate.pm 文件 中 创建 模块 ,并 在 其 他 程序 中 使 用 该 模块 。 虽 然 这 
个 模块 看 起 来 与 其 他 包 一 样 ,但 用 户 必须 在 其 中 额外 地 载 入 Exporter 模块 `.@ISA 数组 和 @EXPORT 
数组 ， 以 使 它 表 现 得 更 像 一 个 模块 。 模 块 与 .p1 文 件 的 区 别 在 于 ， 前 者 能 把 具体 的 符号 导出 到 其 他 
程序 ， 或 者 导入 其 他 模块 中 的 符号 。 如 要 了 解 为 CPAN 创建 模块 框架 的 知识 ， 请 阅读 “使 用 h2xs 
工具 为 CPAN 创建 扩展 和 模块 ”一 节 。 


示例 12.13 


(The Me.pm Moaule) 












































由 Package Me:， 
由 Use Strict; use warnings: 
忆 redquire 5.6: # Make Sure we're aa version of Per no 
# Older than 5.6 
4 zequire 卫 XPOLFtez 7; # 五 xYPorter.pm al1Iows SymbolIs to be Importeda 


# DPy others 
与 Our QISRA=qw (下 xPoLrteLrz):; # ITISa Is a Jist of base packa9es neeaed 
# DPy this moaule 
6 Our GEXPORT_OK=qw (hellLlo goodbye ); # IIst of your Subproutines 
# 上 Oo exPport 
刘 Sub helLllo { my(Sname)=sShitftt; 
EREERE SEESSTIERROTE 
8 sub goodbye { my(S$Sname)=shift;， 
EECESSOEOY ESDaiERNOL 
入 subEadoEnothangEcamnancmaecnmn 本 SambanamoE 
站 SR SEE 下 


本 DTmEE 二 Th 
# Prog9ram Dame: mazn.Per 了 





0 use Lib ("/home/elLlLie/Modules") : # 有 Pragma to upaate 6TNC. 
1 use Me  qw(hello goodbye) : # ImPport PacKka9e 
2  &hello ("Daniel") : 
3  &goodgbye ("Steve") : 
4 &oounotnanogy7 让 
# In Me.pm so cannot be importea unJIess 
二 E 区 PACSLEIYEWREDECMe Co TO9 
(GEGIDE) 
2 Hi there Daniel.， 
3 Gooa-bye Steve， 
中 


1. 该 文件 名 为 Me.pm。 它 岱 有 与 自身 名 字 相 同 的 包 , 只 不 过 不 包括 其 扩展 名 。 这 里 声明 了 Me 包 。 

2. strict 编译 指示 符 禁止 使 用 全 局 变量 ，warning 指示 符 则 负责 在 适当 的 时 候 发 出 警告 信息 ， 璧 
如 出 现 只 用 一 次 的 变量 、 未 定义 值 等 等 。 

3. 使 用 require 保证 所 用 Perl 版 本 不 低 于 5.6。 如 果 是 ， 则 退出 脚本 。 

4. Exporter 模块 是 一 种 特殊 的 Perl 模块 。 它 允许 用 户 通过 use 国 数 从 特定 模块 中 导入 子 例 程 

(其 北 吃 

5. @ISA 数组 列 出 了 该 包 所 用 所 有 子 例 程 〈 方 法 ) 的 属 主 包 。 这 是 Perl 实现 模块 间 继 承 效 果 的 
途径 〈 详 见 第 14 章 “ 面 向 对 象 的 Perl”) 。 

6. @EXPORT 数组 列 出 了 所 有 可 以 默认 导出 的 子 例 程 〈 方 法 )。@EXPORI OK 数组 列 出 了 用 
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户 在 use 语句 中 可 以 导出 的 子 例 程 〈 方 法 )。 如 果 用 户 没 有 请 求 ， 就 不 会 得 到 它们 。 此 处 导出 
列表 中 的 子 例 程 是 hello 和 goodbye， 将 在 下 面子 以 定义 。 


.定义 子 例 程 hello。 


8. 定义 子 例 程 goodbye。 
9. 定义 子 例 程 do_nothing。 请 注意 , 该 子 例 程 并 不 在 导出 列表 中 , 即 它 不 在 @EXPORT _OK 数 


10 


号 


12.3 


组 内 。 如 果 某 个 方法 不 在 导出 列表 中 ，Perl 便 会 在 当前 包 main 中 搜寻 它 。 
.lib 编译 指示 符 告 诉 编译 器 在 编译 时 更 新 @INC 数 ,好 BEGIN{require "/homey/ellie/Module"; 
import Module;} 





.use 函数 使 得 Perl 把 Me.pm 模块 导入 到 该 包 中 。 
| 


以 单个 参数 调用 子 例 程 hello。 导 出 该 子 例 程 。 


. 以 单个 参数 调用 子 例 程 goodbye。 导 出 该 子 例 程 。 
14. 


不 导出 该 子 例 程 ， 因 为 它 不 在 Me.pm 中 的 导出 列表 〈@EXPORT) 内 。 打 印 出 来 的 出 错 消 
息 表 明 , 包 main 不 能 识别 该 子 例 程 。 只 有 显 式 地 提供 包 名 区 Me::goodbye, 才 可 以 在 包 中 
使 用 这 个 子 例 程 。 


来 自 CPAN 的 模块 


CPAN(CComprehensive Perl Archive Network ) 是 由 几 百 个 Perl 模块 一 起 组 成 的 中 央 库 。 如 需 查 
找 最 新 的 CPAN 镜像 ， 请 访问 http:/www.Perl,com/CPAN 。 (在 第 16 章 ， 本 书 将 介绍 如 何 从 CPAN 
下 载 数据 库 模 块 ， 以 及 如 何在 程序 中 使 用 这 些 模 块 。) 

相互 依赖 的 Perl 模块 通过 名 字 、 作 业 和 类 别 分 门 别 类 联系 在 了 一 起 。 用 户 可 以 在 CPAN module 





CCPANUmodules - Mozilla Firefox 
氏 殉 ynrw Hory Booksarks Iooz tp 


从 - - 民 售 口 ktp:JNww.cpsn.orgjmodyeaz1 


CPAN 


Perl Niodules 


使 cetting yarted 国 LUwxes Hesdines 


CPAN pavigabonr CPAMJJmodulesy 


You can Search 二 ofCPAN 


9 CPAMN Search 
9 Randy 民 obes' Seazch 


of Sexch 了 be documentahon on CPANJ 


9 peridocperLorg 


Dene 





图 12-5 _ CPAN Web 站 点 上 的 Perl 模块 页 面 


- 立 - 


300 获 12 章 








目录 下 面 找到 所 需 模 块 ,也 可 通过 使 用 http:/Wwww.Perl.com 中 的 CPAN 搜索 引擎 找到 它们 。 如 需 安 
装 这 些 模 块 , CPAN 文档 能 为 用 户 提 供 简单 易 懂 的 安装 指南 。 下 面 这 个 Web 页 面 显示 了 信息 是 如 何 
分 类 的 ， 并 给 出 了 部 分 模块 列表 。 

ActivePerl 适用 于 Linux、S$olaris 和 Windows 操作 系统 ， 它 含有 Perl Package Manager 〈 用 于 
安装 CPAN 模块 包 ) 以 及 完整 的 在 线 帮 助 。PPM 允许 用 户 访问 模 块 库 、 安 装 新 模块 、 以 及 相对 方便 
地 升级 老 版 本 包 。 

如 需 使 用 ActiveState 软件 包 库 ， 用 户 可 访问 www.activestate.com/ppm packages/5.6。 

Cpan.pm 模块 。 Cpan.pm 模块 用 于 从 CPAN 站 点 查询 、 下 载 和 构建 Perl 模块 。 它 提供 了 交互 
式 和 批 处 理 两 种 使 用 模式 。 其 设计 目标 是 支持 Perl 模块 及 其 扩展 组 件 的 自动 化 安装 。 这 些 模 块 可 以 
来 自 一 个 或 者 多 个 CPAN 镜像 站 点 ， 并 解压 到 指定 的 目录 中 。 若 要 学 习 有 关 该 模块 的 更 多 内 容 ， 请 
在 系统 命令 行 环境 中 输入 : 

SS Perldoc Cpan 

读者 将 能 看 到 如 下 内 容 : 









































NAME 
CPAN - 9uery aqomnloaa ana buiJla Per1l moauIJes From CPAN SIteS 


SSYNOPSTS 
Iteractive mode: 
Per -MCPAN -ee She 
Batch moae: 
USe CPAN/ 
autopunale clean install maker recompiJe test 


DESCRIPTION 
The CPAN moauJle Is aesignea to automate the make ana instal1l of Per 了 
moauIJes ana extensions. ITIL IncIuaes some Searchin9 capabi1Izties ana 
KDoOmwS homw to Use Net::FTP or THP (or Jynx or an external ftPD cJIient) to 
fetch the raw aata from the pnet. 


MoauJes are fetcheaQ from one or more of the mirroreaq CPAN 
(Comprehensive Per]J Archive NetworKk) SItes anaq Unpackea In a 
aeaicatea airectory. 


Thpe CPAN moauJle also supports the concept of namea ana erSszonea 
*Dunalesx* of moaulJes， Bunales SIimpJIzify the hanaJin9 of sets of FreJatea 
moauJes。 5ee BunaJes beJomw. 


7TpPpe Packa9e contains a session manag9er ana a cache mana9er. There Is Do 
status retainea bpetween Sessions. 7The Session manag9er Keeps track o 开 
whpat has been fetchea，bulilIt ana installea in the current session. The 
cacpe mana9er Keeps track of the aisk space occupiea Dy the maKke 
Processes ana aeletes excess Space accoraing to aa simpJIe FTFO 
mecphanzsm， 


For extenaea searchin9 capabilJities there's a pPJuglin for CPAN avaiJIapIev 
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tbhe CPAN::JATITT manpag9e. 'CPAN::NATT' IsS a fuUuII-text Search en9ine tnat 
Inaexes ay aocuments availapbple In CPAN authors airectorIes。. 工 太 
"CPAN: :HaTT' Is Installea on your System the Interactive She ofFf 
<CPAN.Pm> WIII1 enable the 'wqd'， rwr' wa rw ana "wh commanas 
wpich sena G9ueries to tphe JaT7T Serer that has been con 帮 9uUrea For You 
Instal7Iatzizon. 

<ContInueS> 


山 


$ h2xs -有 A -Dn Exten.dirz 

1 大 国 二 05 本 条 大 攻关 王 
卫 让 配 ED DXEEDROINRXZS 
JItIn9 一 Xten.GIir/MaKke 矿 1e.PF 
1 用 生 全 二 志和 到 2 
JrIztzin9 xten.aIr/chan9es 
FItIDG 瓦 xXteDn.aIir/MANTFEST 


$ cd Exten.dir 
$ 1s 


S$ more 了 Exten.dir.Pm 
PacKage Xtem .az 


ES 
USES ER 
Use Warnin9sr 


edGuIre 厂 XPOFLer 7 
FeGuire Dynaroaaer， 


OU 6@7T5S4A = 9w(EXPorter DynaDoader) 


Cem5 oOEexDornocaye amneseaEee57 ae 二 SEE 
Note: ao notLt exporLt names PP7 QefauyL winout 
下 OCS 

CS 交 生生 区 亲人 天 二 本 三 二 用 这 生 四 大 放弃 
本 0 区 司 帮 有 玫 站 有 


人 0 富生 避 且 2 坟 富生 人 全 有 所 性 世 本 省 是 全 
大 天 国王 二 忆 彗 古语 肥大 OOE 和 人 
OO 








Per1L -MCPRAN -e Shel1 


0 有情 三 二 的 全 
ReaaTine Support enapJea 


二 2 鸭 


1 


Commana ar9ument GescriptIoD 
下 册 S 略 人 Oo 


JWORD or /REGEXP/A about anythin9g of above 
NON enstall recommenaations 
AUTHEOR OCS DECISCEECEO 


下 已 丰 帮 下 二 怀 内 且 天 二 克 丰 六 辣 丰 二 玉 了 有 


9et 


GaomwnIoaa 
maKe make (ImPJIies 9et) 
二 esStt MODUTES， 了 ake Lest (ImPpJIIes makel) 


这 忆 出 大 3 三 厅 岂 及 下 世 3 有 ake InstaJy 了 了 (mmPJIILes test) 
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Ge maKeScyeasz 

了 OOK open SupsheJ1l ID these alists' airectories 
zeaame QIzspIay these aistcs' READMP 矿 1es 

OEpner 

庙 汪 多 GIRLS7EEDEISR7eDC PERAEcoae 广博 二 是 已 EC 
em 到 证 二 丰 本 二 必 本 了 人世 mi | Guzt the cpanm speJ1 
eic 大 oo Joaa CPAN.Pm a9azD Eeeosaw 有 ooez eawTeWeE ESE 
autopunaJye Eeexa force cma DeeneaeaenEa Se 
Cma 

六 交 会 


使 用 PPM 


PPM 是 ActivePerl (www.activestate.com) 提供 的 一 种 程序 管理 器 。 它 非常 易于 使 用 ,并 能 运 
行 在 Linux、Windows 和 Mac OS 它 既 提供 了 GUI 界面 ， 也 提供 了 命令 行 接口 。 在 
激 话 PPM (Perl Package Manager) 后 ， 它 会 打开 一 个 窗口 ， 并 列 出 所 有 当前 已 安装 的 模块 。 然 后 
用 户 可 以 使 用 这 个 窗口 搜索 指定 模块 ， 人 更 新 和 移 除 模块 。 在 日 常 维护 工作 中 ， 上 述 使 用 
模式 要 比 CPAN 更 为 方便 。 




















[ETZTTTTTTTI 症 百 司 
Fle E 民 View Action Help 
汪汪 
昂 Makth-6lgIx-Fast,,，per| ”0,10 Math::BlgJmt':Calc with some X5 for more 5peed 
由 有 bwin32 per| “0.26.r3 六 collecbion of extensiors that ains to provide compr，， 
由 SOAP-LKe perl “0.55-f1 Jmterface to the Sample Object Access Protocol (5OAP) 
多 Td perl| ”0.69-r2 “0.69 Td extension rmodule for Per| 
盟 Activeperl-Config perl 1.0 Override the Activeperi configuration 
昂 MIME-6ase64-Scr perl ”1.00 Scripts to encodejdecode base64 and quoted-prinkable 
ActiveState-Scin,,， per| 1.01 Per| extersion to acce55 Scineplex code jexer 
册 Digest-HMAC perl 1.0! Keyed-Hashing or Message Authenkication 
丰 ActiveState-Relo.,，per| ”1.3 Move per| dstribution to new location 
出 File-CounterFie pedl 1.04 Persistenkt counters 
IO-z 肌 perl 1.04 1.01 IO:: style ierface to the Compressi:zlb manpa9e 
量 Tkx per| 1.04 1.04 yet another Tk interface 
明 Digest-MD4 perl 1.5-r1 Per| inkerface bo the MD4 algorkhm 
届 Daa-Dump perl ”1.08 Stringified Per| datas 式 ructures 
由 IO-String perl 1.08 1.06 Emulake file interface for in-core strings 
遇 Text-Reform pa 1.11 1.11 Manual text wrapping and reformatting 
昂 D6D-5QUke perl 1.13 1.13 Sej Contained RD6M5 in 3 DB6I Driver 一 
TS Ti Agnvnok Eee 站 首 丫 由 ,上 二 <wn ki kik vimremmi 一 < 一 JE kkin 一 
ET 
Synchronizing Database ... 
Downloading ActiveState Package Repository packdist ,, done 
Updsaking Active5take Package Repository dBXab5se done 
，Synchronizing Database done 
5765 pakages 42 县 d | 42 FEEaled 0 boinetal 0 toremove | TistalArea site | 区 





图 12-6 PPM GUI 
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员 Il packages; Displays all packages installed locally and available in the repository， 


Installed packages; Displays all installed packages， 


了 洒 末 > 
釜 夫 | 


Upgradable packages: Displays packages for which an Upgrade is avallable fromr the repository， 





Packages to installyremove: Displays packages rmarked for installation or rermoval， 
Mark for install;, Marks the selected packages for installation or Upgrade， 

Mark for remove': Marks the selected packages for rermoval， 

Run marked actions; Runs all marked actions 人 1,e, install upgrade remove) 
Refresh all data; Refreshes the list vieW， 


PPM Preferences: Opens the PPM Preferences dialog box， 














图 12-7 PPM 窗口 内 各 个 图 标的 含义 











ET 二 
File Edikt Wiew Action Help 
可 | 况 酌 喇 |[Ro | 林 9 | 铀 
] package Name Area | Inst,,， /| Available | Abstract 
[网 Maihsendmail 0.79 Sinple plekform independent mailer 
由 Parse-5yslog-Mail 0.11 Parse maier logs from syslog 
SR [De 
MaihSendmail 
Simple platform independent mailer 
Version' 0,.79 
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图 12-8 搜索 一 个 名 为 SendMail 的 Perl 模块 


使 用 h2xs 工具 为 CPAN 创建 扩展 和 模块 。 h2xs 工具 是 Perl 发 布 包 中 携带 的 标准 应 用 程序 。 它 
负责 创建 目录 和 框架 文件 , 常用 于 创建 模块 和 添加 C 语言 扩展 时 。 如 需 获 得 有 关 该 工具 的 完整 描述 
信息 ， 请 在 系统 提示 符 下 键 和 人: 


S$PerlLldoc h2xs 
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示例 12.15 


山 


S$ h2xs -A -Dn Exten.dir 

1 EXESDOITABXLEEDRAOIT Dm 
1 
ZILtInG9 五 Xten.GIir/MaKe 矿 1e.PF 
1 

1 三国 二 人 5 克 王 本 作证 二 有 
JEIPn9 五 XteDm air/ANMANTERESTI 


S cd Exten.dir 
$ 1s 


S more 也 xten.dir.Pm 
PacKkage 厂 XteDm .QIz7” 


ES 
SEE 
Use Warnin9sr 


zeGuIFe 瑟 XPOFLer 
zeGuIzre Dynarpoaacer，” 


Our 6@75A = G9W(ZXPorter Dynapoaaer) 


Items to export Into calIJers namespace Dy aefaut. 
Note:” ao notLt Export names D7 QefauJyL 上 WILLnoUE 
四 ee 
CS 及 二 有 全 六 记 人 下 二 本 二 二 记 帮 思 
ER 


7Tphis aJIJJomws aecJaration Use Exten.air ' :al17'7 
5 0 BR 
EGR 
人 








DORAIOREE 人 人 


OUF GEXPORT = G9Gw( ) 7 
ON 


OO 六 

# PrelIoaaea methoas 9o here. 

了 2 

目 人 攻 以 忆 居 三 

夺 刘 ESGO 克 本 三 志 OCTETLEE 二 已 汪 站 C 关 是 冯 C 天 是 7 六 DIE 
# You'a Petter eaQit IE! 

=PeaQ NAM 


SpA 证 二 OECD 


=heaa]l SYNOPSTS 
USe Xten.QIry7 
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凡人 

=Pheaa]l DEFSCRTPTTITON 

LeiaDSOUeEesw oo 全 2 避 0 站 2 
the atphor of the extens7Ion was Dne9Jioent enouonh Lo Jeavre the stup 
五 页 EGEECE 

汉王 太 本 局 天王 帮 本 已 丰 二 帮 下 

= 太 eaaQ2 瑟 XPOR 了 了 

None by aefault. 

=Dheaal AUTHFOR 

全 且 下 三 二 忆 全 天 各 二 本 二 囊 本 交 克 王府 二 区 天 二 天 有 二 下 二 光 

=heaal SF ATSO 

DEF 


三 全 二 


解释 


1 


. h2xs 工具 创建 一 个 子 目 录 ( 此 处 名 叫 Exten.dir)。 该 子 目 录 含 有 六 个 文件 ,用 于 创建 符合 CPAN 
格式 的 模块 。 在 为 CPAN 创建 模块 之 前 , 请 先 到 www.cpan.com/modules/00modlist.long.html 
确认 一 下 有 设 有 其 他 人 编写 过 该 模块 。 这 样 做 可 以 收 到 事半功倍 的 效果 。 

2. 切换 到 h2xs 创建 的 新 目录 中 。 

3. 这 是 h2xs 工具 〈 未 曾 显 示 ) 所 创建 文件 的 清单 。MANIFEST 文件 合 有 在 这 个 目录 中 创建 文 
件 的 列表 , 并 列 出 了 模块 发 布 时 需要 携带 的 附加 文件 。Makefile.PL 文件 负责 生成 Makefile。 
Exten.dir.pm 是 含有 扩展 的 框架 模块 ,而 Exten.dir.xs 则 含有 XSUB 例 程 ， 负 责 加 载 C 扩展 。 

4. 这 是 一 个 框架 模块 ， 能 帮助 用 户 正确 地 创建 模块 。 








TEN 
玉 
人 


读者 应 当 学 到 的 知识 


二 Perl 程序 里 的 默认 包 ? 

么 是 符号 表 (symbol table) ? 

何 查看 符号 表 ? 

什么 是 @INC 数组 ? 

什么 是 编译 指示 〈pragma) ? 

境 变 量 PERLSLIB 是 做 什么 用 的 ? 
什么 时 使 应 当 使 用 require ? 

require 和 use 的 区 别 是 什么 ? 

什么 是 Exporter 模块 ? 

10. 什么 是 EXPORTER_OK 数组 ? 什么 是 %EXPORTER_TAGS 散 列 ? 
11. 在 .pl 或 .pm 文件 末尾 放 入 一 个 “1” 的 钵 义 是 什么 ? 





二 -证 -二 主 证 
五 


字 党 








MD oo ~ 人 耻 惟 上 wm 一 
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12. 如 何 更 新 @INC 数组 ? 

13. 如 何 从 另 一 个 包 中 访问 子 例 程 ? 

14. 如 何 维护 变量 的 私有 性 ? 

15. 从 CPAN 安装 模块 最 简便 的 方法 是 什么 ? 





12.5 下 章 简 介 


下 一 章 将 关注 指针 (pointer)， 又 称 引 用 〈reference )。 读 者 将 学 习 如 何 借助 指针 创建 复杂 数据 
结构 、 如 何 创建 匿名 变量 、 如 何 获 取 对 指针 的 引用 内 容 、 以 及 如 何 把 指针 传人 子 例 程 。 
读者 还 将 学 到 为 什么 要 在 Perl 中 使 用 指针 。 








练习 12 ”把 所 有 Perl 都 放 入 包 内 


1. 编写 脚本 myATM。 它 含有 两 个 包 Checking 和 main。 然 后 把 该 文件 拆 分 为 一 个 用 户 文件 和 一 个 
模块 文件 。 

2. 在 myATM 脚本 中 ， 声 明 一 个 名 叫 Checking 的 包 。 
它 含 有 一 个 名 叫 balance 的 my 变量 ， 并 赋值 为 0。 
一 开始 ， 它 含有 三 个 子 例 程 : 


a. Sel_Dala1ce 





b. depos 区 
C.WILPd7aW 
3. 在 main 包 【〈 位 于 同一 文件 内 ) 中 ， 创 建 一 个 here 文档 ， 负 责 生 成 如 下 输出 内 
1) Deposit 
2) Withdraw 
3) Current Balance 
4) Exit 
然后 要 求 用 户 选择 其 中 一 个 葬 单项 。 如 果 选 择 的 不 是 第 4 项 ， 程 序 便 进 入 循环 ， 然 后 重新 显示 菜 
单 内 容 ， 并 等 待 用 户 选 择 另 一 个 事务 。 
在 main 包 中 调用 子 例 程 。 为 此 必须 指定 Checking 包 名 和 两 个 冒号 。 
如 果 用 户 选 择 第 4 项 ， 则 在 退出 程序 前 ， 将 当前 日 期 和 余额 打印 到 文件 register。 
如 果 不 调 用 get_balance 子 例 程 ， 还 能 打印 余额 值 吗 ? 
. 重新 编写 Checking 包 ， 当 存在 register 文件 时 ， 便 从 该 文件 中 读 取 余 额 数 值 ; 否则 就 从 余额 为 0 
开始 。 每 当 程序 退出 时 ， 均 把 当前 日 期 和 余额 写 和 人 到 register 文件 中 。 
5 a. 在 第 11 章 的 练习 11 中 , 读者 曾经 编写 过 一 段 名 为 trigger 的 程序 , 它 含 有 一 个 子 例 程 mileage。 
该 例 程 要 求 用 户 输入 驾驶 里 程 数 和 所 耗 油 量 。 该 例 程 将 计算 并 返回 用 户 的 耗 油 率 〈 即 每 加 仑 汽 
油 行驶 的 里 程 )。 传 递 给 子 例 程 的 参数 包括 驾驶 里 程 数 和 所 耗 油 量 。 这 两 个 参数 都 赋值 给 了 相 
应 的 my 变量 。 如 有 果 读者 尚未 编写 过 trigger 程序 ， 这 里 我 们 还 可 再 来 一 次 。 
b. 如 果 表 示 油 量 的 输入 值 是 一 个 非 数 值 型 量 、 负 数 或 者 0 的 话 ， 就 调用 croak 函数 打印 出 错 


信息 。 
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现在 创建 一 个 名 叫 myfunctions 的 子 目 录 。 切 换 到 该 目录 ,并 创建 一 个 名 叫 mileage.pl 的 文件 。 
然后 把 子 例 程 mileage 放 入 该 文件 mileage.pl 中 。 
c. 在 trigger 脚本 中 ， 更 新 @INC 数组 内 容 ， 并 借助 require 函数 导入 mileage 子 例 程 〈 请 确保 子 
例 程 中 位 于 终止 花 括 号 后 的 最 后 一 行内 容 为 1 )。 
. 将 Checking 包 从 myATM 脚本 移动 到 另 一 个 名 叫 Checking.pm 的 文件 中 。 然 后 把 Checking.pm 
文件 移入 一 个 名 叫 “myModules” 的 目录 内 。 在 需要 使 用 该 模块 的 myAIM 脚本 中 更 新 @INC 数 
组 内 容 。 在 myATM 脚本 中 使 用 Checking 包 。 
































第 13 章 这 项 工作 需要 5 用 吗 


13.1 什么 是 引用 ， 什 么 是 指针 





在 Perl 中 ,“ 引 用 (reference)” 和 “指针 (pointer)” 这 两 个 词 是 可 以 互 换 的 。 一 个 引用 是 一 
种 引用 其 他 变量 内 容 的 变量 。 简 而 言 之 ， 它 含有 其 他 变量 的 地 址 信息 。 在 回 子 例 程 传递 参数 时 【〈 详 
见 第 11 章 )， 我们 已 经 见识 了 引用 的 威力 。 我 们 还 可 使 用 引用 〔〈 或 指针 ) 去 创建 更 为 复杂 的 数据 结 
构 ， 例 如 一 个 键 对 应 一 组 值 的 散 列 结构 、 或 者 元 素 为 数组 的 数组 等 。 此 外 ， 下 一 章 在 介绍 Perl 对 象 
的 创建 时 也 会 用 到 引用 。 




















13.1.1 符号 引用 和 硬 引 用 


硬 引 用 (hard reference) 是 一 种 标量 型 变量 , 其 中 含有 其 他 类 型 数据 的 地 址 。 它 与 C 编程 语言 
提供 的 指针 类 似 。 本 章 将 着 重 介绍 硬 引 用 。 

一 个 位 于 符号 表 中 的 Perl 变量 只 能 持 有 一 个 指向 变量 值 的 硬 引 用 。 这 种 值 可 以 像 一 个 数字 那么 
简单 ， 也 能 像 散 列 那样 复杂 。 多 个 硬 引 用 可 以 指向 同一 个 变量 值 ， 但 后 者 并 不 知道 它们 的 存在 。 

一 个 符号 引用 〈symbolic reference) 能 为 另 一 个 变量 命名 ， 而 不 是 指向 其 变量 值 8。typeglobs 
就 是 一 种 符号 引用 ， 其 变量 名 前 绥 是 一 个 * 字符 。 它 们 不 过 是 变量 的 一 种 别名 而 已 。 

读者 可 能 还 记得 本 书 前 面 是 如 何 使 用 typeglobs 的 。 在 第 11 章 , 我 们 已 经 讨论 了 早期 的 Perl 是 
如 何 使 用 typeglobs 来 向 子 例 程 按 引用 传递 参数 的 。 而 在 第 12 章 中 ， 则 使 用 typeglobs 向 某 个 包 的 
符号 表 中 导入 符号 。 下 面 这 条 语句 就 用 到 了 typeglobs: 

xtown = xcCity; # 任何 city 类 型 都 能 用 town 引 ) 

上 面 的 星 号 代表 所 有 位 于 变量 名 前 面 的 特殊 字符 ,包括 子 例 程 `. 文 件 句柄 和 格式 等 。 它 能 “glob” 
到 符号 表 中 含有 这 个 变量 名 的 所 有 符号 上 四。*towan 是 *city 的 别名 。 至 于 哪个 符号 引用 哪个 别名 ， 
则 是 由 用 户 自己 决定 的 。 如 需 访 问 别名 引用 的 实际 值 ， 只 需 在 别名 前 面 加 上 正确 的 特殊 字符 便 可 。 
例如 ; 


































































































龟 与 C 指针 不 同 ，Perl 指针 是 一 种 字符 串 ， 因 此 不 能 对 它 执行 指针 代数 运算 操作 。 
全 Wall,L., Programming Perl, O'Reilly & Associates: Sebastopol, CA, 1996, p. 244. 
四 这 里 与 文件 名 替换 〈 即 <p*>) 时 的 glob 操作 不 同 。 
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Given: *town = xcCity 
Then: S$Stown refers to the scalar S$Scity 
Qtown refers to the array Q@city 
Stown{fn"mayor"} refers to an element of a hash S$Scity{"mayor"l} 


示例 13.1 展示 了 另 一 种 类 型 的 符号 引用 。 在 这 种 符号 引用 中 , 一 个 变量 值 将 指向 另 一 个 变 


示例 13.1 


和 已 允 斌 直下 
# Prog9ram UsIin9 Symbolic references 








量 的 名 字 。 


也 S$Sanimal="aog" 

写 S$Sdog="LadQy"; 

忆 Eco acoge EeeESEESHSSDETISHINRO 人 用 3 全 O 相 二 和 天才 天 忆 让 CE 
4 evVal "NS$Sanimal='Lassie'7"7 

过 和 

QiSSunay 


( 
电 MCAoDNa LeLcic 三 汉 
与 Jemt7e5EEURRE ESSSEeS 


解释 

1. 将 标量 $animal 赋值 为 “dog”。Perl 会 把 变量 名 animal 存 入 符号 表 中 , 并 由 一 个 引用 指向 其 
变量 值 dog。 

2. 将 标量 $dog 赋值 为 字符 串 “Lady ”。 

3. 变量 ${$animal} 的 值 为 Lady。 这 是 一 个 符号 引用 。 其 中 $animal 是 一 个 变量 ， 得 到 其 值 为 
dog。 第 二 个 美元 符号 表示 另 一 个 变量 $dog， 其 变量 值 则 是 “Lady”。 本 行 通过 一 个 变量 引 
用 另 一 个 变量 。 

4. eval 国 数 能 对 表达 式 求 值 ， 其 效果 就 好 像 在 某 个 独立 的 Perl 小 程序 里 一 样 。 本 行 隐 去 了 第 
一 个 美元 符号 。$animal 的 值 为 dog。 文 本 美元 符号 位 于 求 值 结 果 前 面 ， 因 此 这 条 语句 的 内 
容 就 是 $gdog="Lassie"。 

.在 eval 之 后 ， 打 印 ${$animal} 的 值 ， 即 $dog 的 值 “Lassie”。 





strict 编译 指示 。 为 了 避免 在 程序 中 不 经 意 间 误 用 符号 引用 ， 可 使 用 strict 编译 指示 ， 其 参数 为 
refs。 这 样 就 能 让 Perl 检查 该 符号 引用 是 否 用 在 程序 中 。 在 这 里 ， 我 们 通过 strict 编译 指示 再 次 执 
行 前 面 的 示例 。 


示例 13.2 


#!1V/bin/pPez1l 
# PEPFO9ram UsIn9 Symbolic rerferences 








由 use Strict "refs" 

网 $animalL="dog" ; 

色 $dog="Lady" ; 

4 Print "Your dog is called ${S$animal}Nn" ; 

5 eval "\5$$animalL='Lassie' 7;": 

6 Print "Why don't you call her 5${S$animal}?Nn" 
kemeeuwey 


sanseS70O 靖 人 作 2 ETAREE 太 人 0 风 RE SEC 
这 王 区立 和 三 4 
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1. strict 编译 指示 保证 程序 只 使 用 硬 引用 ,否则 就 在 编译 时 退出 程序 ,并 打印 如 此 脚本 输出 内 
容 所 示 的 出 错 信息 。 

3. 这 是 脚本 的 第 10 行 。 程 序 在 此 处 中 止 执行 , 因为 这 里 第 一 次 出 现 了 符号 引用 ${Slanguage} 。 

4. 这 一 行 也 含有 符号 引用 ， 但 程序 将 永远 不 会 到 达 这 里 。 因 为 strict 编译 指示 已 经 在 前 面 退 出 
人 


13.1.2 硬 引 用 ， 指 针 


在 第 11 章 时 ， 我 们 讨论 过 如 何 通过 指针 向 子 例 程 中 传递 引用 。 这 里 再 回顾 一 下 : 硬 引 用 是 一 
种 标量 ， 它 含有 其 他 类 型 数据 的 地 址 。 一 个 内 容 为 地 址 值 的 变量 也 可 称 作 指 针 ， 因 为 它 指向 了 其 他 
的 地 址 或 引用 。 这 种 类 型 的 引用 可 以 指向 标量 、 数 组 、 关 联 数组 或 者 子 例 程 。Perl 5 中 引入 的 指针 
机 制 为 用 户 提供 了 创建 复杂 数据 类 型 的 能 力 ， 璧 如 元 素 为 数组 的 数组 、 元 素 为 散 列 的 数组 、 内 容 为 
散 列 的 散 列 表 等 。 所 有 原来 使 用 typeglobs 的 示例 ， 现 在 都 可 以 选择 用 指针 取而代之 。 指 针 提 供 了 
一 种 向 子 例 程 按 引 用 传递 参数 的 途径 。 

反 斜 杠 运算 符 。 反 和 斜 杠 一 元 运算 符 可 用 于 创建 硬 引用 , 类 似 于 C 语言 中 用 于 获取 “地 址 ”的 
运算 符 。 在 下 面 这 个 示例 中 ，$p 是 一 个 引用 。 该 引用 赋值 为 标量 $x 的 地 址 。 









































SP = NSxX ; 

下 面 是 一 个 来 自 Perl man 页 面 perlref 部 分 的 有 关 硬 引用 的 示例 : 
S$Sscalarref = \Sfoo; # reference to scalar $ftoo 
$arrayref = \QRARGV: # reference to array GRRGV 
Shashre = \ 节 ENV; # reference to hash SENV 

S$Scodqereff = N\&handleri # Teference to subroutine handler 
S$Sg9lobref = NAxSTDOUT， # Teference to typeglob STDOUT 
Sreftoref = \S$scalarref; # reference to another reference 


(Pointer to pointer，ugh) 


按 地 址 访问 〈dereference) 指针 。 如 果 把 引用 《指针 ) 的 值 打印 出 来 ， 就 可 以 看 到 其 内 容 是 地 
址 。 如 果 要 切换 到 这 个 地 址 并 获取 存 入 其 中 的 值 〈 即 按 地 址 访问 指针 )， 用 户 必 须 在 指针 前 面 缀 以 两 
个 “特殊 ”符号 。 第 一 个 符号 是 一 个 美元 字符 ， 因 为 指针 本 身 只 是 一 种 标量 ， 所 以 前 面 必须 带 有 代表 
它 所 指向 数据 类 型 的 特殊 符号 。 当 使 用 更 为 复杂 的 类 型 时 ， 用 户 还 可 使 用 箭头 〈 中 绥 ) 运算 符 。 


示例 13.3 


人 Eee 

#!V/bin/pPer1 

Snum=5: 

SP = \S$Snum:; 本 
RE 

PEint "The Value StoreQ at that adaqress is $SP\n"; 上 Qereference 








心 WwW IN 上 哺 


ou 
司 The aaaress assignea 5SP Is SCATAR(OXP057c) 
4 Tpe 7aJue SoreaQ at tnat acQadress is 5 
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解释 
1. 将 标量 $num 赋值 为 5。 
2. 将 标量 $p 赋值 为 $num 的 地 址 。 这 是 一 个 反 斜 杠 运算 符 国 数 。$p 可 称 作 引 用 或 指针 。 
个 术语 是 可 以 互 换 的 。 
. 打印 存储 在 $p 中 的 地 址 。Perl 还 表明 其 数据 类 型 是 SCALAR。 
4. 按 地 址 访问 指针 $p,， 为 此 在 $p 前 面 加 上 了 另 一 个 美元 符号 。 这 个 美元 符号 告诉 Perl 去 查看 
$p 引用 的 变量 值 ， 即 $num。 


内 存 地 址 0xb05a0 0xb057c 


ULD 





示例 13.4 
要 
1 Qteoys = gw( Barbie ELImo Thomas Barney ) ; 
2 有 DIE 三 ESY SR 
3 sgames=("Nintendao"n" => "Winy 
Sn 三 NE 
RES CE 





) 
4 S$refl = \Snum;:  # Create Poznters 
5  S$ref2 = \Qtoys : 
6 S$ref3 = \%games 
TESTETe 基 TESTEOSRAND 上 二 SEC CBEEE 3 
STOREY ER 


SEEREECSIES 汪 OF NE 
开国 记 下 十 且 用 WEST 


11 while(($keyrS$value)=each (ss$ref3) ){ 
Pint "$key => $valueNn"; 
】 
12 Print "They waitead in line for a S$Sref3->{'Nintendo' ljN\n"; 


Oureuwey) 

TpPpere are 4 toys. 

They are: BarpievEJImorTnomnas， Barney， 
JUessica's favrorite Lo 15 Barple. 
MIJJI2zer"s FarorIte Lo 15 pomas . 
NEOoSGD OO 王 >XBOR SGO 
GO 

Nintenao => JI 

TPey wazteaQ in JIne FoFr 昌 MI 


解释 
1. 把 一 个 列表 赋值 给 数组 @toys。 
2. 将 数组 @toys 赋值 给 标量 型 变量 Snum， 从 而 返回 数组 元 素 总 数 。 
3. 把 键 / 值 对 赋值 给 散 列 %games。 
4. $refl 是 一 个 指针 。 借 助 反 斜 杠 运算 符 把 标量 Snum 的 地 址 赋值 给 它 。 
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5. 将 数组 @toys 的 地 址 赋值 给 指针 $ref2 。 

6. 将 散 列 %games 的 地 址 赋值 给 指针 $ref3 。 

7. 按 地 址 访问 指针 ， 也 就 是 说 : 转 到 $refl 指向 的 地 址 处 ， 并 打印 这 里 保存 的 标量 值 。 

8. 再 一 次 按 地 址 访问 指针 ， 也 就 是 说 ， 转 到 $ref2 指向 的 地 址 处 ， 获 取 并 打印 数组 内 容 。 

9. 箭头 运算 符 -> 用 于 按 地 址 访问 指针 ， 并 获取 该 数组 的 第 一 个 元 素 。( 也 可 写作 $$ref2[0]。) 

10. 再 次 使 用 箭头 运算 符 -> 按 地 址 访问 指针 ， 并 获取 该 数组 的 第 三 个 元 素 。 

11. each 畏 数 负责 通过 散 列 的 指针 检索 其 键 和 值 。 如 需 按 地 址 访问 散 列 ， 则 应 在 指针 变量 前 加 
二 人 丰 放 二 

12. 箭头 运算 符 -> 用 于 按 地 址 访问 指针 , 并 获取 其 中 键 为 “Nintendo ”的 散 列 值 。( 也 可 写作 
$9$ref3{" Nintendo "} 。) 


13.1.3 引用 和 匿名 变量 


在 创建 对 变量 的 引用 《指针 ) 时 ， 并 不 一 定 需要 为 该 变量 命名 。 如 果 某 个 变量 或 子 例 程 没 有 名 
字 ， 那 么 就 称 它 是 匿名 (anonymous) 的 。 如 有 果 把 一 个 匿名 变量 〈 或 子 例 程 ) 赋值 给 标量 ， 则 这 个 
标量 就 是 对 该 变量 〈 子 例 程 ) 的 引用 。 

箭头 运算 符 〈->) 又 称 为 中 绥 运 算 符 ， 它 可 用 于 按 地 址 访问 指向 匿名 数组 和 散 列 的 引用 。 尽 管 
箭头 运算 符 是 可 选 的 ， 但 它 能 让 程序 更 为 易 读 。 

匿名 数组 。 匿 名 数组 的 元 素 位 于 方 括号 〈[]) 中 。 请 读者 不 要 把 这 些 方 括号 与 用 到 下 标 上 的 方 
括号 混为一谈 。 这 里 的 方 括号 用 作 给 标量 赋值 的 表达 式 。 如 有 果 位 于 引号 中 ,程序 将 不 解释 这 类 方 括 
号 。 用 户 可 利用 箭头 运算 符 来 获取 数组 的 单个 元 素 值 。 


示例 13.5 


人 Eee 
#1V/bin/pPpezr1l 
业 my $Sarrayref = [ 'Woody'，'Buzz'，'Bo'，'Mr. Potato Head' ]: 
包 print "The value of the reference，\S$Sarrayref is " 
人 人 NE 
# AI71 of these exampJles aereference 5arrayre 开 
ES 之 [3 EN 
4 ESSSCEE3VESEIISI AD 和 
5 Pint $ftS$SarrayreEfl[3]，"\n"; 
6 DIEiInt "Q{S$Sazzayrzefl"，"Nn"7 




















( 

2 The value of the Freference 5arrayrerE IsS ARRAY(OX3Sa6F134) 
悦 Mr。， Potato Feaa 

4 Mr。，Potato Feaa 

号 几 二 司 本 已 CO 下 三 记忆 是 吕 G2 记 

6 Wowy7EBwZZEBORNM ROSS 是 SEC 

又 


1. 把 匿名 数组 元 素 赋 值 给 数组 引用 $arrayref。 

2. 数组 引用 中 含有 匿名 数组 的 数据 类 型 和 十 六 进 制 地 址 值 。 

3. 打印 数组 的 第 4 个 元 素 。 指 针 变 量 $arrayref 后 面 是 指向 待 检索 下 标 值 的 箭头 运算 符 。 
4. 这 里 并 不 需要 真正 的 箭头 运算 符 。 第 4 行 和 第 5 行 的 方法 可 以 访问 元 素 。 

6. 按 地 址 访 癌 指针， 然后 打印 整个 数组 。 花 括号 在 这 里 是 必需 的 。 
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芽 名 
的 数据 类 








溢 





散 列 。 匿 名 散 列 可 通过 花 括 号 〈 丹 ) 创建 。 用 户 可 以 混合 使 用 数组 和 散 列 ， 从 而 创建 复杂 
型 。 这 些 花 括 号 不 同 于 用 在 散 列 下 标 上 的 花 括 号 。 用 户 可 以 把 匿名 散 列 赋值 给 标量 引用 。 





示例 13.6 


(The 
并 
及 
习 


4 


(em 
肥 


3 
4 

解释 
1. 匿 


oa 

#!1V/bin/pPer1l 

my $hashref = { "Name"=>"NWoody"， 
"TYPe"=>"Cowboy" 

]} 7 

Print $hashref->{"Name"}，"Xnxn" 7 

PEint keys g%$ShashreEf，"\n"; 

Pint Values g%S$hashreE， "AN\n"; 


jay 
ooay 


NameTyPpe 
WooayComwpoy 


名 散 列 中 售 有 一 组 位 于 花 括 号 内 的 键 / 值 对 。 这 里 将 匿 名 散 列 赋值 给 引用 $hashref。 


2. 散 列 指针 $hashref 通过 箭头 运算 符 按 地 址 访问 散 列 表 。 键 Name 与 值 Woody 相关 联 。 
3. keys 国 数 通过 引用 《指针 ) 返回 匿名 散 列 中 的 所 有 键 。 
4. values 国 数 通过 引用 《〈 指 针 ) 返回 匿名 散 列 中 的 所 有 值 。 


13.1.4 


创建 
套 散 列 ， 
和 简 
特殊 符号 。 
组 的 指针 ， 





散 套 数据 结构 


指向 匿名 数据 结构 的 引用 《指针 ) 将 形成 更 复杂 的 数据 类 型 。 例 如 ， 用 户 可 以 在 散 列 中 和 

或 者 创建 元 素 为 散 列 的 数组 ， 又 或 者 创建 元 素 为 数组 的 数组 等 。 

单 引 用 一 样 ， 当 按 地 址 访问 匿名 数据 结构 时 ， 必 须 在 引用 前 面 加 上 正确 的 表示 数据 类 型 的 
例如 ， 如 果 $p 是 指向 标量 的 指针 ， 则 可 用 $$p 按 地 址 访问 标量 内 容 ; 如 果 $p 是 指向 数 
则 可 用 @y$p 按 地 址 访问 该 数组 ， 或 者 用 $$p[0] 访问 数组 的 第 一 个 元 素 。 用 户 还 可 通过 

















块 处 理 的 
号 ， 以 避 
据 结构 中 

列表 


方式 按 地 址 访问 指针 。$$p[0] 也 可 写作 $f$p}[0] 或 @1p![0..3]。 有 时 程序 需要 使 用 角 括 
免 出 现 多 义 性 ; 而 且 有 的 时 候 角 括号 还 是 必 不 可 少 的 ， 以 便 能 通过 特殊 字符 按 地 址 访问 数 
的 正确 部 分 。 

的 列表 。 列 表 中 也 可 含有 其 他 列表 或 列表 集合 ， 该 模式 常用 于 创建 多 维 数组 时 。 示 例 13.7 

















和 13.8 把 一 个 引用 赋值 为 舍 有 另 一 个 匿名 数组 的 匿名 数组 。 


示例 13.7 


#!1V/bin/pPer1l 
# PEFOOFam to aemonstrate aa reference to a 了 1I5t WILDP a 
# nesteaQ Jist 
mVESSaEaySs 一 II 2 LS ec PPLue een il 川 凡 
1 人 人 用 员 | 
PEzint S$Sarzays->[S$] ,"Nnn" 
】} 


证 国生 玉生 王 二 人 和 玫 用 全 人 放下 
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可 Print $arrays->[3]->[S$Si]l,"Nn"; 
6 1 
也 击 芝 攻击 站 本 三 介 人 全 是 县 


eeEwE) 
3 玉 
淘 
吕 
司 工 ed 
了 Jue 
9FreeDm 


了 2 3 ARRA7(OX6a6F7134) 
--ea bpJue 9reen-- 


请 国宝 


. for 循环 用 于 获取 第 一 个 数组 的 值 ， 该 数组 由 元 素 1、2 和 3 构成 。 
在 这 里 使 用 箭头 运算 符 按 地 址 访问 $arrays 。 





作品 一 


. $arrays 是 一 个 指向 四 元 数组 的 引用 , 该 数组 含有 另 一 个 三 元 数组 , 其 元 素 包括 red\blue 和 green。 


. 借助 第 一 个 for 循环 运 代 遍 历代 套 的 匿名 数组 。 由 于 该 数组 是 第 一 个 数组 的 第 4 个 元 素 ， 且 


数组 下 标 是 从 0 开始 的 ， 因 此 其 第 一 个 下 标 值 为 3， 第 二 个 下 标 则 引用 其 中 每 个 元 素 。 


( 


. 打印 骨 套 数组 的 每 个 元 素 (red、blue、green ) 。 


6. 通过 在 含有 引用 的 块 之 前 附加 @ 符号 , 便 可 检索 并 打印 匿名 数组 中 的 元 素 。 数 组 的 第 三 个 


元 素 是 指向 另 一 个 匿名 散 列 的 引用 。 打 印 其 地 址 。 
7. 按 地 址 访问 第 二 个 怠 套 数组 ， 并 打印 其 内 容 。 


示例 13.8 


ESeenety 
#!1V/bin/pPez1l 
# Pro9ram to aemonstrate aa pointer to a two-alimensional array。 


也 my S$matrix = [ 
[2 人 | 导 
[| 
[| 


| 国 


2 RON 


司 Print "Dereferencing with two LIoops.NXn"i 
4 SS) 有 
号 人 
6 TEST 之 习 | > SI 
】} 
nanNL 
】} 
Da 
也 Pint "Derefencing with one 1LIoop.NXn"7 
8 后 让 相 全 二 是 员 天 玫 
9 En elSnatzxE>TS] NONn 


} 
10 8$P=\S$SmatLrix:， # _ Reference to a reference 
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11 Print "Dereferencindg a reference to reference.Nnn" 
二 用 二 玉生 下 而 届 有 人 用 
eu) 
习 民 O7 是 本 CGOmm 帮 2 了 
习 用 seeemeono 古 交工 臣 记 大 有 ONCE 
6 0 2 4 
0 
2 
的 下 eenheeesno 古 工 臣 几 本 2PE 晤 AGOCEE 
入 0 2 4 
7 
2 
11 Dererferenczng aa reference to reference。 
下 2 当 
解释 


NMD 


\D co 修 册 小 


. 将 引用 《指针 ) $matrix 赋值 为 三 个 匿名 数组 中 的 一 个 匿名 数组 , 即 二 维 数组 〈 列 表 的 列表 )。 
. 通过 箭头 运算 符 访问 数组 中 的 第 一 个 元 素 。 在 相 邻 的 下 标 方 括号 之 间 隐 含 了 一 个 箭头 运算 





符 ， 该 运算 符 是 可 选 的 。 它 也 可 写成 Smatrix->[2][1]。 


. 进入 外 层 循环 。 该 循环 旬 代 思 历 数组 的 每 一 行 。 

. 进入 内 层 循环 。 该 循环 色 代 思 历 数组 的 每 一 列 。 

. 通过 引用 《指针 ) 打印 二 维 数组 的 每 一 个 元 素 。 

. 这 次 只 通过 一 个 for 循环 打印 抢 阵 的 内 容 。 

. 使 用 块 格式 按 地 址 访问 指针 。 打 印 每 个 列表 中 的 所 有 元 素 。 


10. $p 是 一 个 引用 ， 其 值 指向 另 一 个 引用 。 它 又 称 作 指 疝 指针 的 指针 。 


| 也 


. 如 要 访问 数组 元 素 〈 即 按 地 址 访问 $p )， 则 应 当 在 前 面额 外 提供 一 个 美元 符号 ， 一 个 用 于 P， 
另 一 个 则 用 于 matrix。 在 相 邻 的 下 标 方 括号 之 间 隐 含 了 箭头 运算 符 ， 亦 可 写成 3p->[1]->[2]。 


由 








散 列 数组 。 列 表 中 也 可 含有 一 个 或 一 组 散 列 。 示 例 13.9 将 把 引用 赋值 为 含有 两 个 匿名 散 列 的 匿 
名 数组 。 
示例 13.9 
由 my S$PetreEf = [ "name"n => "Rovec"ny 
Tt 一 > 人 [SS 风情 
"owner" => "ME。. JUJones"， 
迟 "name" => "SylVesteE"， 
"type" => "catn， 
"OwneCn” 三 > MTS2 了 LacCKE7"， 
3 |E 
4 Print "The frst pet's name is $pPetref->[0]->{fnamel.\n"; 
FTIR EST 基 焉 3 生 SEENTESESRRNO 
S GT ES 
6 while((S$keyvSvalue)=each g%{Spetref->[$Si]} )1{ 
电 ESRE7R SaUIUSNEL 


】 





座 : 
3716 各 13 草 
TEN 
) 
En SERIES NI 
8 Push 6G{S$SPetrefl,{ "owner"=>"Mrs .Crow"，"name"=>"Tweety"， 
"tyPe"=>"birdn" ) 芝 
while((S$keyvS$value)=each g%{SPetreE->[2]1}) 1{ 
II TOTERSREY SEN 人 
】} 
UGmEeeey) 
4 工 TiE 本 态 天 SDDS ESme SROYeE 
1 二 及 
风 DEC 一 MODE 
[OASE eleicr 
Dame =- 一 ROVer 
NO 人 Te < 
下 有 SS 三才 忆 起 
Dame -- SyJIvester 
Ga EEC 
0 吓人 2 
有 全 下 RS 人生 


失 遇 丰 E 下 二 二 本 大 大 局 全 在 庆 


村 
和 ww 一 攻 9 


(LA 


. 将 引用 《指针 ) $petref 赋值 为 舍 有 两 个 匿名 散 列 的 匿名 数组 地 址 。 

. 这 和 是 列表 的 第 二 个 元 素 ， 它 是 一 个 含有 键 / 值 对 的 匿名 散 列 。 

. 这 是 匿名 数组 的 困 合 方 括号 。 

. 使 用 指针 $petref 按 地 址 访问 列表 。 首 先 选择 数据 的 第 0 个 元 素 , 然后 使 用 箭头 运算 符 选 取 


散 列 中 的 键 。 接 着 显示 与 键 name 相关 联 的 散 列 值 。 


. 进入 for 循环 ， 循 环 遍历 数组 。 
. 进入 while 循环 。 每 次 执行 循环 时 ， 通 过 $petref->[$i] 从 引用 指向 的 散 列 中 提取 键 和 值 ， 并 


分 别 赋值 给 $key 和 $value。 


. 显示 键 / 值 对 。 


8. 使 用 push 国 数 将 新 的 散 列 @{$petref} 添加 到 数组 中 。 
9. 进入 while 循环 。 每 次 执行 循环 时 ， 通 过 $petref->[$i] 从 引用 指向 的 散 列 中 提取 键 和 值 ， 并 


分 别 赋值 给 $key 和 $value。 显 示 新 增 的 散 列 。 


10. 按 地 址 访问 $petref 后 , 再 按 地 址 访问 数组 的 第 二 个 元 素 $petref->[0], 并 显示 磐 套 散 列 中 


的 每 个 键 / 值 对 。 











散 列 的 散 列 。 散 列 表 中 亦 可 含有 其 他 一 个 或 多 个 散 列 。 在 示例 13.10 中 , 将 引用 赋值 为 一 个 由 
两 个 键 构 成 的 匿名 散 列 表 ， 其 中 每 个 键 的 关联 值 本 身 也 是 散 列 《由 它们 自身 的 键 / 值 对 构成 )。 


示例 13.10 


并 

















#1V/bin/pPper1l 
# Progcram to aemonstrate a hashn containina9 anonymous hashes . 
my $hashref = 1{ 
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芝 Math => { Ke7 
"Rnna" => 100， 
全 县 罗 岂 => 95， 7ayues 
Ri 三 三 35 
这 
引 Seaw=ioger= 和 > 和 天 ee 
Sm 三 演 8 
DG => 100， ayues 
三 之 8 
过 
4 人 
咏 Print "Anna got 5$hashref->{f'Math'}->{f'RAnna'} on the Math test.NXn"i 
6 Shashref->{f'Science'}->{f'Lou'}=90: 
岂 ETOUSEE9sOSsEwasenangqsa 
to S$hashreE->{'Science'}->{f'Lou'l.Nn"i 
8 RESEQEENSShEctEManESEUOSnEEEESneEdEaOES ER 
9 Print g%{S$hashrefEf->{f'Math'}}，"Xn"; # Prints the nestea hash，Matnh 
10  。 foreach $key (keys ${S$hashrefEl) { 
下 式 II 
记 受 while((S$nkeyv Snvalue)=each (ss{S$hashref->{Skey}}))(! 
工 号 TENETOTIEE 用人 汪 EN 
Snkeyr SnvVvalue' 
上 
) 
GEGUE) 
与 anna 9o 100 on the Math Lest. 
列 Tou's 9raae was chan9ea to 390. 
8 7TpPpe nesteaQ hashp of Math stuaents ana 9raaes iis: Rita85Hao95Anna700 
11 Outer Key: Science 
IIS 0 三 二 US 2 
耻 万 五 E 王 Ke Sm 三 二 和 VE 
国 丰 站 己基 是 人 E 交 呈 六 和 ER 2 
11 Outer Key: Matp 
下 
了 me Ke Sa 三 NUeS 2 
下 GEFEKS7 Ana Vse OU0S5 
anna 9oL 100 cn the Matnp test， 
解释 
1. 定义 匿名 数组 。 它 由 两 个 散 列 键 构成 , 即 Math 和 Science。 这 两 个 键 关 联 的 散 列 值 本 身 也 是 


惟 上 避 


6. 
沁 
AS 


散 列 〈 键 / 值 对 )。 将 散 列 的 地 址 赋值 给 $hashref。$hashref 是 一 个 硬 引 用 《指针 )。 


. Math 是 一 个 键 ， 甚 关联 值 是 一 个 艇 套 散 列 。 

. Science 是 一 个 键 ， 其 关联 值 也 是 一 个 驱 套 散 列 。 

. 这 是 匿名 数组 的 困 合 花 括号 。 

. 如 需 访 问 Anna 的 成 绩 ， 应 首先 按 地 址 访问 键 Math， 然 后 使 用 筋 头 运算 符 和 内 套 键 Anna。 


第 二 个 箭头 运算 符 在 这 里 不 是 必需 的 ， 但 它 能 让 代码 结构 更 加 清晰 。 事 实 上 ， 这 里 可 以 不 用 
任何 箭头 运算 符 ， 而 是 写作 $$hashref{Math}{fAnnal 。 

使 用 引用 $hashref， 用 户 还 可 更 改 或 添加 散 列 值 。 本 行将 更 改 Luo 的 成 绩 。 

按 地 址 访问 $hashref， 打 印 新 的 成 绩 。 

9. 将 引用 $phashref->Math 放 在 前 面 带 有 %% 的 花 括 号 中 ， 通 过 这 种 方式 打印 藤 套 散 列 Math 
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的 内 容 。% 表示 它 是 匿名 散 列 ， 由 键 和 值 构成 。 

10. foreach 循环 迭代 遍历 散 列 里 外 层 键 的 列表 〈 由 keys 国 数 生 成 )。 

11. 打印 每 个 外 层 键 。 

12. 由 于 每 个 外 层 键 都 关联 到 同属 散 列 的 值 上 ， 因 此 可 以 将 $hashref->{$key} 放 在 前 缀 有 百 分 
号 的 块 中 ， 从 而 实现 按 地 址 访问 引用 $hashref。 

13. 打印 驱 套 的 键 及 其 关联 的 值 。 


带 有 值 列表 的 散 列 的 散 列 。 散 列 可 以 含有 筷 套 的 散 列 键 ， 并 将 这 些 键 关联 到 一 组 值 列表 上 去 。 
在 示例 13.11 中 ， 给 引用 赋予 两 个 键 ， 而 和 这 两 个 键 相 关联 的 值 也 是 其 他 散 列 的 键 。 秽 套 的 散 列 键 
将 依次 与 匿名 的 值 列表 相关 联 。 


示例 13.11 
EScrnotay 
# 又 hash with nestea hash Keys ana anonymous arrays of vaJues 
业 my $hashpPtr = { "Teacher"=>{"Subjects"=>[ qw(Science Math English)]l， 
"Musician"=>{f"Instruments"=>[ gqw(Piano fute harP)]j}， 

岳 
# 7eacher ana Musician are Keys. 
# 7pe valIues consist of nestea hashes. 

现 Print $hashpPtr->{f"Teacher"}->{"Subjects"}->[0],，"An"7 

攻 print "QQfS$hashPptr->{'Musician'l->{f'Instruments'}j ln" 





asiwua 
Science 
pzano 帮 Ute Darp 


( 
5 
3 
解释 
1. 将 指针 $hashref 赋值 为 一 个 匿名 散 列 ， 它 由 两 个 键 Teacher 和 Musician 构成 。Teacher 键 关 

联 的 值 是 另 一 个 匿名 散 列 ， 后 者 的 键 将 与 另 一 个 含有 Science、Math 和 English 的 匿名 数组 
相关 联 。 键 Musician 也 是 由 一 个 匿名 散 列 构成 的 ， 该 散 列 的 键 是 mstruments， 它 所 关联 的 
值 则 是 一 个 含有 piano、flute 和 harp 的 匿名 数组 。 

2. 如 需 按 地 址 访问 指针 , 可 使 用 箭头 运算 符 分 隔 徐 套 的 键 。 最 后 一 个 箭头 运算 符 指向 与 Subjects 
相关 联 的 数组 Science 的 第 一 个 元 素 。 

3. 如 要 从 与 键 关 联 的 匿名 数组 中 获得 所 有 的 值 ， 则 应 当 在 指针 及 其 殖 套 的 键 前 面 加 上 @ 符号 ， 
并 使 用 箭头 运算 符 隔 开 每 个 键 。 如 有 果 变 量 没 有 名 称 , 也 可 使 用 带 有 正确 数据 类 型 符号 的 块 来 
代替 其 名 称 。 在 这 里 ， 用 花 括 号 包围 整个 数据 结构 ， 从 而 可 将 整个 块 当 作 一 个 数组 来 实现 按 
地 址 访问 。 





13.1.5 引用 和 子 例 程 


匿名 子 例 程 。 通 过 在 使 用 sub 关键 字 的 同时 不 提供 子 例 程 名 ， 即 可 创建 一 个 匿名 子 例 程 。 该 表 
达 式 以 一 个 分 号 结尾 。 有 关 使 用 匿名 子 例 程 的 更 多 知识 ， 请 参见 第 14.3 市。 


示例 13.12 


EC 
#1/bin/Pez1l 














这 项 工作 需要 引用 吗 


3 了 79 





下 
多 


my $subreE sub { Print @_ 
&S$Ssubref('a',，'b'v'c'): 
1 元 


asiunsy 


( 
由 1 区 
秋 及 


几 


丰 

1. 将 标量 Ssubref 赋值 为 一 个 匿名 子 例 程 的 引用 。 
中 的 参数 。 

2. 通过 引用 调用 该 子 例 程 ， 并 传递 给 它 三 


子 例 程 和 按 引用 传递 。 
数组 中 去 。 如 果 有 多 个 参数 ， 如 数组 、 标 量 和 另 一 个 数组 ， 则 这 
用 户 将 很 难 判断 哪里 是 一 个 参数 的 结束 位 置 ， 


个 参数 。 




















oo 数组 中 ， 然 后 才能 根据 它们 来 确定 哪里 是 第 一 


终止 位 置 等 。 此 外 , 倘若 要 传递 一 
此 ， 2 


含有 1000 个 元 素 的 数组 ， 
父 径 莫 过 于 按 地 址 传递 


该 子 例 程 的 惟一 


功能 是 打印 保存 在 @_ 数 组 


在 向 子 例 程 传递 参数 时 ,程序 会 把 它们 发 送 给 子 例 程 ， 然 后 保存 到 @_ 


这 些 参数 都 将 展开 并 存 和 人 @_ 数组 。 


哪里 又 是 另 一 个 参数 的 起 始 位 置 。 除 非 用 户 提供 每 个 


个 元 素 的 
则 上 述 @_ 数 组 将 变 得 极为 庞大 。 因 


见 示 例 13.13 。 





示例 13.13 


WeSCenEny 


站 Qtoys = 9Gw(BUZzz1lightyear Wooay Bo) 
昌 Snum = Qtoys 霜 Number of elJements In 6@toys 
甩 gifts( \Snum，ANetoys ) : # Passin9 by refe 
4 SEEdneEES 二 NT 
my(Sn，St) = G_ : 放 EOcaEOORESDEESAE 
6 Print "There are $S$Sn gifts: " 
甩 Tai QSEN 
8 USERS SET 

】 
四 Esconayl acesy waE enanmnoeoEeE 
(EUED) 


6/ 1 There are 3 9ifts: BuU2ZZJI9pEyear WooaQy Bo 
8 于 全 本 CE 


解释 

1. 给 数组 @toys 赋 三 个 值 。 

2. 将 标量 $num 赋值 为 数组 @toys 的 元 素 总 数 〈 请 记 住 ， 
赋值 给 标量 时 ， 等 效 于 把 数组 中 的 元 素 总 数 赋值 给 了 这 

3. 以 两 个 指针 作为 参数 调用 子 例 程 gifts 。 

4. 进入 子 例 程 。 

5. 数组 @_ 中 含有 两 个 指针 变量 

6. 按 地 址 访问 指向 标量 的 指针 。 该 指针 指向 标量 $n。 

7. 按 地 址 访问 指向 数组 的 指针 。 该 指针 指向 数组 @toys 。 

8. push 函数 负责 为 $t 指向 的 数组 添加 两 个 新 元 素 。 

9. 在 退出 子 例 程 后 ， 打 印 数组 @toys 的 最 新 值 。 











0 
Fence 


到 EDICSRWL ED 7 


RSS 


STEMercie 轩 32 


标量 只 人 


个 标量 )。 


E 保 存单 个 值 ， 因 此 当 把 数组 
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示例 13.14 


SSErnety 

SEEEOemonSeEaEeS AASERUSEEECDNEEEeeeneeES 
to Pass arrays。 InsteaaQ or passzn9g tne entLIre 

下 了 有 Escee 本 SEECR 

Thpe valJue of the Jast expression Is returnea. 





砷 埋 埋 井 


由 
1 


SPCimUPIEEEESOESTUILS SaademuapNalustI ANQLS 上 2) 用 AI 
#。 Two Pointers are Passed 
4 Sub addemuP 1{ 


5 my ( $arzrl，S$Sarr2) = 6 : 
CODE 人 OO3EES 关 全 Seese/ 
6 Tv ESiea 
1 TU 
8 1 
EeesacenEsSmmn asdSISET 2 
草 @@ Stotal+=S$Snumy 


】} 
13 return S$StotalL: # The expression is evaluatea ana returneda 
上 


eeawey 

7 ARRAY (0Ox8a62ad65) 

8 ARRA7 (0x8a60F2c) 
ES 
恶习 


1. 将 数组 @listl 赋值 为 含有 1 到 100 0 

2. 将 数组 @list2 赋值 为 全 有 数字 3、 15 和 20 的 列表 。 

3. 调用 子 例 程 addemup， 、 每 个 数字 前 面 附加 的 反 和 斜 杠 表明 传递 的 是 数组 
的 地 址 《指针 )。 

4. 声明 并 定义 子 例 程 addemup 。 

5. 将 指针 传递 给 数组 @_， 并 分 别 赋值 给 两 个 my 变量 $arrl 和 $arr2 。 

6. 声明 my 变量 $total 。 

7 一 8. 打 印 指针 的 地 址 。 

9. 进入 foreach 循环 。 数 组 @listl 和 @list2 分 别 按 地 址 访问 指针 , 并 逐个 创建 待 处 理 的 数组 元 
素 列 表 。 

10. 每 当 执 行 循环 时 ，$totall 变量 将 累计 $total+$num 的 和 。 

11. 将 得 到 的 和 返回 到 调用 该 函数 的 第 3 行 代码 。 由 于 对 该 函数 的 调用 过 程 是 作为 Print 函数 的 

一 个 参数 而 出 现 的 ， 因 此 从 子 例 程 返回 后 ， 程 序 将 打印 出 子 例 程 的 返回 结果 。 


13.1.6 文件 句柄 引用 


将 文件 句柄 传递 给 子 例 程 的 惟一 途径 就 是 通过 引用 传递 。 用 户 可 使 用 typeglob 为 文件 句柄 创建 
别名 ， 然 后 再 使 用 反 斜 杠 运算 符 创建 对 这 个 typeglob 的 引用 。 
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示例 13.15 


ES 


也 


名 


习 
4 
号 
6 
电 


电 


#1/bin/VPez1 
opPen (README ，"/etc/Passwd") || die: 


&readit(\xRERADME) : # Reference to aa type91ob 


SSEeaGiE 
my ($Passwd)=QG_ : 
EN SNSEENORANOR 
while (<S$SPpasswd>) { 
Et 
1 
} 


Seek (RERADME,0,0) |1| Qie "seek: S$SINn"， 
# Reset Dack to be9inin9 of 7Jopb 


(GuEGUE) 


写 
昌 


量 


解释 


Spasswa Is a GT7OB(OXDP0594) ， 

的 克 O 有 0 生 用 三 天守 避 二 二 天 和 全 邦人 克 区 和 

加 本 人 站 局 页 下 区 玉 洒 下 生生 区 全 

0 

克 全 和 

人 

本 有 全 7 和 全 5 交 和 开 局 芝 河和 
smtp:x:0:0:Mail1 Daemon User:/: 

面 省 二 本 和 避 和 有 有 玫 放生 生 且 光 且 这 列 生 首相 有 
交 人 
也 直 人 去 司 妥 汪 7 了 攻 司 NE 在 克 避 关 7 风 必 有 届 克 天 交 区 友 E 天 7 全 包 7S 
人 
故人 
DDoS 65 

E 避 导 区 二 区 929 和 玫 四 有 有 机 夺 二 是 OO 光 万 瑟 站 三光 全 本 辣 区 驮 大 略 ES 
SeeKk: Baa 五 1e Dumpe 


1. 将 文件 /etce/passed 附加 给 文件 句柄 README， 并 以 读 方 式 打开 它 。 
2. 调用 readit 子 例 程 。 这 这 里 通过 创 建 对 typeglob 的 引用 来 传递 文件 句柄 参数 。 首 先 , 通过 星 号 
来 glob 文件 句柄 符号 。 然 后 , 通过 在 typeglob 前 面 缀 以 反 和 斜 枉 ， 实 现 对 这 个 typeglob 的 引用 。 

3. 定义 子 例 程 readit。 

4. @_ 变量 中 含有 引用 。 将 这 个 引用 赋值 给 本 地 标量 型 变量 Spasswd。 现 在 $passwd 就 是 对 文 
件 句柄 的 引用 了 。 

5. 打印 $passwd 引用 值 ， 可 见 它 含 有 typeglob〈 别 名 ) 的 地 址 。 

6 一 7. while 循环 中 的 表达 式 从 文件 /etclpasswd 中 读 取 一 行内 容 ， 并 赋值 给 变量 $_ 。 然 后 把 这 些 


行 打印 到 屏幕 上 。 循 环 持续 执行 ， 直 到 读 取 并 打印 完毕 所 有 的 行 。 


9. seek 国 数 重新 设 定 了 指向 该 文件 的 读 指针 ， 并 将 它 放 回 文件 开头 位 置 。 


13.1.7 





ref 函数 

















ref 国 数 用 于 判断 引用 是 否 存 在 。 如 果 ref 的 参数 是 一 个 指针 〈 引 用 ) 变量 ,ref 便 会 返回 该 引用 
指向 的 数据 类 型 。 例 如 ， 如 果 指 针 指 向 标量 ， 则 返回 SCALAR ,; 若 指向 一 个 数组 ， 则 返回 ARRAY 。 
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如 果 其 参数 不 是 引用 ， 则 返回 一 个 null 字符 串 。 表 13-1 列 出 了 ref 函数 可 能 返回 的 值 。 


表 13-1 ref 函数 的 返回 值 
































返回 值 含义 

REF 指向 指针 的 指针 
SCALAR 指向 标量 的 指针 
ARRAY 指向 数组 的 指针 
HASH 指向 散 列 的 指针 
CODE 指向 子 例 程 的 指针 
GLOB 指向 typeglob 的 指针 


示例 13.16 


人 meiseccnpt 

世 SSE # Formwara aecIaratzoDn 

及 Snum = 57 

昌 全 ns 

4 etoys = qw/Buadlightyear Woody Thomas/ :; 

5 gifts( \Snum，ANQetoys，5$junk ) : 

6 Sub gifts 1{ 

了 my (是 Sm is ES) 央 三 刘 6E 

8 TEST 本 NO eeE(SD)D 


TOINSEETEE SEEETEEE SCOTTEEEeEILS 已) 太 


9 EGRAS 着 EMiS 本 有 到 

IO Printf "\Sn is a reference to a %s.N\n"，Lef(S$n) : 

出 PLintf "NSt is a reference to an S%$s.NXn"，LeEf(St) 
} 

ee 

8 Sn Is aa reference. 
St Is a reference. 

多 

10 Sn is aa reference to aa SCATAR. 

11 Sis areference to an ARRAY. 

解释 
1. 向 前 声明 子 例 程 gifts, 以 便 让 Perl 知道 这 是 一 个 在 程序 某 处 已 经 定义 好 的 子 例 程 。 如 果 在 


惟 上 MP 


定义 之 前 已 经 声明 了 子 例 程 ， 则 在 调用 它 时 无 需 使 用 & 符号 。 


. 将 标量 $num 赋值 为 5。 

. 将 标量 $junk 赋值 为 字符 串 xxx。 

. 将 一 个 列表 赋值 给 数组 @toys 。 

. 调用 子 例 程 gifts。 这 里 借助 前 缀 反 斜 杠 把 前 两 个 变量 当 作 引 用 传递 给 予 例 程 。 最 后 一 个 变量 


$junk 不 是 作为 引用 传递 的 。 


. 定义 子 例 程 gifts 。 
. 对 数组 @_ 进行 赋值 。 在 这 里 , 把 两 个 引用 《地 址 ) 和 一 个 非 引 用 变量 分 别 赋 值 给 Sn、$t 和 


$j， 并 使 用 my 函数 将 它们 本 地 化 。 


. 以 引用 $n 为 参数 调用 国 数 ref。 只 有 当 $a 是 一 个 引用 时 ， 本 行 才 可 以 打印 出 来 。 


这 项 工作 需要 引用 吗 


了 323 





9. 3$j 不 是 引用 。ref 国 数 的 返回 值 为 null。 


10. print 图 数 负责 打印 ref 图 数 返回 的 数据 类 型 值 ， 即 SCALAR 《标量 )。 
11. print 国 数 负责 打印 ref 函数 返回 的 数据 类 型 值 ， 即 ARRAY 〈 数 组 )。 





13.2 ”读者 应 当 学 到 的 知识 


. 符号 引用 和 硬 引 用 有 什么 区 别 ? 

. 什么 是 typeglob ? 

如 何 创 建 一 个 指向 散 列 的 指针 ? 

如 何 区 分 一 个 匿名 数组 和 有 名 数组 ” 








什么 是 和 衣 套 散 列 (Cnested hash) ? 
. 如 何 创建 一 个 二 维 数组 ? 

. 按 引 用 传递 的 优越 性 有 哪些 ? 

10. ref 国 数 有 什么 用 ? 





MD oo ~ 人 下 Www 襄 一 
一 





13.3 下 章 简介 


提供 两 种 按 地 址 访问 后 面 这 个 指针 的 途径 : 
如 何 按 地 址 访问 这 个 指针 CS$p = \3x; ) ? 








既然 读者 已 经 了 解 了 有 关 指 针 的 知识 , 下 面 就 可 以 学 习 如 何在 Perl 中 创建 对 象 了 。 下 一 章 ; 














$ptr = { Name' 


=> 'John'; } 











门 介绍 面向 对 象 的 Perl。 下 一 章 内 容 较 多 ， 而 且 如 果 读 者 打算 使 用 来 自 其 他 库 或 CPAN 的 模块 











么 下 一 章 的 内 容 就 显得 尤为 重要 了 。 读 者 将 学 习 如 何 创 建 对 象 、 设 置 对 象 属性 、 通 过 方法 处 理 对 





竹 专 
， 那 





象 ， 


还 有 如 何 析 构 或 重用 对 象 。 读 者 还 将 学 到 有 关 @ISA 与 继承 、 团 合 性 和 垃圾 收集 等 方面 的 知识 。 此 


外 ， 还 将 学 习 如 何 通过 POD (Plain Old Document) 为 模块 提供 
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文档 。 





1. 重新 编写 tripper (来 自 第 11 章 )， 取 两 个 指针 作为 参数 ， 并 在 子 例 程 中 把 这 些 参数 从 @_ 数 组 复 


制 到 两 个 my 指针 变量 里 。 


2. 创建 一 个 名 叫 employee 的 散 列 ， 含 有 如 下 三 个 键 : 





Name 
SSn 
Salary 


将 它们 的 值 赋值 为 未 定义 值 Cundef 是 Perl 提供 


a. 为 这 个 散 列 创建 一 个 引用 。 
b. 使 用 引用 为 每 个 键 赋值 。 














c. 通过 内 建 的 each 函数 与 引用 ， 打 印 散 列 的 键 和 值 。 
d. 打印 引用 的 值 ， 换 而 言 之 ， 打 印 的 是 该 引用 变量 包含 的 内 容 ， 而 不 是 它 指向 的 内 容 。 








3. 重新 编写 上 面 这 个 脚本 , 使 得 其 散 列 成 为 一 个 





匿名 散 列 , 并 将 该 


的 一 个 内 建国 数 )。 例 如 ，Name => undef。 


匿名 散 列 贱 值 给 引用 〔〈 指 针 )。 
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过 引用 从 散 列 中 删除 一 个 键 〈 使 用 delete 函数 )。 
编写 一 段 舍 有 如 下 结构 的 程序 : 


Sstudqent = { Name => unadef， 
SSN => undqdeft， 
Friends => []， 
Grades => { Science => []， 
Math => []， 


English => []， 
} 
7 


通过 指针 完成 赋值 操作 ， 并 按 如 下 格式 显示 输出 内 容 : 


Name is John Smith . 
Seal SeGrTLt7 Nmoerm is 510=23=1232.. 
Frienqds are Tom，Bert，Nick. 
Grades are: 
Science--100，83，77 
Ma 二 ==9077897， 交 5 
汪 衣 村 工 工 二 于 = 后 了 人 7， 人 有 





第 14 章 面向 对 象 的 Per 


14.1 OOP 范例 


14.1.1 回顾 包 与 模块 


Perl 5 中 新 增 的 一 个 主要 功能 就 是 面向 对 象 的 编程 (Object-Oriented Programming，OOP ) 。 
OOP 的 核心 是 其 程序 组 织 的 方式 。 诸 如 C 十 十 和 Java 之 类 的 面向 对 象 编 程 语言 都 能 把 数据 绑 定 到 
变量 中 ， 并 称 之 为 对 象 (object)。 在 英文 里 ， 可 以 把 对 象 表述 为 一 个 名 词 : 一 个 人 、 一 个 位 置 、 或 

件 东 西 。 一 只 猫 、 一 台电 脑 以 及 一 个 雇员 都 算是 对 象 。 形 容 词 能 够 描述 一 个 名 词 。 例 如 ， 这 只 猫 
很 有 小 ， 这 台电 脑 很 快 ， 这 个 雇员 名 叫 “John”， 等 等 。 在 面向 对 象 的 语言 中 ， 负 责 描 述 对 象 的 形 
容 词 又 称 作 属 性 (property)， 亦 可 称 为 特性 〈attribute )。 动 词 能 够 描述 一 个 对 象 能 干什么 ， 或 者 能 
对 这 个 对 象 进行 怎样 的 操作 。 在 面向 对 象 语言 中 ， 这 类 动词 又 称 作 方法 Cmethod)。 和 艾 如 ， 猫 能 吃 
东西 、 计 算 机 会 骨 误 、 雇 员 会 工作 。 在 Perl 中 ， 方 法 只 不 过 是 一 种 特殊 的 子 侈 程 而 已 。 

对 象 中 的 数据 一 般 都 是 私有 (private) 的 。 用 户 可 通过 对 象 中 的 方法 向 它 发 送 息 。 这 些 方法 
往往 都 是 公有 (public) 的 。 程 序 的 使 用 者 只 有 通过 这 些 公 有 的 方法 才能 访问 到 对 象 中 的 数据 。 和 艾 
如 ， 如 果 有 一 个 名 叫 “money” 的 类 ， 则 它 的 方法 可 以 是 earnitD、finditO、stealit 等 等 。 

将 数据 和 方法 封装 到 一 起 得 到 的 数据 结构 称 为 一 个 类 〈class)。 在 使 用 面向 对 象 的 方法 时 , Perl 
包 的 功能 与 类 相似 。 对 于 Perl 来 讲 这 已 经 不 是 什么 新 的 概念 了 , 因为 已 经 把 数据 封装 到 包 内 了 。 请 
回顾 一 下 之 前 对 包 的 间断 讨论 ， 会 发 现 包 实际 上 为 程序 提供 了 某 种 程度 上 的 私有 性 。 每 个 包 都 拥有 
自己 独立 的 符号 表 ， 即 含有 “当前 ” 包 中 所 有 符号 名 字 的 散 列 表 。 这 样 就 可 以 在 包 中 创建 具有 自己 
命名 空间 的 变量 和 子 例 程 。 如 果 在 程序 中 使 用 了 不 同 的 包 ， 则 每 个 包 都 会 有 自己 独立 的 命名 空间 ， 
从 而 避免 了 具有 相同 名 称 的 变量 发 生 冲 突 。 这 种 将 数据 隐藏 在 包 内 的 思路 是 Perl 与 生 俱 来 的 组 成 部 
分 ， 也 是 面向 对 象 编程 的 基本 原则 之 一 。 

每 个 Perl 程序 至 少 都 伟 有 一 个 名 叫 main 的 包 , 其 中 的 Perl 语句 都 是 内 部 编译 的 。 标 准 Perl 库 
则 由 多 个 含有 包 的 文件 组 成 。 其 中 大 多 数 的 文件 都 称 为 模块 。 模 块 其 实 只 是 可 以 重用 的 包 。 代 码 的 
重用 是 通过 继承 (inheritance) 而 实现 的 ; 即 ， 包 可 以 从 它 的 父 包 或 基 类 中 继承 特征 ， 并 对 其 本 身 
的 功能 进行 扩展 或 限制 。 类 扩展 功能 的 能 力 又 称 为 多 态 (polymorphism )。 一 般 认 为 数据 隐藏 〈 封 
装 )、 继 承 和 多 态 性 三 者 构成 了 面向 对 象 方法 的 基本 原则 。 

若 要 创建 一 个 Perl 模块 ， 仍 应 使 用 关键 字 package， 其 作用 域 是 从 声明 包 的 位 置 直到 封装 块 或 
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务 14 齐 




















文件 的 末尾 。 包 一 般 都 对 应 于 一 个 文件 。 如 果 其 名 称 中 含有 扩展 名 .pm， 并 且 模 块 的 第 一 个 字母 又 
是 大 写 的话 ,，Perl 就 会 把 这 个 文件 识别 为 模块 。 编 译 指示 〈pragma) 是 另 一 种 特殊 的 模块 “模块 名 
全 为 小 写字 母 ， 并 且 也 具有 .pm 扩展 名 )， 负 责 指定 编译 器 的 行为 方式 。 不 论 是 称 作 模 块 还 是 称 作 


编译 指示 的 包 ， 都 有 一 些 特殊 特 ; 











过 抽象 的 面向 对 象 方式 对 程序 建立 模型 的 能 
将 OO“〔〈 面 向 对 象 ) 语言 当成 是 面向 对 象 的 。 
Tom Christianson 在 其 Web 主页 “Easy Perl 5 Object Intro” 上 讨论 了 Perl 和 对 象 。 他 认为 人 














> 





























们 好 像 在 回避 使 用 一 些 非 常 方便 的 Perl 模块 ， 





二 


吾 


年 不 同 于 普通 的 包 。Perl 5 引入 的 这 些 特殊 特性 ， 为 用 户 提供 了 通 
。 读 者 可 以 把 过 程 化 编程 语 





当 作 是 面向 动作 的 ， 而 











因为 其 中 有 些 内 容 涉 及 了 对 象 。Christianson 认为 大 
家 不 应 该 害怕 这 些 ， 因 为 在 OO 编程 时 使 用 其 他 人 提供 的 模块 并 不 比 自己 设计 实现 这 些 模 块 来 得 困 
任 9 。 即 便 读 者 对 在 编程 时 使 用 Perl 提供 的 OOP 特性 不 感 兴趣 , 也 仍然 会 磁 到 那些 涉及 实用 工具 对 


象 的 Perl 模块 。 在 通读 本 章 内 容 后 ， 读 者 就 能 对 这 些 模 块 的 工作 原理 有 更 为 深入 的 理解 。 


14.1.2 ”一 些 面 向 对 象 的 专用 术语 
面向 对 象 的 编程 是 一 项 内 容 庞大 的 科目 。 有 关 00 编程 设计 和 方法 论 的 图 书 数 以 千 计 。 在 20 





世纪 90 年 代 , 为 了 创建 更 复杂 的 软件 , 许多 程序 员 便 从 传统 的 结构 化 编程 语 
程 语 言 。 本 书 不 是 一 本 有 关 面 向 对 象 的 设计 或 编程 的 











们 先 了 解 一 下 与 OOP 有 关 的 关键 词 。 表 14-1 列 出 了 这 些 关 键 词 。 














言 转向 了 面向 对 象 的 编 


忆 籍 ， 不 过 在 涉及 Perl 的 OOP 特性 之 前 ， 我 


















































表 14-1 OOP 关键 词 

词语 Perl 含义 
数据 封装 对 用 于 隐藏 数据 和 子 例 程 ， 和 在 包 中 的 效果 一 样 
继承 用 于 代码 的 重用 ， 通 常 来 自 库 ， 这 些 库 中 的 包 是 从 其 他 包 继承 过 来 的 
多 态 性 字面 上 的 “多 种 形式 ”， 特 别 是 提供 了 扩展 类 功能 的 能 
对 象 一 种 引用 类 型 ， 提 供 其 所 属 的 类 ; 它 是 一 个 类 的 实例 
方法 负责 操纵 对 象 的 特殊 子 例 程 
类 含有 数据 和 方法 的 包 
构造 国 数 负责 创建 和 初始 化 对 象 的 方法 
析 构 函数 负责 销毁 对 象 的 方法 
set/get 方法 负责 向 对 象 存 入 数据 或 从 对 象 取出 数据 的 方法 


14.2 类、 对 象 和 方法 


14.2.1 现实 世界 


假定 读者 需要 建造 一 收 房 子 。 


html。 














首先 应 当 在 某 个 特定 的 地 址 购买 一 块 地 皮 。 然 后 会 雇请 一 位 建筑 


日 ”如 要 浏览 Tom Christianson 的 Web 主页 ， 请 访问 www.Perl.com/CPAN-local/doc/FMTEYEWTK/easy_ objects. 
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师 或 者 购买 一 套 计算 机 软件 ， 以 便 设计 该 房屋 。 设 计时 ， 读 者 必需 确定 需要 哪 种 类 型 、 式 样 、 多 少 
个 房间 、 门 窗 形 式 ， 等 等 。 设 计 完毕 后 ， 读 者 便 可 雇佣 一 个 工程 队 开 始 施工 。 一 旦 房子 建 好 ， 读 者 就 
拥有 了 这 收 房 子 的 使 用 权 ， 可 以 进入 该 房屋 、 进 行 装修 、 粉 刷 墙壁 、 打 扫 它 、 购 买 家 具 、 清 理 垃圾 、 
布置 风景 ， 总 之 干什么 都 行 。 但 是 读者 必需 首先 建 好 这 收 房 子 ， 然 后 才能 在 房 里 房 外 干 任何 想 干 的 事 
情 。 此 后 ， 读 者 还 可 以 为 房子 增加 新 房间 、 挂 牌 出 售 它 甚至 拆 掉 它 ， 等 等 。 鉴 于 房屋 设计 图 在 手 ， 读 
者 亦 可 找到 另外 一 块 地 皮 ， 建 好 另 一 收 基 于 相同 设计 的 房子 ， 并 可 以 将 它 涂 成 不 同 的 颜色 ， 或 者 摆 放 
不 同 的 装饰 品 。 甚 至 还 可 以 建造 完全 一 模 一 样 的 两 收 房 子 ， 二 者 之 间 只 通过 惟一 的 地 址 予以 区 分 。 
在 面向 对 象 的 语言 中 ， 上 面 的 房子 可 以 视 为 对 象 ， 是 一 个 名 词 。 而 房屋 样式 、 房 间 数 、 类 型 等 
可 以 当成 是 描述 这 个 对 象 的 属性 ， 正 如 一 个 形容 词 或 动词 ， 璧 如 粉刷 房屋 、 移 和 人 房屋、 展示 房屋 ， 
它们 都 能 描述 对 象 的 “行为 ”。 

本 节 将 分 析 一 组 示例 ， 并 讨论 Perl 是 如 何 创 建 、 管 理 和 销毁 对 象 的。 在 这 之 后 ， 读 者 便 会 对 这 
些 概念 有 更 为 请 晰 的 理解 。 


14.2.2 ”步骤 


本 章 将 详细 讨论 许多 方面 的 内 容 。 总 体 而 言 ， 为 了 创建 一 个 名 叫 对 象 的 新 数据 类 型 ， 并 定义 它 
能 做 什么 不 能 做 什么 ， 读 者 需 遵循 如 下 几 个 步骤 : 
1. 确定 对 象 内 容 是 什么 ， 能 完成 什么 任务 〈 设 计 )。 
在 一 种 名 叫 类 〈class) 的 包 里 创建 新 对 象 〈 构 造 国 数 )。 
. 描述 一 个 对 象 ， 艾 如 ， 为 它 设 置 属性 〈 形 容 词 )。 
. 获取 对 象 〈 根 据 数据 类 型 得 到 对 象 )。 
.定义 国 数 〈 动 词 )， 即 对 象 能 干什么 ， 以 及 能 对 这 个 对 象 干 什么 〈 方 法 )。 
. 使 用 对 象 〈 定 义 用 户 接口 ， 又 称 为 方法 )。 
. 重用 对 象 〈 继 承 )。 
. 销毁 对 象 〈 把 对 象 清除 出 内 容 )。 








































































































oo ~ 人 了 ww 上 whiM 


14.2.3 ”类 和 私有 性 


Perl 中 的 类 《〈class) 就 是 一 种 包 (package)。 这 两 个 术语 是 可 以 互 换 的 。 类 一 般 位 于 .pm 模块 
中 ， 并 且 其 类 名 和 模块 名 〈 除 .pm 扩展 名 ) 相同 。 如 果 硬 要 区 别 二 者 的 话 ， 则 类 是 一 种 含有 方法 
Cmethod) 的 包 ， 其 中 的 方法 是 一 类 特殊 的 子 例 程 ， 负 责 操纵 对 象 。 一 个 Perl 类 一 般 由 如 下 几 个 部 
分 组 成 〈 参 见 图 14-1 ): 

1. 描述 对 象 的 数据 。 

2. 一 个 名 叫 “bless” 的 函数 ， 负 责 创建 对 象 。 

3. 名 叫 “ 方 法 ”的 特殊 子 例 程 ， 它 知道 如 何 去 创 建 、 访 问 、 操 纵 和 销毁 对 象 。 

由 于 类 在 本 质 上 就 是 一 种 包 ， 因 此 它 也 具有 自己 独立 的 符号 表 ， 并 且 也 可 以 在 一 个 类 中 通过 双 
冒号 (Perl 5) 或 单 撒 号 〈Perl 4) 访问 另 一 个 类 中 的 数据 或 子 例 程 。 

与 其 他 语言 不 同 , Perl 不 会 严格 监控 其 模块 中 的 公有 / 私有 界限 8?。 如 要 保证 变量 的 私有 性 , 请 









































折 WallL., and Schwartz,，R. 工 . ，Progra1a117118 Per1，2nd ed.，O'Reilly 人 儿 Associates: Sebastopol，CA，1998， 
p.287 
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package Geclaracioni 


sub new{ 创建 对 象 的 方法 


AELtributes/Vdata 


Blessing he object 私有 数据 
}》 





Sub Sec_datat 访问 对 象 的 方法 

} 公有 方法 
人 

)} 


图 14-1 类 的 组 成 ，.pm 文件 
务必 使 用 my 国 数 。my 变量 只 能 出 现在 最 内 层 的 封闭 块 、 子 例 程 、eval 或 文件 。 用 户 不 能 通过 双 冒 





























号 《或 单 撤 号 ) 从 其 他 包 中 访问 my 变量 ， 因 为 my 变量 不 和 任何 包 相 关 ， 也 不 存储 在 创建 它 的 包 
的 符号 表 里 。 


示例 14.1 
#!1V/bin/per1l 
站 Package main: 


汉 Sname = "Susan"y 
3 my S$Sbirthyear = 1942: 


4 Package nosy: 

本 Print "Hello Smain: :name.N\n"; 

6 print "You were born in S$main: :birthyear?A\n" 7 
OUWEoUey 


配 ES 
You Were born in 2? 


6 

| 本 辐 攻 ET 

2. 标量 Sname 在 这 个 包 中 的 作用 域 是 全 局 的 。 

3. 标量 $birthyear 对 于 该 代码 块 乃 至 任何 封 困 的 内 层 代 码 块 而 言 都 是 局 部 变量 。 

4. 声明 nosy 包 。 它 的 作用 域 是 从 声明 之 处 知道 文件 末尾 。 

5. 通过 使 用 包 名 与 双 冒 号 来 限定 访问 全 局 变量 Sname。 

6. 在 这 个 包 中 ， 直 接 通过 符号 表 是 不 能 访问 标量 $birthyear 的 。 因 为 该 标量 是 通过 my 国 数 声 

明 在 另 一 个 不 同 的 包 main 中 的 ， 不 和 任何 符号 表 相 关 ， 而 是 存储 在 封 困 代码 块 中 创建 的 专 
用 缓冲 区 内 。 








14.2.4 对象 


一 开始 ，Perl 中 的 对 象 是 通过 使 用 硬 引用 《指针 ) 的 方式 创建 的 。 引 用 是 负责 保存 变量 地 址 的 
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标量 ， 引 用 就 是 指针 。 引 用 也 可 指向 其 他 没有 名 字 的 变量 或 子 例 程 ， 又 称 匿 名 变量 。 例 如 ， 这 里 是 
一 个 指向 匿名 散 列 的 引用 Sref， 该 匿名 散 列 中 含有 两 个 键 / 值 对 : 


my Sref = { "Owner"=>"Tom" ， "Price" => "25000" 】} 7 
若 要 访问 匿名 散 列 内 的 值 ， 则 可 使 用 箭头 运算 符 按 地 址 访问 Sref 引用 ， 如 下 所 示 : 
Sref -> {"Ownezr"} 





为 了 创建 Perl 对 象 , 首先 应 当 创 建 引 用 。 一 般 会 把 该 引用 赋值 为 一 个 匿名 散 列 的 地 址 〈 也 可 将 
它 赋 值 为 其 他 任意 数组 或 标量 的 地 址 )。 在 这 个 散 列 中 将 含有 对 象 的 数据 成 员 和 属性 .除了 存储 散 列 
的 地 址 之 外 ， 引 用 还 应 当 获 知 它 所 属于 的 包 。 为 此 用 户 应 当先 创建 引用 ， 然 后 将 其 “ 归 入 (bless)” 
到 指定 的 包 中 。bless 函数 能 把 引用 的 “东西 >〈 而 不 是 引用 本 身 ) 加 入 到 包 里 。 它 会 创建 一 个 内 部 

间 针 ， 用 于 跟踪 对 象 所 属 的 包 。 对 象 是 归 入 到 类 〈 包 ) 的 实例 〈 通 党 ee 如 果 没 有 将 
包 作 为 第 二 个 参数 提供 给 bless 函数 的 话 ， 它 就 会 假定 使 用 当前 的 包 。 该 国 数 将 返回 被 归 人 的 对 象 
的 引用 〈 有 关 bless 函数 的 完整 讨论 内 容 请 参阅 “bless 国 数 ” 一 节 )。 















































my S$ref = { Owner => "Tom'"， Price => 250000 )} 7; # ThpIis Is the obyect 
bless( S$Sref，Class) ; # The obyject Is blessea into the packa9e namea CIass 
return Sref; # 县 reference to the opbject is returnea 





当 把 对 象 归 入 到 类 中 之 后 , 用 户 就 不 必 使 用 @EXPORT_OK 或 @EXPORT 数组 去 导出 对 象 了 。 
事实 上 ， 作 为 一 种 通用 的 规则 ， 如 果 模 块 是 面 回 对象 的 话 ， 则 什么 也 不 用 导出 。 

House 类。 图 14-2 演示 了 应 当 如 何 虚 拟 化 一 个 House 类 。 首 先 必须 创建 一 个 包 。 这 个 包 的 名 
字 是 House， 位 于 文件 House.pm 中 。 在 00 环境 中 ， 包 亦 可 称 作 是 类 。( 请 注意 ， 类 名 必须 与 不 
带 .pm 扩展 名 的 文件 名 相同 。) 为 了 表明 其 封装 性 , 这 里 用 一 个 house 对 象 吉 括 所 有 描述 数据 。 属 性 
又 称 为 特性 ， 负 责 描述 对 象 的 特点 ， 璧 如 对 象 的 属 主 、 样 式 、 尺 寸 、 颜 色 等 等 。 在 这 里 的 示例 中 ， 
house 的 属性 包括 Owner、Style 和 Price。 在 Perl 中 ， 常 常 通过 一 个 匿名 散 列 表 来 描述 对 象 ， 散 列 
表 中 的 键 / 值 对 代表 着 对 象 的 属性 。 在 house 对 象 外 面 ， 列 出 了 一 系列 子 例 程 。 在 面向 对 象 的 世界 
里 , 这 些 子 例 程 又 称 作 公有 方法 (public method), 它们 为 用 户 提供 了 访问 对 象 的 途径 。 它 们 可 以 用 
于 访问 某 个 对 象 ， 但 是 这 么 做 的 前 提 是 这 个 对 象 必 需 是 已 经 存在 的 。 它 们 往往 负责 0 “ 行 
为 ” 璧 如 : 该 对 象 能 干什么， 以 及 能 对 该 对 象 做 什么 。 事 实 上 ， 方 法 应 当 是 访问 对 象 的 惟一 
对 于 house 对 象 而 言 ， 访 问 它 的 一 个 方法 可 以 是 移入 操作 ; 另 一 个 方法 负责 清理 它 ; 0 




















File: House.pm Package: House 


Private Pub1lic 
# Properties/RALLributes 访问 House 的 方法 
ImyY Shouseptr={"Owner"” => "Bank"， movein { } 
" Style" => "Saltbox"， cleanit { } 
”Price"” => "$350,000"， paintit { } 
和 Showit { } 
bless($houseptr，House); inherit { } 
# Crzreate house obyJect 


KEEP OUT! PRIVRATE! ! 








图 14-2 House 类 
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展示 它 ; 等 等 。 在 Perl 中 ， 方 法 只 是 一 种 特别 的 子 例 程 。 

与 其 他 OO 编程 语言 不 同 ，Perl 并 没有 提供 特殊 关键 字 public、Pprivate 以 及 protected。Perl 的 
包机 制 负责 创建 类 , 并 在 类 里 面 保存 数据 和 子 例 程 〈 即 方法 )。my 国 数 使 得 变量 的 作用 域 仅 限于 本 
包 ; 而 bless 函数 则 保证 了 对 象 在 创建 时 知道 自己 属于 哪个 类 。 总 而 言 之 ， 对 象 通常 都 是 一 个 指向 
匿名 散 列 表 、 数 组 或 标量 的 指针 ， 可 通过 称 作 方 法 的 特殊 函数 予以 处 理 。 方 法 可 通过 指针 来 访问 指 
定 的 对 象 。 











14.2.5 bless 函数 





读者 可 以 把 bless 国 数 看 作 是 负责 创建 一 种 名 叫 “ 对 象 ”的 新 数据 类 型 的 国 数 。 在 图 14-2 中 ， 
为 了 创建 House 对 象 ， 首 先 须 借 助 一 个 匿名 散 列 赋予 它 属性 值 ， 然 后 再 返回 对 象 的 指针 ， 即 一 个 地 
址 。 在 自己 的 程序 内 , 读者 可 把 上 述 地 址 看 作 是 house 对 象 实际 所 在 的 内 存 地 址 。bless 国 数 可 以 直 
接 找 到 这 个 地 址 ， 并 创建 一 个 House 对 象 。 如 果 读 者 归 和 人 〈bless) 一 个 标量 或 指针 的 话 ， 便 会 把 它 
们 转换 为 一 个 对 象 。 用 专业 术语 来 讲 ,bless 国 数 的 第 一 个 参数 必需 是 一 个 指针 。 借 助 指向 所 在 包 的 
引用 ，bless 函数 在 内 部 为 指针 指向 的 任何 内 容 〈 即 引用 目标 ，referent) 都 加 上 了 标签 。 这 就 是 对 
象 的 创建 流程 。 如 果 在 第 二 个 函数 中 没有 列 出 包 《〈 类 ) 的 话 ,bless 国 数 便 会 把 对 象 标记 为 属于 当前 
的 包 。bless 国 数 使 用 引用 寻找 所 需 的 对 象 ， 并 能 返回 指向 该 对 象 的 引用 。 由 于 pless 操作 将 把 对 象 
和 特定 的 包 《〈 类 ) 关联 起 来 ,因此 Perl 总 是 能 知道 各 个 对 象 各 自 属于 什么 包 。 用 户 可 以 把 对 象 归 
入 到 一 个 类 中 ， 然 后 再 重新 归 人 到 另 一 个 类 ， 依 次 类 推 。 但 是 在 同一 时 刻 ， 一 个 对 象 只 能 属于 一 
个 类 。 


bless REEERRENCE， CIASSNAME 
bless RERERRNCE 


示例 14.2 


my $reference = {}; 
return bless( 5$reference，S$Sclass) ， 



























































示例 14.3 说 明了 如 何 创 建 一 个 对 象 。 首 先 应 创建 一 个 匿名 散 列 , 然后 把 它 归 入 到 一 个 包 中 , 并 
通过 ref 国 数 检查 该 对 象 是 否 真 的 位 于 这 个 包 中 。 


示例 14.3 
Eee 
站 Package House: # Package aecaratzioDn 


名 my SrefEf = { "Owner"=>n"Tom"， #anonymous paspn”aata For the Packa9e 
TPRPFETCenE=>u"25000" POPertes7aEEr7pUEeS 
怕 


3 bless ($ref，House) : 


7Tpe DJess function Creates the opyject， The hasn FreferenceaQ py 
FE 三 EnE DIECEAEE ESSESOEO 

Eeeoacka5ce ae ec nernaup2coanen scesacecEokeec ac 上 
IE 配 GESe 旺 WerewOmigSE 


厘 埋 埋 厘 
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4 FontncnEaogsEEEEnasnawnenes aeksge 


mame.Nnn7 
号 ETEEETSUIOESOENSTESEEEE SEERNOSY 
6 ROSS 人 DERSnEEEeEucnSsEeelass (人 acKSS)nmanme 


ZeE(SZGTES) 有 NT 


所 

4 Te DJIess Lunctzon Lao9gs the hashn WILD IIL5 Packacge mname。 

本 The valIue of 5Sref Is: House=HAS 万 (0x5a08a8) . 

6 Te re 上 Functzion rearns the CIJass (acka9ce) name” House. 


( 

1. 声明 House 包 。 这 是 一 个 类 。 

2. 将 引用 $ref 赋值 为 匿名 散 列 的 地 址 ， 该 散 列 含有 两 个 键 / 值 对 。 这 些 散 列 值 代表 了 所 述 对 象 
的 属性 值 。 

.bless 国 数 带 有 一 个 或 两 个 参数 。 其 中 第 一 个 参数 是 一 个 引用 ,第 二 个 参数 则 是 包 的 名 称 。 如 
果 没 有 提供 第 二 个 参数 的 话 ， 就 假定 使 用 的 是 当前 包 "`。 在 本 示例 中 ， 当 前 包 名 为 了 ouse。 
现在 用 户 可 以 看 到 ， 这 个 引用 指向 的 对 象 位 于 House 包 中 。 

. 打印 引用 的 值 〈 即 对 象 的 地 址 )。 它 实际 上 是 指向 House 包 内 一 个 散 列 表 的 引用 ; 简单 地 讲 ， 
它 就 是 指向 新 的 House 对 象 的 一 个 指针 。 

. 如 果 ref 国 数 的 参数 是 一 个 指针 ， 并 指向 某 个 对 象 的 话 ， 该 国 数 便 会 返回 这 个 对 象 所 归属 到 
的 包 的 名 称 。 

a. 建议 读者 尽量 使 用 带 有 两 个 参数 的 bless 函数 ， 尤 其 是 在 需要 继承 时 〔〈 详 见 “ 继 承 ” 一 节 )。 


已 


ULD 


(LA 


CN 


14.2.6 “方法 


定义 。 方 法 是 用 于 操作 对 象 的 子 例 程 。 它 是 一 种 属于 类 的 特殊 子 例 程 ， 并 要 求 其 第 一 个 参数 必 
需 是 包 名 或 指向 对 象 的 引用 。 这 个 参数 会 由 Perl 隐 式 地 赋值 。 如 果 没 有 这 个 参数 , 它 就 和 其 他 的 子 
例 程 没有 分 别 。 方 法 主要 用 于 创建 对 象 、 赋 值 或 更 改 对 象 中 的 数据 、 或 者 从 对 象 中 检索 数据 。 

方法 的 类 型 。 方法 有 两 种 不 同 的 类 型 : 类 (静态 ) 方法 和 实例 〈 虚 ) 方法 8。 类 方法 取 类 名 为 
其 第 一 个 参数 ， 而 实例 方法 则 把 对 象 引用 作为 第 一 个 参数 。 

所 谓 类 方法 〈class method)， 是 一 种 影响 整个 类 的 子 例 程 ， 例 如 ， 它 能 创建 一 个 对 象 ， 或 
者 作用 在 一 系列 对 象 上 。 类 方法 需要 把 类 名 作为 其 第 一 个 参数 。 在 面向 对 象 的 编程 中 ， 构 造 国 数 
Cconstructor) 就 是 一 种 负责 创建 对 象 的 类 方法 。 在 Perl 中 ， 一 般 会 把 这 个 方法 称 为 new， 当 然 读 
者 也 可 任意 给 它 命名 。 对 象 的 创建 过 程 又 称 作 是 对 象 〈 或 实例 ) 的 实例 化 〈instantiation )。 

面向 对 象 的 程序 一 般 都 通过 实例 方法 “也 称 作 访 问 方 法 ) 来 控制 对 象 数据 的 赋值 、 修 改 和 检索 
行为 方式 。 只 有 在 对 象 创 建 完 毕 后 ,才能 使 用 其 实例 方法 。 负 责 创 建 对 象 的 方法 又 称 作 是 构造 国 数 。 
它 会 返回 指向 对 象 的 引用 。 一 旦 得 到 了 指向 新 对 象 的 引用 《一 般 命 名 为 $this 或 $self), 实例 方法 便 
可 通过 该 引用 访问 这 个 对 象 。 实 例 方 法 的 第 一 个 参数 应 当 是 指向 对 象 的 引用 。 然 后 它 会 通过 该 引用 
来 操作 指定 的 对 象 。 


























名 与 C 十 十 不 同 ，Perl 并 没有 为 方法 的 定义 提供 任何 特殊 语法 。 
提 方法 类 型 的 称谓 在 不 同 书籍 上 各 不 相同 。Larry Wall 把 方法 分 类 为 : 类 方法 、 实 例 方 法 、 双 性 方法 〈dual- 


nature method ) 。 
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调用 方法 。Perl 提供 可 调用 方法 的 特殊 语法 。 这 里 不 使 用 package::function 形式 的 语法 ， 而 是 
以 另外 两 种 方法 来 调用 方法 : 类 方法 调用 和 实 斧 方 法 调用 。 每 种 方法 调用 都 有 两 种 语法 : 面向 对 象 
语法 〈object-oriented syntax ) 和 间接 语法 〈indirect syntax )。 如 果 用 户 要 使 用 对 象 , 则 其 中 任意 一 
种 语法 都 是 可 以 接受 的 。 这 里 不 推荐 读者 使 用 老式 的 带 双 冒 号 的 方法 调用 方式 。 

请 读者 牢记 : 和 普通 的 子 例 程 不 同 ， 方 法 总 会 隐 含 传递 一 个 参数 ， 该 参数 可 以 是 类 名 ， 也 可 能 
是 指向 对 象 的 引用 。 辟 如， 如 果 用 户 以 三 个 参数 调用 某 个 方法 ， 则 实际 传递 过 去 的 参数 会 有 四 个 。 
在 面向 对 象 的 样式 下 ， 其 第 一 个 参数 值 可 在 箭头 的 左边 看 到 。 

































































类 方法 调用 

假定 方法 名 为 new， 甚 返回 值 Sref 是 指向 对 象 的 指针 。 

1) Sref = class->new( list of arguments ) ; # obyect-orienteaQ SyntaX 
2) S$ref = new class ( list of arguments ) ， # Inairect SyDPEtaXX 

如 果 类 名 为 House， 则 Perl 会 把 

Sref = House -> new()， 

转换 成 : 

S$ref = House :: new(House) :; 

实 份 方法 调用 

假定 方法 名 为 display， 指 向 对 象 的 引用 名 为 $ref。 

1) Sref->qisplay( 1List of arguments ) # obyect-orienteaQ SyntaX 
2) display S$ref (List of arguments ) # IDQIFect SyDtaX 





上 述 第 一 个 示例 使 用 的 方法 称 作 面向 对 象 的 方法 ; 而 第 二 个 实例 用 到 了 箭头 运算 符 ， 又 称 作 是 
间接 语法 。 
当 Perl 看 到 要 调用 的 以 上 方法 时 ， 就 知道 了 这 些 方法 所 在 的 类 ， 因 为 上 述 对 象 都 已 执行 了 归 入 
操作 《由 一 个 内 部 指针 指明 其 所 在 位 置 )。9 

















如 果 读 者 调用 

Qisplay $ref ( ar9uments ...) :; 

或 者 

Sref -> qisplay(ar9uments ...) :; 

其 中 $ref 指向 House 类 中 的 一 个 对 象 ， 那 么 Perl 就 会 把 上 述 内 容 翻译 为 : 
House :: qisplay ( S$Sref ，arguments ... ) 


14.2.7 面向 对 象 的 模块 样式 


图 14-3 展示 了 典型 的 面向 对 象 模块 的 布局 。 创 建 模块 的 文件 是 一 个 .pm 文件 。 在 这 个 示例 
中 ,.pm 文件 全 名 为 House.pm。 该 文件 由 一 个 包 声 明 组 成 。 包 又 可 称 作 是 类 ,因此 这 就 是 一 个 House 











全 Perl 调用 正确 模块 函数 的 能 力 又 称 作 是 运行 时 绑 定 (Runtime bunding ) ,来自 Srinivasan, S., 4dvamced Per7 
Progra1a1li118g, OReilly 儿 Associates: Sebastopol, CA, 1997. 
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类 。 该 类 中 包含 多 个 子 例 程 , 即 方法 。 甚 中 第 一 种 方法 的 名 字 叫 new, 是 构造 图 数 方法 。 该 方法 负责 
定义 和 创建 《构造 ) 指定 的 对 象 。 当 模块 使 用 者 调用 new 方法 时 ， 就 能 得 到 一 个 指向 新 建 的 House 
对 象 的 引用 ( 即 house 对 象 地 址 )。new 方法 以 所 在 的 类 名 作为 其 第 一 个 参数 。 这 个 方法 不 仅 可 以 创 
建 对 象 ， 还 负责 归 和 对象， 从 而 让 对 象 始终 知道 自己 所 属 的 类 〈 包 )。( 详 见 “bless 国 数 ” 一 节 。) 
后 两 种 方法 则 称 作 访问 方法 或 实例 方法 。 它 们 负责 保存 或 读 取 对 象 中 的 数据 。 在 创建 好 对 象 实例 之 
前 是 不 能 使 用 这 些 方法 的 。( 除 非 房子 已 经 建 好 ,否则 你 是 无 法 走 进 或 展示 它 的 。) 当 用 户 获 得 了 指 
向 对 象 的 引用 后 ， 便 可 使 用 该 引用 去 调用 实例 方法 。 

继续 看 图 14-3， 我 们 可 以 看 到 ， 对 象 的 数据 都 是 在 一 个 匿名 散 列 中 予以 描述 的 《〈 这 里 亦 可 使 用 
其 他 任何 数据 类 型 )， 而 对 象 的 地 址 则 赋值 给 一 个 私有 (my ) 的 引用 。 (然后 通过 实例 方法 set_data 
对 对 象 数 据 进 行 赋值 .) bless 国 数 使 用 对 象 所 属 的 类 名 来 标记 对 象 ， 并 返回 指向 对 象 的 指针 ;， 即 ， 
当 模 块 使 用 者 调用 构造 国 数 时 ， 得 到 的 便 是 指向 新 对 象 的 引用 。 构 造 国 数 能 够 “实例 化 ”对 象 〈 艾 
如 创建 一 个 house 对 象 )。 用 户 可 以 创建 任意 多 个 对 象 ,Perl 会 为 每 个 对 象 提 供 单独 的 地 址 。 对 象 创 
建 完 毕 后 ， 便 可 使 用 实例 方法 〈 常 称 作 setter 和 getter 方法 ) 来 操纵 这 个 对 象 。 用 户 可 以 调用 实例 
方法 去 保存 或 检索 对 象 数据 。 在 调用 实例 方法 时 ， 用 户 必 须 提供 一 个 指 疝 该 对 象 的 引用 ， 以 免 访问 
错误 的 对 象 。 实 例 方 法 通常 都 把 一 个 指向 对 象 的 引用 当成 其 第 一 个 参数 。 

模块 的 设计 方法 有 很 多 种 。 下 图 14-3 只 是 其 中 一 种 简单 的 途径 。 




















House. pm 模块 


Package House; # The House class in the House.pm module 


Sub new{ 
my Sclass = Shift; 构造 函数 方法 
my Sreft = { );) # aefine the obyjJect 创建 一 个 指针 
| 通过 bless 函 数 创建 一 个 对 象 
) 返回 一 个 指向 该 对 象 的 引用 








人 访问 方法 ， 或 称 实例 方法 
S$self->{(key)=valuei 赋值 或 保存 对 象 的 属性 


} 





Sub get_dataf 

my S$self = shift; 

print S$self->{key); 获得 或 获取 对 象 的 属性 
)} 
1; 


类 调用 代码 


#!VUSZ/bin/Per1l 

# Package is maiD 

use Housel 

$objl = House->new(args) ;# Creace che obyecc a poincer isS recurned'; 
# args refers to any arguments that mi9ht be passed 

Sobj2 = House->new(args):# Create anocher house obyect. 

S$Sobjl->secdGaca(args)i;# Store or assign data 上 o che object 

S$objl->gecdaaca(args);# Fecch data From the obyJeckt 


Sobj2->setdGacal(args);# Store Or assiogn data *o the obyject 
S$obj2->Secdaca(args))# Fetch data From the obJTect 








图 14-3 House 类 及 其 调用 代码 


类 构造 国 数 方法 。 构 造 国 数 是 一 个 OOP“〔〈 面 向 对 象 编 程 ) 术语 ， 它 指 的 是 一 种 类 方法 ,负责 在 
类 中 创建 并 初始 化 相应 的 类 对 象 。 构 造 国 数 没 有 特殊 的 语法 。 它 只 是 一 种 让 用 户 获 得 归属 包 引 用 的 
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方法 。Perl 类 的 第 一 个 方法 〈 即 包 中 第 一 个 子 例 程 ) 一 般 都 会 创建 〈 指 向 对 象 的 ) 引用 ， 并 将 该 引 
用 归 入 到 包 内 。 该 方法 的 名 字 一 般 都 是 new， 因 为 它 将 建立 一 个 新 的 “东西 ”>。 不 过 读者 亦 可 将 它 
命名 为 其 他 名 字 ， 璧 如 create、construct、initiate 等 等 。 

一 般 而 言 , 由 new 子 例 程 生成 的 对 象 都 是 匿名 的 散 列 表 或 匿名 数组 。 用 户 可 以 向 该 匿名 散 列 或 
数组 赋予 描述 对 象 性 质 的 数据 。 这 些 数 据 常 被 称 作 是 对 象 的 属性 (property) 或 特性 〈attribute ) 。 
总 体 而 言 ， 属 性 定义 了 对 象 的 状态 。 


示例 14.4 


(The Module: House.pnm) 











下 Package House: # CIJIass 
胖 Sub new 1{ # CIass metphoa callea a constructor 
3 my S$Sclass = shift: 
4 my S$ref={"Oownezr"=>unadef， # Attributes oF the opbyect 
"Price" =>unaef， # VaJues wiJIJ1 be assig9nea ater 
1 
本 bless ($reEf，S$class) : 
# Sre5E now Freferences an obiject in this cJIass 
6 zeturn Sref; # 又 reference to the obyject Is Freturned 


(The User of the Modaule) 


Ai 作 本 5 
电 Use House: 
8 my $houseref = House->new() ; 


Ca tpe new metphoa ana create the obyject 

my 5housererf = new House”another way to cal]I the pnew metphoda 
OOTEIEANENoUSSEEAETETmadn DELiomeE 本 二 caSESE 

ref (Shouseref) ,".N\n" 











Ox5a08a8 
Owner => undef 






0Oxoa08c8 Price => undef 
Shouserel 
(OOuEeue) 
10 Shouserer in main belong9s to class House . 
解释 


1. 声明 House 包 。 亦 可 称 之 为 类 ， 因 为 它 含 有 一 个 处 理 对 象 引 用 的 方法 。 

2. 子 例 程 new 在 OOP 术语 中 又 称 为 是 构造 畏 数 。 构 造 国 数 的 主要 功能 是 创建 并 初始 化 对 象 。 
在 Perl 中 , 构造 国 数 并 不 包含 任何 特殊 的 语法 。 构 造 国 数 是 一 个 类 方法 ,因为 它 的 第 一 个 参 
数 是 类 的 名 字 。 该 子 例 程 能 把 一 个 经 过 引用 的 “东西 >〈 对 象 ) 归属 到 类 中 ， 并 返回 一 个 指 
向 该 对 象 的 引用 。 该 子 例 程 又 称 作 方法 , 而 它 处 理 的 “东西 ”又 叫 对 象 。 它 们 所 在 的 包 又 称 
作 类 。 

3. 此 类 子 例 程 接受 的 第 一 个 参数 是 包 名 或 类 名 ,在 本 例 中 就 是 House。 这 是 方法 和 子 例 程 之 间 
的 又 一 个 不 同 之 处 。 方 法 的 第 一 个 参数 必需 是 一 个 类 名 或 对 象 名 。 

4. 把 引用 $ref 赋值 为 一 个 匿名 散 列 “对 象 ) 的 地 址 。 这 里 把 它 的 键 赋值 为 undef， 意 味 着 目前 
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它 的 值 尚 未 定义 ， 将 在 以 后 予以 定义 。 

5. 将 $ref 指向 的 “东西 ” 归 入 类 $class， 并 转换 为 相应 的 对 象 。 

6. 把 一 个 指向 对 象 的 指针 返回 给 构造 国 数 的 调用 者 。 

7. 这 是 另 一 个 使 用 House 模块 的 脚本 。 在 shbang 行 之 后 ， 通 过 use 语句 把 模块 House.pm 载 入 内 存 。 

8. 以 包 /类 名 House 作为 第 一 个 参数 , 调用 构造 函 数 new。 该 国 数 将 返回 一 个 $houseref 引用 ， 
指向 一 个 匿名 散 列 , 即 新 创建 的 对 象 。Perl 会 隐 式 地 把 类 名 作为 第 一 个 参数 发 送 给 new(0) 方法 。 

9. Perl 会 把 $houseref = $House->new0 翻译 为 Shouseref = House::new(House) ; 这 一 行内 容 已 
经 注释 掉 了 。 它 展示 了 另 一 种 调用 方法 的 途径 ， 即 间接 语法 〈indirect syntax )。 读 者 可 选用 
其 中 任意 一 种 途径 。 

10. 如 果 引 用 已 经 归 人 到 指定 类 中 ，ref 函数 就 能 返回 这 个 类 《〈 包 ) 的 名 字 。 


类 方法 和 实例 方法 。 回 顾 : 类 方法 ， 又 称 作 静 态 方法 ， 是 无 需 对 象 实例 就 能 工作 的 方法 或 子 例 
程 。 它 们 是 独立 的 的 函数 ， 代 表 了 类 的 行为 。 属 于 类 方法 的 例子 包括 负责 计算 文 票数 额 的 国 数 ， 以 
及 从 数据 库 中 获得 姓名 列表 的 国 数 。 最 为 常见 的 类 方法 莫 过 于 构造 国 数 方法 。 它 是 负责 创建 对 象 的 
方法 。 构 造 国 数 的 第 一 个 参数 是 类 《〈 包 ) 的 名 字 ， 并 能 作用 在 整个 类 上 。 

面向 对 象 的 程序 常常 使 用 访问 方法 或 实例 方法 来 控制 对 象 数 据 的 修改 、 检 索 和 显示 方式 。 为 了 
处 理 正确 的 对 象 ， 实 例 方 法 〈 访 问 方 法 ) 需要 提供 一 个 对 象 实例 ， 即 对 一 个 已 有 对 象 的 引用 。 

如 果 需 要 在 一 个 方法 中 以 不 同方 式 表达 数据 的 话 ， 只 要 提供 给 用 户 的 接口 保持 不 变 ， 则 其 他 方 
法 就 不 必 受 其 影响 。 示 例 14.5 中 的 实例 方法 用 作 访 问 国 数 , 负责 显示 类 里 面 的 数据 成 员 。 实 全 方法 
取 一 个 对 象 引 用 为 其 第 一 个 参数 。 在 调用 实例 方法 时 ， 请 读者 注意 观察 位 于 -> 左 侧 的 值 。 这 个 值 
是 一 个 对 象 ， 它 会 隐 式 地 作为 第 一 个 参数 传递 给 正在 调用 的 方法 。( 如 果 位 于 -> 左 侧 的 值 是 类 名 的 
话 ， 则 会 把 类 名 作为 第 一 个 参数 传递 给 方法 ; 艾 如 ， 构 造 国 数 就 是 以 类 名 作为 其 第 一 个 参数 的 。) 


示例 14.5 


#1!V/usz/bin/per1 

































































由 Package House: 
包 Sub new1i # CIass/Static methoa 
电 TELISEIS 汪 SEA 
4 my SrefE={]l: # anonymous ana empty Phasp 
5 bless ($ref) : 
6 ESEUETESTE 全 
) 
凡 Sub set_owner1 # Inpstance/VIrtual methoa 
8 my S$SselEt = Shitt; 
9 ETIERZNSSETEELES 王 CTLSRSSRLORESELLSSESTE) 岂 和 王 人 人 生 站 二 让 CS 全 NE 
10 SSEUEEELOWTST 本 三 三 SHE t2 


} 
11 sub disPlay_owner { 


多 SEE 
# The obyect reference Is the 站 rst ar9ument 
| 站 让 SS 证 三才 OWETeO RN 
} 
业 


GUNEES enety 


336 苞 14 章 





#1!1V/usz/bin/per1 
# Thpe user of the clJass 
14 use House: 


15 my $house = House->new; # _ Call clIass metphod 

3 民 全 $house->set_owneL ("Tom Savage" ) : # Cal1 Instance methoa 
17 $house->disPlay_owner:， # Ca7l1 Inpstance methoa 
GEGUED) 

岛 5SseJf is aa class House reference. 


13 Tom Sava9e 


蕉 
襄 
人 


声明 House 包 。 亦 可 称 之 为 House 类 。 

类 方法 new 是 构造 函 数 。 它 负责 创建 一 个 引用 ， 并 将 其 归 入 House 类 中 。 

. 把 变量 $class 赋值 为 类 的 名 字 ， 后 者 也 是 构造 国 数 new 的 第 一 个 参数 。 

. 把 引用 $ref 厂 值 为 一 个 空 的 匿名 散 列 。 

.将 S$ref 指向 的 “东西 >( 即 匿名 散 列 ) 归 入 House 类 中 。 这 样 一 来 ， 该 “东西 ”就 变 成 了 一 

个 对 象 。 

. 从 new 方法 把 指向 对 象 的 引用 返回 给 调用 者 。 

7. 定义 实例 方法 set name。 

8. 将 指向 对 象 的 引用 从 @_ 数组 转移 到 $self。 现 在 便 可 使 用 实例 方法 操纵 对 象 了 , 因为 已 经 获 

得 了 对 该 对 象 的 引用 。 

9.ref 返 回 类 House 的 名 称 。 只 有 将 对 象 成 功 归 和 人 后 ，$ref 才能 返回 其 类 名 。 

10. 从 @_ 数组 转移 第 二 个 参数 把 Tom Savage 作为 一 个 值 赋予 Owner 键 。 然 后 使 用 该 实例 
方法 〈 又 叫 setter 方法 ) 将 数据 赋值 给 对 象 。 

11. 调用 实例 方法 display_owner， 访 问 对 象 内 的 数据 ; 在 本 例 中 ， 即 打印 匿名 散 列 中 的 Owner 
字段 值 。 

12. 该 方法 的 第 一 个 参数 是 一 个 指向 对 象 的 引用 。 从 @_ 数组 将 对 象 引 用 转移 到 $self 中 。 

13. 显示 键 Owner 的 字段 值 。 

14. 这 段 程 序 使 用 了 House.pm 模块 。 

15. 调用 new 构造 国 数 方法 ， 返 回 指 同一 一 个 House 对 象 的 引用 ; 即 指向 House 类 中 一 个 匿名 散 
列表 的 引用 。 构 造 国 数 方法 new 通 稼 至 少 传递 一 个 参数 ， 也 就 是 类 的 名 字 。House->new(O 
将 翻译 为 House::new(House)。 

16. 以 Tom Savage 为 参数 调用 实例 函数 set owner。 请 记 住 ， 传 递 给 实例 方法 的 第 一 个 参数 必 
需 是 指向 对 象 的 引用 ， 而 Tom Savage 则 是 第 二 个 参数 : 

$house->set owner ("Tom Savage" ) 会 转译 为 House::set owner( $house ,，"Tom Savage"); 


17. 调用 display 方法 。 该 方法 负责 显示 匿名 散 列 的 值 ， 即 Tom Savage。 





个 帮 UPD 一 


CN 

















传递 参数 到 构造 国 数 方法 。 实 例 变 量 常 用 于 在 创建 对 象 时 对 它 进 行 初始 化 。 通 过 这 种 方式 ， 便 
可 在 每 次 创建 对 象 时 定制 其 内 容 。 用 户 可 以 把 描述 对 象 的 数据 作为 参数 传递 给 构造 国 数 方法 。 之 所 
以 把 它们 称 作 实 例 变量 (instance variable), 是 因为 程序 只 有 在 创建 对 象 或 初始 化 对 象 时 才 会 生成 它 
们 。 一 般 都 通过 匿名 散 列 或 匿名 数组 来 保存 实例 变量 。 在 下 面 的 示例 14.6 中 ， 该 对 象 “拥有 (has 
a)” 或 “含有 (contains a)” 两 个 实例 变量 owner 和 price。 
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示例 14.6 


(IThe Modaule: ouse.pm) 


亚 Package House: 

2 Sub newi # Constructor metphoa 

3 my $class = shift' 

4 my ($owner，$Ssalary) = @ : 了 全 芝 天 

已 my $ref={"Owner"=>$owner， # Instance variablIes to 
"Price"=>S$Price， 几 玫 本 肌 5 让 疝 证 是 睛 人 本 EECNE 

怕 
6 bless(Sreft，S$Sclass) :; 
凡 ES 旺 SEE 
) 

8 Sub disPLay_object 1{ # an Instance methoda 

包 my $SselEf = Shift: # The name of the objiect Is Passea 

二 while( (S$Skey，S$Svalue)=each %$selLE) { 


EN 


全 Eee 

[站 

SS 

11 use House: 

Documentation expJazinznog hnow to Use the Fouse 
Package LSs calJead the Puplic ImLerrace， 

上 且 US 旺 DE 要 已 玉 OCE77 人 以 必 三 2 古训 Se 汪 上 e 且 S 

TO _ create a House obyject reGq9uizres two ar9umentsyv 
am Owner ana a Price， 

See "PuUpJIcC User Interface=Documnentin9 CIJasses" on Page 474 
EeeceakeesaeEwmeD ES 上 二 信 疏 本 


my 5housel = new Housef"7Tom Sava9e" 250000) 7 
ET 

2 my $Shousel = House->new("Tom Savage"，250000) ; 
3 my $Shouse2 = House->new("Devin Cuigley"，55000) : 
TWO obyJects hare been createa.， 

4 5$housel->disPLlay_object: 

S$house2->disPLlay object: 
OFTELSIOUEETESOUSE2NTDT 








Cn 


(GEGIDED) 
4 Owner” Tom Sava9e 
ee 人 OO 
SI 万 Eeev 了 OO EY7 
PE DOO 
6 Fouse=HAS 记 (0OxX9a450)，House=DHAS 万 (0O0xa454c) 


1. 声明 House 包 。 

2. 将 类 方法 new 定义 为 构造 国 数 。 

3. 类 方法 的 第 一 个 参数 是 类 《〈 包 ) 的 名 字 。 
4. 从 剩余 的 参数 列表 中 创建 实例 变量 。 
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5. 将 匿名 数组 的 地 址 赋值 给 引用 $ref。 这 里 的 键 都 是 硬 编码 的 ， 而 值 则 由 实例 参数 提供 。 
6. 将 引用 $ref 指向 的 “东西 ” 归 和 类 中 ， 从 而 得 到 一 个 新 的 对 象 。 

7. 在 调用 方法 时 返回 引用 $ref 的 值 。 
8 
多 








. 子 程序 display_object 是 一 个 实 僵 方 法 。 在 该 类 中 予以 定义 。 
实 斧 方 法 的 第 一 个 参数 是 指向 对 象 的 引用 。 

10. while 循环 负责 通过 each 国 数 从 $self 指向 的 散 列 《对象 ) 中 获得 键 和 值 。 

11. 类 的 用 户 把 House.pm 加 载 到 命名 空间 。 

12. 以 三 个 参数 调用 new 方法 : House、Tom Savage 和 250000。 其 中 第 一 个 参数 是 类 的 名 称 。 
读者 看 不 到 这 个 参数 ,因为 它 是 由 Perl 隐 式 发 送 给 构造 国 数 的 。 这 里 惟一 的 要 求 是 把 下 
值 放 在 第 一 个 参数 , 而 将 Price 值 作为 第 二 个 参数 。 这 里 没有 提供 任何 错误 检查 机 制 。 

例 只 是 为 了 说 明 如 何 将 参数 传递 给 构造 国 数 。 返 回 到 $housel 的 值 是 一 个 指 | 

13. 以 不 同 的 参数 再 次 调用 new 方法 ,新 的 参数 是 Devin Quigley 和 3550000。 返 回 给 引用 $house2 
的 值 是 指向 另 一 个 对 象 的 引用 。 这 里 使 用 new 方法 创建 了 两 个 对 象 。 用 户 亦 可 创建 任意 多 
个 对 象 。 这 些 对 象 将 各 自 拥 有 独立 的 地 址 , 正如 第 16 行 的 输出 内 容 所 示 。 由 于 在 构造 函数 
中 都 完成 了 对 象 的 骨 人 处 理 ，Perl 知道 这 些 对 象 都 位 于 House 类 中 。 

14. 调用 实例 方法 ， 显 示 $housel 所 引用 对 象 的 数据 。 

15. 再 次 调用 实例 方法 ， 显 示 $house2 所 引用 对 象 的 数据 。 

16. 打印 这 两 个 对 象 的 地 址 。 














传递 参数 到 实例 方法 。 实例 方法 的 第 一 个 参数 必需 是 指向 对 象 的 引用 。 在 被 调用 的 方法 中 , 这 
个 值 一 般 都 是 从 @_ 数组 转移 而 来 的 ， 并 保存 在 my 变量 $self 或 Sthis 中 ， 事 实 上 变量 的 名 称 在 这 
根本 无 关 紧 要 。 甚 余 参 数 的 处 理 流 程 与 常规 子 例 程 相同 。 


示例 14.7 
#1/bin/pez1l 
# Pro9ram to aemonstrate passin9 ar9uments to an instance methoa. 
# pen methoa is calIea，user can seJlect what he wants returnea. 














也 Package House: 

2 SuUb newi 1 
myESETaSSE 三 省 SI 全 蕊 
mLSSRmecsSanaryESSE7YLS) EU GE 


my S$ref={ "Owner"=>S$namey 
"Price"=>$salaryr 
"Stylen"=>S$stylev 
下 下 用 训 直 攻 信人 直 全 全 本 SEE 交 避 ) 
】} 
Sub disPlay { # Instanpce metphoa 
my $selEf = shift:; # Opbyect reference Is the 石 rst ar9ument 
foreach Skey ( 6@ )1{ 
Pint "$key: $selLfE->{S$Skey}\n"; 


QQ n 心 ww 
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esSecnotuy 
本 TYEET 
# User of the class--another PFo9Fam 


) Use House: 
8 my S$house = House->new("Tom Savagde"，250000，"Cape Cod" ) 
习 $house->disPlay ("Owner"，"Style") : 

# Passin9 ar9uments to instance methoa 
oOuEewe) 


Ownper: Tom Sava9e 
SRER OSIRECoe 


解释 

1. 声明 House 包 。 由 于 这 个 包含 有 归 和 人 的 引用 与 方法 ， 因 此 也 可 称 之 为 一 个 类 。 

2. 本 行 的 new 方法 是 一 个 构造 国 数 。 该 对 象 是 一 个 匿名 散 列 ,含有 三 个 键 / 值 对 。 这 些 键 值 对 
又 称 为 对 象 的 属性 。 将 它们 的 值 作为 参数 传递 给 构造 国 数 , 并 创建 一 个 对 象 。 该 对 象 由 $ref 
引用 ， 归 入 到 House 类 中 。 因 此 ，Perl 能 够 追踪 这 些 对 象 属于 哪个 包 。 

3. 定义 实例 方法 display。 

4. 实例 方法 display 的 第 一 个 参数 是 指向 House 对 象 的 引用 。 将 该 参数 移出 来 ,并 赋值 给 $self。 
. foreach 循环 负责 逐一 遍历 @_ 数 组 中 的 剩余 元 素 ， 并 依次 将 每 个 参数 赋值 给 变量 $Skey。 变 
量 $key 是 一 个 匿名 数组 中 的 关键 字 。 

. 打印 从 关联 数组 中 选 定 的 值 。 

. 类 的 调用 者 将 该 模块 载 入 到 程序 中 。 

. 调用 构造 国 数 方法 ， 创 建 一 个 新 的 House 对 象 。 

. 以 给 定 参数 调用 实例 方法 。 其 传递 的 第 一 个 参数 是 一 个 指向 对 象 的 指针 , 即 $house, 不 过 用 

户 是 看 不 到 这 个 参数 的 。 甚 余 参 数 则 由 用 户 自行 提供 ， 它 们 都 位 于 括号 内 。 


命名 参数 。 到 现在 为 止 ， 上面 这 些 实例 都 使 用 的 House 对 象 。 在 下 面 的 示例 中 ,我 们 将 创建 一 
个 新 的 Employee 对 象 。Employee 构造 函数 将 接受 一 些 用 于 描述 雇员 属性 情况 的 参数 。 如 果 构 造 国 
数 方法 需要 按 顺 序 传 递 姓名 、 地 址 和 薪水 的 话 ， 程 序 将 很 容易 以 错误 的 顺序 传递 这 些 参数 ， 从 而 导 
致 把 地 址 值 赋 了 予 姓名 ， 或 者 将 姓名 值 赋予 薪水 ， 等 等 。 如 果 使 用 了 命名 变量 ， 就 能 提供 一 种 方法 ， 
可 以 确保 不 论 以 何 种 顺序 把 参数 传递 给 方法 ， 都 能 将 参数 值 赋 予 正确 的 属性 。 用 户 可 通过 调用 或 驱 
动 程序 以 键 / 值 对 的 形式 传递 参数 ,然后 由 构造 函数 将 这 些 参数 接受 为 一 个 散 列 表 。 示 例 13.8 展示 
了 如 何 把 命名 参数 传递 给 方法 ， 以 及 如 何在 方法 中 传递 命名 参数 。 

用 户 / 驱 动 程序 


#1/usz/pbin/pPe1l 
# User of EmpJIoyee.Ppm--See Example 14.9 for moauJe 
站 use EmPloyee: 
到 use Warnings: 
UUSee 
六 my(S$name，S$extension，S$address，S$SbasepPay，S$emPLoyee) ; 
4 DFImeEnES Eeesmeleoyse snmame al 
chomp (Sname=<STDIN>) ; 
DPIInL "Enter the employee's EDhone extension。 7" 


(LA 


Ni oo = Gy 
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chomp ($extension=<STDIN>) ; 

PITiInL "Entez the employee"s adaadaress. 7" 
chomp ($address=<STDIN>) ; 

DIEInL "EntLez the employee's basepay。"; 
chomp ($basepay=<STDIN>) ; 


# Passin9 Parameters as a hasph 
己 S$emPloyee = EmPloyee->new( "Name"=>S$Sname， 
"Address"=>$address， 
"也 xXtension"=>S$extensiony/ 
"PayCheck"=>S$basepPay， 
凡 7 


TENIEES 巧 ET 人 TESTSmERSEENOLY 
6 Semployee=>get stats' 


GEROE) 

EDEer Eeenpoyesns namnea 也 anssa7ac9e 

EDEer Eeenonoyecsns ppone extenszona 3 

Enter the empJoyee's aaadress。.。 999 Mssion A7e， Somewhere， Ca 
Enter tphe emp5Joyee's Dasepay。2200 


Tpe StatzstIzcs For Dan7lel Savrage arey> 
Aaaress = 999 MITSsSIion Ave Somemwpherey CA 
PayChecKk = 2200 

TOQNUE = 三 ERmpJoyee Ia not ErovIaea' 

五 Xtemnsion = 2534 

Name = Daniel Sava9e 


解释 
1. 该 程序 用 到 了 Employee.pm 模块 。 
2. 对 于 可 能 发 生 的 错误 ， 触 发 警告 信息 、strict 编译 指示 符 将 跟踪 全 局 和 未 定义 的 变量 、 裸 词 等 。 
3. 创建 一 个 词法 上 私有 的 变量 列表 。 
4. 要 求 程序 的 用 户 输入 想 要 传递 给 Employee 模块 的 信息 。 
5. 调用 构造 函 数 ， 并 以 键 / 值 对 的 形式 传递 参数 , 即 ， 在 Employee 中 将 散 列 传递 给 构造 国 数 。 
〈 详 见 示例 14.9。) 然后 返回 转 疝 对 象 的 引用 ， 并 将 它 赋值 给 Semployee。 
6. 调用 实例 方法 get_stats， 显 示 雇 员 的 属性 。 
面向 对 象 的 模块 


示例 14.9 


# MoauJe EmnpJIoyee.pm--See PExampJe 14.8 to use this moaujle. 





由 Package EmPLoyee: 

2 se CacPpy” 

隐 Sub new 1{ 

4 TVMESLeISSS 汪 三 本 SEEAEE 

己 my (s$Params)=Q@ :， # RecezvIin9 the hash that mwas passeda 

6 my $SobJjpPptz={ 

岂 "Name"=>5$SParams{"Name"} || croak("No name assigned")v 
"也 xtension"=>$Params{"Extension" }， 

8 "Rddress"=>$Params{"RAddress"}， 


"PayCheck"=>S$Params{"PayCcheck"} 11 
CIoak ("No Pay assigned'") ， 
9 ( (defined $Params{"IdNum"})?("IqNum"=>$SParams{"IdNum" }) : 
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("IdNum"=>"EmPloyee's id was not Provided!" 


JU 


7 
10 EU 全 间 可 条 让 天 册 忆 二 区 有 
】} 
11 sub get_ stats{ 


工 过 my $se1lLft=shitftty， 
下 while( ($key，S$value)=each $S$selLfE) { 
0 
】 
TREND 


村 
Ti 
国王 


. 声明 Employee 类 〔〈 包 )。 

. 使 用 标准 Perl 库 中 的 Carp 模块 处 理 错误 信息 。 这 里 没有 使 用 Perl 内 建 的 die 国 数 ， 而 是 可 
以 使 用 来 自 Carp 模块 的 croak 方法 ,以便 在 碰 到 出 错 情况 时 退出 程序 ， 并 打印 有 关 出 错 原 
因 的 更 详细 的 信息 。 

3. 定义 构造 国 数 方法 new。 

4. 构造 函数 方法 的 第 一 个 参数 是 类 名 。 将 其 移出 @_ 数 组， 并 赋值 给 $class。 

5. 将 @ 数组 中 的 其 余 参 数 赋值 给 散 列 变量 %params。 然 后 以 键 / 值 对 的 形式 将 该 变量 传递 给 

构造 国 数 。 

将 引用 $ref 赋值 为 一 个 匿名 散 列 的 地 址 。 

7. 为 键 Name 赋值 ,并 从 散 列 %params 中 检索 该 值 。 这 里 已 经 完成 了 出 错 检查 。 如 采 设 有 为 键 
Name 提供 相应 值 的 话 , 程序 就 会 执行 croak 国 数 , 以 便 让 用 户 知 道 程 序 并 没有 给 Name 赋 
值 ， 然 后 退出 程序 。 

. 从 散 列 %params 中 获取 参数 值 ， 并 赋值 给 Address 属性 。 

9. 这 个 例子 说 明了 如 何 确 保 模块 的 用 户 传递 了 正确 的 参数 。 条 件 语 句 读 作 : 如 果 散 列 %params 
中 存在 定义 好 的 键 ItNum， 则 获取 其 值 并 赋予 ItNum; 否则 ， 在 程序 运行 时 告诉 用 户 他 忘 了 
指定 该 参数 。 在 使 用 croak 国 数 的 示例 中 ， 如 果 用 户 没有 按照 要 求 提 供 输入 的 话 ， 程 序 便 会 
退出 执行 。 而 在 这 种 形式 的 检查 中 ， 程 序 将 继续 执行 。 

10. 为 属性 赋值 ， 然 后 将 指向 对 象 的 引用 归 和 到 类 ， 并 把 该 引用 返回 给 调用 者 。 

11. 定义 实例 方法 get _stats 。 

12. 从 @_ 数组 中 移出 第 一 个 参数 ， 并 将 它 赋 值 给 $self。 该 参数 是 指向 对 象 的 指针 。 

13. 进入 while 循环 。each 国 数 负责 返回 并 打印 对 象 中 的 每 一 个 键 / 值 对 。 


14.2.8 ”多 态 性 和 动态 绑 定 


Webster 知 鼻 把 多 态 性 〈polymorphism ) 定义 为 : polymorphism: n. 1. the state or condition of 
being polymorphous 。@ 
为 了 说 的 更 清楚 些 ， 下 面 是 另 一 个 定义 : 具有 多 种 形态 或 采取 多 种 行为 方式 的 能 力 … 同一 个 操 


MP 一 








CN 


Co 


























日 丈 pstery E1cyclopedic LU1aapridsged Dictionary or 1jpe Ergl1isn ZLa1sguage, Random House Value Publishing: 
Avenel, NJ, 1996, p.1500. Reprinted by permission . 
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作 在 不 同 的 类 中 表现 为 不 同 的 行为 。 

多 态 性 拥有 很 多 种 不 同 的 描述 方式 ， 它 早已 隐 仿 在 了 OO 语 境 中 。 在 Perl 中 ， 它 的 意思 是 可 以 
使 用 同一 个 名 称 在 不 同 的 类 中 提供 同一 种 方法 ， 而 在 调用 方法 时 ， 它 会 自动 进行 正确 的 选择 ; 换 而 
言 之 ， 当 通过 对 象 引用 调用 方法 时 ， 它 将 进入 对 象 所 属 的 类 中 。 

下 面 这 个 示例 14.10 说 明了 多 态 性 的 特点 。 这 里 用 到 了 两 个 模块 Catpm 和 Dog.pm， 每 个 模块 
都 含有 三 个 同名 国 数 : new、set_attributes 和 get_attributes。 示 例 14.10 中 的 驱动 程序 〈 或 用 户 程 
序 ) 将 使 用 这 两 个 模块 。 当 调用 各 自 的 类 构造 国 数 时 ， 便 能 返回 指向 cat 或 dog 对 象 的 引用 。 当 使 
用 对 象 引用 来 访问 方法 时 , Perl 会 知道 调用 的 子 例 程 及 其 所 属 的 类 , 即使 方法 出 现 重 名 也 不 要 紧 。Perl 
确定 了 待 调 用 对 象 所 属 的 类 , 并 在 该 类 〈 包 ) 中 搜寻 调用 的 方法 。 这 里 调用 正确 方法 的 能 力 就 展示 出 
所 谓 的 多 态 性 。 动 态 绑 定 又 称 为 运行 时 绑 定 (runtime binding)， 它 能 允许 程序 推迟 调用 正确 的 方法 ， 
直到 程序 开始 执行 。 它 与 多 态 性 一 起 负责 将 正确 的 方法 绑 定 到 关联 的 类 上 ，, 而 不 必 通 过 让 语句 来 决定 
需要 调用 的 方法 。 这 样 就 提供 了 很 大 的 灵活 性 ， 并 且 这 对 继承 机 制 的 正确 性 也 是 非常 必要 的 。 

若 要 利用 多 态 性 和 运行 时 绑 定 ， 就 必须 使 用 面向 对 象 的 语法 ， 而 不 是 传统 的 :: 语法 。 例 如 ， 倘 
若 由 两 个 类 Director 和 Rifleman， 它 们 均 含 有 方法 shoot。 用 户 可 以 把 它 写成 $object->shoot， 而 
Perl 会 知道 对 象 所 属 的 类 。 它 会 在 编译 时 确定 正确 的 类 。 通 过 这 种 方式 ，Director 就 不 会 在 分 配角 
色 时 射出 子弹 , 而 Rifleman 也 不 会 尝试 拍摄 有 关 步 枪 射击 的 电影 。 读 者 还 可 以 汪 ′ 加 其 他 的 类 ,譬如 
含有 不 同 shoot 方法 的 BasketballPlayer 类 , 并 能 确保 对 于 该 类 也 能 调用 正确 的 方法 。 如 果 没 有 运行 
时 绑 定 和 多 态 机 制 的 话 ， 程 序 就 只 能 根据 某 种 条 件 判断 的 结果 才能 确定 该 用 哪个 正确 的 类 ， 璧 如 

主 丰 《人 苦 全 在 ( 语 D 蕊 本 攻 忆 蕊 》 膏 训 站 卫 二 到 避 G 巧 GET) 

Director::shoot($object1l) ， 
elsif ( ref(S$object2) ed "Rifeman'" ){ 
Rifleman::shoot ($object2) ; 


elJsetf 
Basketbal1lPlayer::shoot(S$Sobject3) ， 



























































} 





在 面向 对 象 的 语法 中 , Perl 会 隐 式 地 将 指向 对 象 的 一 个 引用 作为 参数 传递 给 方法 。 由 于 Perl 会 
把 对 象 引 用 传递 当 作 第 一 个 参数 传递 给 访问 方法 ， 并 且 该 对 象 也 已 经 归 和 到 合适 的 类 里 ， 因 此 Perl 
能 够 实现 多 态 性 ， 并 作出 正确 的 选择 ! 假定 在 示例 14.10 中 创建 的 $objectl 对 象 属于 Director 类 ， 
$object2 对 象 属于 Rifleman 类 ， 而 $object3 则 属于 BasketballPlayer 类 。 


























S$object1l->shootyevraluates to Director::shoot(S$object1) ; 
S$object2->shootyevaluates to Rifleman: :shoot ($object2) ; 
$Sobject3->shootyevraluates to BasketballPlayer::shoot(S$Sobject3) 


示例 14.10 


(人 Poais cs eo) 
业 Package Cat: 
匀 Sub newfi{ oj ee 
my S$Sclass=Shitft: 
my $Saqaptzr={}:; 
1 光 玫 癌症 二 交大 
SuUb set attributes1i heSsseeaess 
my S$SselEt= Shift; 
4 S$Sselft->{f"Name"}="SylLlVester"; 
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必定 OO 全 SEEie is 
S$Sself->{n"Type"}j="Siamese":; 
S$Sselftf->{f{f"Sex"}="Male":， 

电 sub get attributes1 
my $selft = ShitEtt;: 


本 
EPE ES 有 EECSENTTE 
站 0 


while(($keyvS$value)=each( gsS$self)) 1{ 
二 
】} 
ER 

(人 ELESR 已 O5 RPRI) 

6 Package Dog: 

芭 Sub newi{ 站 OSIEEOE 
Ti 
my $qptr={j}; 
es SEENE 

} 

8 SuUb Set attributes1 
my S$SSselft= Shift; 
my(Sname，S$Sowner，S$Sbreed)=QG :， 

IO S$Sself->{"Name"}l="Sname"7 
S$SselLf->{f"owner"}j="S$Sownez'" 
S$selftf->{f"Breeda"}="S$breeaq" 

} 

11 sub get attributesl{ 

SEE 三 SEEE 

站 

全 让 本 人 向 靖 ae 全 局 二 EN 

while((S$keyrS$value)= each( gsS$Sself) ){ 
站 

】 


1 人 0 


0 


. 这 是 模块 Cat,pm 中 对 一 个 名 叫 Cat 的 类 的 包 声 明 。 

.Cat 类 的 构造 国 数 方法 名 为 new。 本 行 会 把 一 个 Cat 对 象 妆 和 人 到 类 中 。 

. 访问 方法 set_attributes， 定 义 Cat 对 象 的 数据 属性 。 

. 使 用 对 象 指针 $ref 给 Cat 对 象 赋予 一 个 键 / 值 对 ， 以 便 指 定 它 的 名 字 。 

. 使 用 另 一 个 访问 方法 get_attributes 显示 Cat 对 象 。 

在 另 一 个 文件 Dog.pm 中 ， 对 一 个 名 叫 Dog 的 类 提供 包 声 明 。 

. 与 Cat 类 一 样 ，Dog 类 也 有 一 个 名 叫 new 的 构造 国 数 。 本 行 会 把 一 个 Dog 对 象 归 和 到 类 中 。 
. 访问 方法 set_ attributes， 定 义 Dog 对 象 的 数据 属性 。 

9. 从 驱动 程序 中 传递 Dog 对 象 的 属性 ， 并 赋值 给 @_ 数 组 。 

10. 使 用 对 象 指 针 $ref 给 Dog 对 象 赋予 一 个 键 / 值 对 ， 以 便 指 定 它 的 名 字 。 
11. 与 Cat 类 一 样 ， 使 用 另 一 个 访问 方法 get_attributes 显示 Dog 对 象 内 容 。 





oo ~ 修了 wmD 襄 一 
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ES EPE 


CemSeenoe ES 而 egasmn 贡 全 SEE amolis 汪 人 ROW 
#1V/bin/Pez1l 


孔 Use Cat: # Use the Cat.pm moaule 

色 use Dog: # Use the Dog.pm moaule 

司 my S$dqogref = Dog=>new:; # PoIymorPPpIsm 
4 my S$Scatreft= Cat->new” 


到 eee > SEE 本 EUEeSIRSVEe MEUCTeSOEIUIE ER 
6 本 EUEES # Po7IymorPhism 


吕 Sogref= 二 ostEEa 世 蕊 2 LESSF 
8 Secatref=>ostEatEEzbmss 


ouEsway) 

民生 怀 买 广 入 王 买 买 入 和 王 买 买 入 生生 王 往生 科 
AI apout Rover 
Omwner Is Mr vones . 
BFreeaQ 5 MUtEL. 

Narme Is Rover， 

民生 怀 买 广 入 和 王 买 买 入 和 王 买 买 入 生生 买 往往 习 


Sex Is Malye. 

玉 Pe 本 3 mESIEE 
全 
Name 工 5 SyJIvester. 


.use 指令 负责 加 载 Cat.pm 模块 。 





] 
2.use 指令 加 载 Dog.pm 模块 。 现 在 程序 便 可 访问 这 两 个 类 了 。 
引 


w 上 


Bo = 


P 


. 调用 new 构造 国 数 。 其 第 一 个 参数 是 类 名 Dog，Perl 会 将 其 翻译 为 Dog::new(Dog)。 返 回 


的 是 指向 Dog 对 象 的 引用 。Perl 知道 这 个 引用 是 属于 Dog 类 的 ， 因 为 已 经 在 构造 国 数 中 对 
它 完 成 了 归 入 〈bless) 处 理 。 创 建 Dog 对 象 的 实例 。 

调用 构造 国 数 方法 new, 并 把 类 名 作为 第 一 个 参数 传递 给 它 。 返 回 指 癌 Cat 对 象 的 引用 。Perl 
会 将 方法 调用 翻译 为 Cat::new(Cab)。 上 述 两 个 类 都 用 到 了 new 函数 ， 但 由 于 Perl 知道 该 方 
法 各 自 所 属 的 类 ， 因 此 始终 能 够 调用 正确 的 new 国 数 。 这 就 是 多 态 性 的 一 个 例子 。 





.有 了 指向 对 象 的 引用 后 ,通过 该 引用 调用 访问 方法 (实例 方法 )。Perl 会 把 $dogref->set_attributes 


翻译 为 Dog::set attributes( $dogref, "Rover", "MI. Jones", "Mutt" ) 。 

这 一 次 ， 调 用 cat 对 象 的 set_attributes 方法 。Cat 类 会 设置 cat 的 属性 。 
调用 get attributes 方法 显示 Cat 类 的 数据 属性 。 

调用 get_attributes 方法 显示 Dog 类 的 数据 属性 。 


. 这 里 也 可 使 用 间接 方法 调用 new 构造 函数 ，new Dog。 


和 -> 标记。 箭头 -> 语法 一 般 用 在 拥有 多 态 性 、 动 态 绑 定 和 继承 行为 的 面向 对 象 程 序 中 。 这 


里 也 可 以 使 用 :: 语法 ,但 后 者 更 不 灵活 ， 而 且 如 果 不 使 用 条 件 语 名 的 话 还 会 出 问题 。 下 面 的 示例 中 
展示 了 :: 语法 的 缺点 。 如 果 使 用 面向 对 象 的 语法 ， 就 不 会 出 现 这 些 问题 了 。 
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示例 14.12 


让 了 有 EC 二 
PackKaoge 帮 Eai 世 - 
Sub newti 此 国志 生起 人 
yaSiS 汪 三 本 SRS 
7 SFefE 三) 
ES 
) 
SUoSeEESeEeneoEeSi # GIivrin9 the Cat Some attriputesv 
# aa name ana a voice 
TS 二 SEE 卜 7 
$selLf->{f"Name"} = "SylLvestezr" ; 
$selLf->{f"TIalk"}= "Meow PUTILIIEIELE... .1"; 
】} 
Sub SPpeak { # Retrievina9 the Cat's attrIiputes 
Tiy 划 SSE 三 汪 SE 疏 7 
Pint "$selLIf->{fTalk} I'm the cat called S$SselLf->{Namel.N\n" 


# Thpe Dog cJass 
Package Dog: 1 ooceeeeAGONS 
Sub newti 

TYESe 汪 ER 天 三 昌 S 冲 全 

1 

ESDEESISESILASE SR 是 SCISIEE)E 


} 


SUoEESeEESEEneUEe SI # GIivin9 the Dog9 some attrIzpbputes 
证 SiSed 中 三 本 Sa 
$selLfEf->{f"Name"} = "Lassie" : 
向 ETE 人 之 二 吕 枚 SEE 

} 

Sub speak { # Retrievin9 the Dog9g's attriputes 


my S$SselEt = 三 Shitt; 
Print "$SselLf->{f'Talk'} I'm the dog called $Sself->{f'Name'j}.N\n" 


1/bin/per1l 

see 

7TPISs exampJe aemonstratces Why to Use Lpe opbject=-or7enteQw 
EEC ESSDino 
ar9uments to metnpnoas . 








Se 记 a 纪 
use Dog:; 
Smydog = new Dodg' 1 
Smycat = new Cat/， 让 CE 是 Wi 


SmwyaaoE SEEaLEEEIOUESE 二 ES 2CcssSTe DaSS 
Seaiee se 本 SEE 着 故人 eesmaeeSssEEeaSs 


站 S$mydog->sPeak: 
匀 S$Smycat->sPeak 


司 PEint "NMnNow we make a mistake in passing arguments.NXnNxn" 


346 苞 14 章 





4 Cat::speak ($mydog) ; # Per] 9oes to the Cat CIJass to fna tphe 
# metphoa，even thougnp attripbputes have DeeDn 
# set For the ao9'/ 


ou 
1 Bow Wow woor Woorf.... 工 页 the ao9g calJea Iassie. 
2 EGG 生 Re 醒 C3 本 2 玫 汪 全 必定 es 人 ee 


3 Now We make aa mIstake nm Dass7zng acuments . 


4 Bow omw woof woof....， TIm tphe cat callea Tassie， 
解释 
1. 以 面向 对 象 方式 调用 speak 方法 ， 保 证 了 Perl 能 将 该 方法 与 归属 类 绑 定 在 一 起 。 
将 指向 Dog 对 象 的 引用 作为 第 一 个 参数 传递 给 speak 方法 。Perl 会 把 它 翻 译 为 Dog::speak($mydosg)。 
Perl 会 在 编译 时 确定 使 用 的 类 ， 因 此 在 调用 speak 方法 时 能 把 它 绑 定 到 正确 的 类 上 面 去 。 

2. 将 指向 Cat 对 象 的 引用 作为 第 一 个 参数 传递 给 speak 方 法。 Perl 会 把 它 翻 译 为 Cat:speak(Smycat)。 

3. 下 面 的 代码 会 把 dog 引用 传递 给 Cat 包 。 如 果 使 用 面向 对 象 的 方法 ， 则 不 会 出 现 这 种 错误 ， 
因为 Perl 始终 能 确定 方法 所 属 的 类 ， 并 调用 正确 的 方法 。 该 特性 称 为 多 态 性 或 运行 时 绑 定 。 

4. 通过 使 用 :: 标记 ，Perl 会 在 运行 时 识别 正确 的 类 ， 并 使 用 Cat 类 中 的 speak 方法 ， 即 传送 的 
是 指向 Dog 对 象 的 引用 。 








14.2.9 析 构 函数 和 垃圾 收集 


Perl 维护 了 对 大 量 对 象 引用 的 跟踪 信息 ， 并 在 引用 计数 达到 0 时 自动 销毁 该 对 象 。 在 退出 程序 
时 ，Perl 会 销 女 与 程序 相关 联 的 每 一 个 对 象 ， 从 而 处 理 无 用 存储 单元 ， 并 灵 放 其 使 用 过 的 内 容 。 因 
此 用 户 无 需 关心 内 存 清理 事宜 6。 不过， 用 户 也 可 在 程序 中 定义 DESTROY 方法 ， 以 便 在 销毁 对 象 
前 控制 该 对 象 。 


示例 14.13 


(The Class) 
1 Package Enmployee7 
Sub newti 
my ECISISS 三 全 
入 下 局 在 二 由 上 5 
全 
return Sref， 
































】 
2 Sub DESTROY1L 


my S$self = shift: 
电 Pint "EmPployee $selLlf->{Name} is being destroyed.N\n" : 


meiSecnietny 





加 ”如果 使 用 了 自 引 用 的 数据 结构 ， 则 读者 必须 负责 破坏 该 结构 。 
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SET 
Usemiocnecass 
Use EmPLloyee: 
my S$SemPl = EmPLloyee->new; 上 # Create the ob7yect 
my S$emP2 = EmPloyee->new/ 
S$emp2->{"Name"}="Christian Dobbins" 
TENENESETO2EONSITIEDNNLE 
CSSESE 古 ETECEE 





my $SemP3 = EmPloyee->new; 上 # Create the ob7yect 


Semp1->{"Name"}l="Dan Savage": 
Semp3->{"Name"}="NWillie Rogers" 


Print "Here are our remaining employees:Nxn"i; 
TENENESEmETLL= 过 让 Name Nm 
PEint 7TNENtSemp3->{('Name' jlNnn7 


(ESGIE) 


DSS 


五 mmPJoyee Christ7amn DoppbpIins 215 bein9 aestroyea. 
ee 本 FS 人 古 有 WOYeeSs 


Dan Sava9e 
JizJIJIIe Ro9ers 


PEmJoyree Dan Savrage 1 bein9 aestroyea. 
BEmPJoyee WiJI7ie Rogers Is belin9g aestroyea. 


刷 


P 一 


评 者 或 所 谓 的 智者 认为 , 这 种 缺乏 私有 性 的 机 制 违背 了 国 


G 八 ni 上 


.声明 Employee 类 ， 并 定义 其 构造 国 数 方法 。 
. 当 不 再 需要 某 个 Employee 对 象 时 ， 便 会 调用 其 DESTROY 方法 ， 并 打印 本 行内 容 。 第 6 行 


出 现 的 对 象 是 在 一 个 代码 块 中 定义 的 。 当 退出 该 代码 块 时 ,该 对 象 也 应 予以 销毁 。 当 程序 结 





束 时 ， 另 一 个 对 象 也 将 销毁 。 


. 每 当 对 象 得 以 销毁 时 ， 打 印 本 行内 容 。 
. 这 里 将 使 用 Employee 模块 。 
. 通过 调用 构造 国 数 方法 ， 创 建 一 个 新 的 Employee 对 象 ， 得 到 其 对 象 引 用 $emp1l 。 
在 同一 代码 块 中 创建 另 一 个 Employee 对 象 。 为 该 对 象 赋予 一 个 “名 字 风 即 Christian Dobbins 。 








由 于 它 是 一 个 “my” 变 量 ， 因 此 其 作用 域 是 受 限 的 。 也 就 是 说 ， 在 退出 该 代码 块 时 ， 这 个 对 
象 也 将 予以 销毁 。 这 时 便 会 调用 DESTROY 方法 ， 将 它 清 除 出 内 存 。 



































也 提供 了 很 多 种 解决 途径 。 其 中 之 一 就 是 使 用 亲 包 〈closure )。 





7. 通过 调用 构造 国 数 方法 ， 创 建 第 三 个 Employee 对 象 ， 它 由 $emp3 来 引用 。 

8. 为 Employee 对 象 赋予 键 / 值 对 。 
14.3 ”匿名 子 例 程 、 闭 包 和 私有 性 

迄今 为 止 ， 本 书 所 介绍 的 这 些 面向 对 象 示例 都 存在 着 一 个 问题 : 只 要 用 户 拿 到 了 指向 对 象 的 引 
用 ， 他 就 能 随心 所 欲 地 操纵 该 对 象 。 即 使 只 希望 用 户 访问 模块 提供 的 方法 ， 我 们 也 没有 办 法 阻止 他 
直接 访问 对 象 中 的 数据 ， 因 为 Perl 并 没有 为 类 数据 提供 专门 的 私有 





区 域 (private section )。 有 些 批 


ij 向 对 象 的 理念 。 不 过 , 针对 这 个 问题 , Perl 
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14.3.1 什么 是 闭 包 


Larry Wall 把 闭 包 描述 成 只 是 一 个 带 有 数据 (attitude ) 的 匿名 子 例 程 S。Barrie Slaymaker 则 把 
闭 包 称 作 “inside-out objects”: 对 象 是 附 有 子 例 程 的 数据 ;而 闭 包 则 是 附带 有 一 些 数 据 的 子 例 程 。 
闭 包 是 一 类 匿名 的 子 例 程 ， 即 使 在 定义 “my”( 词 法 ) 变量 的 代码 块 之 外 调用 ， 看 上 去 已 经 不 
可 能 访问 得 到 这 些 变量 的 时 候 , 它 也 能 成 功 访问 这 些 “my” 变 量 。 这 类 子 例 程 会 紧 紧 盯 住 它 所 引用 
的 词法 变量 。 每 当 通过 引用 调用 该 子 例 程 时 ， ee 个 全 新 并 且 同 名 的 词法 











变量 。 该 词法 变量 将 持续 有 效 ， 直 到 不 再 有 其 他 引用 指向 


示例 14.14 


ESeEn 


也 my S$Sname="Tommy": 

受 { my Sname = "Grandfather" # 工 eExzIcal variables 

屋 my S$age = 86:; 

4 S$ref = sub{ return "Sname is S$age.N\n": } #_ anonymous SuDproutine 
】} 

呈 ENOSNSTEETIE 吉 攻 

6 Pint &{S$Srefl}; # Ca to subroutine outsiae the PbIocK 

(GESUE) 

号 SEE 

6 GFanarather II5 96 


解释 
1. 将 词法 变量 $name 赋值 为 Tommy。 访 变量 从 本 行 到 文件 末尾 都 是 可 见 的 。 


2. 进入 代码 块 。 将 一 个 新 的 词法 变量 $name 赋值 为 Grandfather。 该 变量 的 作用 域 是 从 本 行 到 


代码 块 未 尾 。 
3. 定义 另 一 个 词法 变量 Sage。 该 变量 的 作用 域 是 从 本 行 到 包含 它 的 代码 块 末尾 。 


定义 一 个 匿名 子 例 程 ， 该 子 例 程 与 两 个 词法 变量 “my 变量 ) $name 和 $age 位 于 同一 代码 块 
中 。 把 子 俩 程 的 地 址 赋值 给 Sref。 即 使 在 代码 块 外 面 调用 , 该 子 例 程 也 能 访问 这 两 个 变量 。 
该 子 例 程 可 以 称 作 是 一 个 朵 包 〈closure )， 因 为 它 引 用 的 变量 将 一 直 定 在 里 面 ， 直 到 不 再 需 





要 为 止 。 

5. 变量 $name 的 值 Tommy 现在 是 可 见 的 。 

6. 通过 指针 $ref 调用 匿名 子 例 程 。 即 使 看 上 去 已 经 不 在 其 作用 域内 ， 该 词法 变量 也 还 
之 所 以 该 变量 还 在 作用 域内 ,是 因为 该 引用 还 需要 访问 它们 。 除 非 不 再 引用 这 些 
Perl 是 不 会 清除 它们 的 。 


示例 14.15 


ET 
# CIosure 
下 SEEUNE II 
包 my SSSIGOF 三 本 Si 全 世 2 0 





折 ”Wall 工 .,，Christianson, 工 , and Orwant, J.，Progra11a1011g Per 31d ed. ，O'Reilly 儿 Associates: Sebastopol， 


CA, 2000, p. 262. 
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司 my S$SreEf = sub 1{ # Poinpter to an anonymous SuUuproutine 
4 my S$object=shitfty” 

与 cns ee 是 Sci 性 志 SOON 人 人 天 生起 宝生 
# In scope 
] 7 

6 return S$SrefE: # Returns aa cJosure 

1 
以 my $SP1L=pPaint ("zedq") ; #。 Creates a cJosure 

my SP2=Paint ("blue")” 大 Creates a CJosure 
8 SP1=>("fowec") 7 大 Ca71 to anonymous SUPFOULIDne 
9 SEE 
GE 


Baint the 五 we zea， 
Paint the SKY Pue. 


1. 定义 子 例 程 paint(O。 
2. 将 从 @_ 数组 移出 的 值 赋 予 词法 标量 $color。 
3. 将 标量 $ref 赋值 为 一 个 匿名 子 例 程 的 地 址 。 





4. 匿名 子 例 程 从 @_ 数 组 中 获取 一 个 参数 。 在 本 例 中 ， 当 第 一 次 调用 子 例 程 时 ， 对 象 的 值 是 


“flower”;， 第 二 次 调用 时 ， 值 将 变 成 “sky”。 见 第 8 行 和 第 9 行 。 


5. 本 行 提 供 了 一 个 财 包 的 实例 。 词 法 变量 $color 在 这 里 仍 位 于 作用 域内 。 即 使 子 例 程 paint() 
已 经 调用 并 执行 完毕 ， 词 法 变量 $color 也 不 会 离开 其 作用 域 ， 因 为 匿名 子 例 程 将 一 直 持 有 它 。 


6. 即便 子 例 程 paintO 已 经 调用 并 执行 完毕 ，$color 在 这 里 仍旧 是 可 用 的 。 





7. 子 例 程 paintO 将 返回 一 个 指向 匿名 子 例 程 的 引用 。 该 引用 构成 了 团 包 ;， 它 会 一 直 持 有 词法 变 


量 〈 在 这 里 就 是 Scolor)， 直 到 不 再 引用 这 些 变量 。 


8. 以 不 同 的 参数 两 次 调用 同一 个 paintO 子 例 程 。 每 次 调用 paintO 子 例 程 时 ，Perl 都 会 为 它 创 








建 一 个 新 的 词法 变量 $color, 并 赋予 该 变量 独立 的 值 。 变 量 $color 会 包含 在 返回 的 那个 财 包 





中 。 因 此 $p1 将 含有 一 个 $color, 并 初始 化 为 "red 而 $p2 则 含有 另 一 个 完全 不 同 的 $color， 


并 将 它 初始 化 为 “blue”。 


9. 指针 $pl 和 $p2 是 指向 第 3 行 所 创建 的 匿名 子 例 程 的 引用 。 它 们 各 自 形成 了 一 个 “ 困 包 ”， 
分 别 含 有 在 paint(O 中 定义 的 变量 $color, 并 可 以 各 自 访 癌 该 变量 在 本 闲 包 中 的 副本 , 直到 变 


量 不 再 被 引用 为 止 。 


14.3.2 闭 包 和 对 象 


团 包 提供 了 一 种 封装 对 象 数据 的 途径 ， 从 而 避免 用 户 直接 访问 到 对 象 的 内 容 。 为 此 ， 可 以 定义 
一 个 涉及 对 象 数据 的 构造 国 数 ,并 提供 一 个 充当 闭 包 的 匿名 子 例 程 。 该 匿名 子 例 程 将 是 set 和 get 对 
象 数据 的 惟一 途径 。 这 里 不 用 归 入 〈bless) 对 象 数据 《〈 即 将 匿名 散 列 归 人 到 类 中 )， 而 是 需要 归 入 














私有 数据 的 惟一 途径 。 归 入 后 的 匿名 子 例 程 将 有 权 访 问 对 象 中 的 私有 数据 ， 


























天 











匿名 的 子 例 程 。 这 时 返回 的 是 指向 匿名 子 例 程 的 指针 ， 该 指针 将 成 为 访问 那些 在 构造 函数 中 定义 的 


为 它 是 在 相同 的 词法 





作用 域内 予以 定义 的 。 它 会 把 数据 和 子 例 程 封装 到 一 起 ， 即 获得 一 个 困 包 。 一 旦 匿名 子 例 程 能 够 引 





用 对 象 数 据 的 话 ， 就 表明 这 些 数据 是 可 供 访 问 的 了 。 
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示例 14.6 将 演示 如 何 按照 如 下 步骤 使 用 困 包 封装 对 象 数据 。 

1. 为 Student 类 定义 一 个 构造 国 数 方法 。 该 构造 函数 将 定义 一 个 负责 为 每 个 新 Student 对 象 设 
置 属 性 值 的 空白 匿 名 散 列 ， 一 个 负责 跟踪 学 生 总 数 的 全 局 类 变量 ， 以 及 一 个 负责 封装 那些 等 待 赋 值 
与 检索 的 对 象 数据 的 匿名 子 例 程 。 归 入 操作 将 返回 一 个 指向 匿名 子 例 程 的 指针 。 

2. 为 该 对 象 定义 一 些 实例 方法 , 用 于 设置 和 读 取 对 象 数 据 。 这 些 方法 不 会 直接 返回 指向 对 象 数 
据 的 指针 ， 而 是 返回 指向 匿名 子 例 程 的 指针 。 它 们 访问 对 象 数据 的 惟一 途径 是 以 合适 的 参数 调用 匿 
名 子 例 程 。 

3. 定义 析 构 函数 〈destructor) 方法 ， 负 责 在 销毁 每 个 Student 对 象 时 显示 其 内 容 。 


示例 14.16 


backageaSstudgsnme 





























之 Sub new { 上 Constructor 
myScniaSS 生 三 是 Sina 全 t 
汪 my $Sdata={]}:， 
4 SUF 硬 SSEUqETTEEs 
号 my S$Sref = sub { 上 # CIosure 
6 my ($access_tyPe，S$Skey，S$Svalue) = @ :; 
ESaCecSSSEEVEeEeoEese ii 
S$data->{S$Skeyl = $value; 上 # Saata stiJ] avalilaple here 
1 
SlisnflsaccsssEEEyvcsEequgeo) 识 
zeturn S$Sdata->{fSkeyl:， 
】} 
SisusSScessSSsEEV7EeaeS RS Vi 
zeturn (keys g%5{S$Sdatal) : 
1 
8 SlisnftSsaccssseEvpssgqgosstcoy )i 吧 
久 SEEeies 一 
zetuznm S$Sstuaents:; 
】 
elsel 
Qie "Access tyPe should be set or get": 
10 Print "New studaent created，we have "，++S$Sstudents， 
ESRNni 
站 bless ($ref，$class); # blIess anonymous Subroutine 


1 
1 
2 Sub seti{ 
电 my ($selLf,S$Skey,S$value) = 6 ; # SSselI5E references anonymous Supb 
4 S$selLf->("set"v,S$key,S$Svalue) ; 
} 
5 Sub gett 
my ($self,Skey) = @ : 


EECUTTESISEIEETOEIE SEE 





} 
16 sub qisPlLlayt 
my S$Sselft = Shitt; 
my Q@keys = $self=>("keys") ; 
Qkeys=reVverse(eQkeys) : 
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foreach my S$key (Qkeys){ 

my $value = $selLlf->("get",S$Skey) ; 

侣 下 1 已 从 国生 王 入 SS 区 二 20ENIASSETIESAUSEEVRSVSIUDE 三 -> 
】} 





1 
} 
17 sub DESTROY1 
7 证 SiSE 汪汪 全 蕊 二 
ETOOTERODTIEEEE IOTTIOECDE ES EECEoORDSRNOD 
ESEUGETESEeTLSEE 
】 
下 5 
1. 声明 Student 包 。 
2. 使 用 构造 国 数 创 建 其 对 象 。 
3. 声明 一 个 指向 匿名 散 列 的 引用 $data。 该 引用 将 用 于 给 对 象 属 性 赋值 。 
4. 使 用 全 局 类 变量 $student 统计 本 脚本 创建 的 Student 对 象 数 目 。 
5. 这 里 是 一 个 朵 包 ， 即 指向 匿名 子 例 程 的 一 个 引用 。 该 子 侈 程 将 归 人 到 类 中 ， 并 负责 写 入 或 读 
取 Student 对 象 中 的 数据 。 
6 县 计 例 程 接受 世人 会 数 生 起 田 问 关 型 网 站 值 可 以 2 有 Set CE EC 式 是 destroy 


一 个 对 象 关键 字 ; 还 有 一 个 对 象 值 。 


. 如 果 访 问 类 型 是 “set” 的 话 ， 即 为 对 象 数据 设置 相应 属性 值 。 在 调用 set(0) 方法 时 ， 它 首先 





会 获得 一 个 指向 匿名 子 例 程 的 指针 ， 然 后 在 第 15 行 调用 它 。 


8. 如 果 访 问 类 型 是 “destroy” ， 则 调用 DESTROY 方法 ; 即 ， 让 一 个 Student 对 象 退出 作用 域 。 
9. 每 当 移 除 一 个 对 象 时 ， 自 动 把 类 变量 $student 的 值 递 减 去 1。 


0 


加 


14. 


1 


16. 


下 遍 


由 5 





每 当 创建 一 个 Student 对 象 时 ， 自 动 把 类 变量 $student 的 值 递增 1。 


. 匿名 子 例 程 由 $ref 引用 。 将 它 归 和 到 Student 类 。 
2 
] 


该 方法 用 于 把 数据 放 入 对 象 中 ; 即 为 Student 对 象 的 属性 赋值 。 

其 第 一 个 参数 $self 是 一 个 指向 那个 归 和 人 到 类 中 的 匿名 子 例 程 的 指针 ; 第 二 个 参数 是 键 ; 第 

三 个 则 是 值 。 该 对 象 的 数据 已 经 “ 吉 括 ”在 匿名 子 例 程 中 。 

匿名 子 例 程 在 调用 时 会 接受 三 个 参数 ， 分 别 是 : 访问 类 型 〈 即 “set”)、 一 个 键 、 还 有 一 个 

将 赋予 对 象 的 值 。 在 为 Student 对 象 “set” 数 据 时 ， 可 供用 户 使 用 的 惟一 途径 就 是 通过 上 述 

匿名 子 例 程 。 它 将 “一 直 可 用 ”， 直 到 不 再 有 任何 引用 指向 它 为 止 。 

get 方法 将 调用 上 述 闭 包 , 并 提供 一 个 访问 类 型 “get” 和 一 个 键 。 程 序 会 把 一 个 值 返 回 给 

调用 者 。 

该 方法 用 于 在 Student 对 象 中 获取 数据 。 它 会 调用 第 5 行 提供 的 闭 包 , 并 提供 一 个 键 ， 并 据 

此 获得 对 象 的 值 。 这 是 从 对 象 中 “get” 数 据 的 惟一 途径 。 

该 方法 将 显示 所 有 的 对 象 数据 ， 为 此 它 首先 会 调用 闲 包 ,获取 对 象 散 列 中 的 所 有 键 ， 然 后 

在 一 个 foreach 循环 中 根据 键 列 表 获 得 所 有 对 象 数据 。 

当 需 要 将 一 个 对 象 移 除 出 内 存 时 《譬如 在 该 对 象 退 出 其 作用 域 ， 或 程序 执行 结束 时 )，Perl 
会 调用 其 特殊 的 DESTROY 方法 。 该 方法 在 调用 时 将 依次 调用 各 个 闭 包 ,把 访问 类 型 “destroy” 

发 送 给 这 些 闭 包 。 详 见 第 8 行 。 








模块 用 户 。 
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示例 14.17 


US ET 
1 se Studaent 7 





ZiPUET ESEUQsmEE>meW 人 GEEEeE7 古 ae 交 5 
SETF2 = SEOQentE>newi() 
S$ptr3 = Studqent=>new()， 
3 Sptr1l->set("Name"，"Jody Rogers") : # Set aata for obyect 


ES CITSL EN 


NE 
后 本 二 人 ED 


SPtr3=->set("Name"，"Tina Savage") : 
全 

4 $ptr1l->dispPlay(); # Get al1 daata for object 
局 本 和 三才 
ER 全) 时 


5 Pzint "XnThe major for "，S$SpPtz1l->get("Name") ， 
Ma 可 GRANT 


EU 

New stuaent createa，mwe have 1 Stuaents . 
New stuaent createa，mwe have 2 stuaents . 
New stuaent createa，mwe have 3 stuaents . 


Student=CODE (0x223420) Name 本 swyERegSeS 
Studqent=CODE (0x225420) Ma]jor :IaW 


Stuadent=CoDRI(0OxTL83L92ci Nane :Christaan Dobbins 
SEEUdenE=CODRIUNRTSETO2 CMS DEEsmas 


Stuadent=COoDE (0x1831a04) Name :Tina Sa7age 
Stuadaent=COoDE (0x1831a04) Major:Artt 





The majocor for Joday Rogers 1s Law.。 


Goesogecnnog es 世人 eE 
Stuaents zemaln: 2 
oliscteEocnng 硬 cn 二 CS eeES 
Stuadents zemaln: 二 
eqJiscteEocnms cn 本 避让 起 所 本 SF 
Stuadents zemaln: 0 


三 二 二 二 二 二 这 的 王 乓 全 让 本 | 避 生 二 计生 全 半生 辣 同 三 三 二 年 二 生计 二 二 放生 汪汪 考 考生 二 天 二 生生 汪 放生 下手 生生 寺 
遂 避 一 扯 区 部 人 仁和 
UUSEESEenmie 


SPptzl = Stuaent=->new()7 上 Create Dew Stuaents 

SEEz2E= SEOenmEE=>mewO)E 

SPptz3 = Stuaent=->new():; 

SPtrl->("Name"，"Jody Rogers"):; # DIrect Access Not AIIomeda 
ISSNSNmEDOJSSY ROSS 
本 
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New stuadqent createdq，we have 1 stuaqents . 

New stuadqent createdq，we have 2 stuaqents . 

New stuadqent createdq，we have 3 stuadqents . 

Access tyPe should be set or get at Student.Pm 1Line 25. 


14.4 继承 


继承 是 指 新 类 可 以 从 已 有 的 类 中 继承 其 方法 。 此 外 ， 为 了 实现 类 的 定制 ， 还 可 为 新 类 诡 加 代码 
或 修改 已 有 的 代码 ， 而 不 必 再 重复 实现 已 有 的 工作 。 继 承 的 原则 是 把 一 个 类 分 为 多 个 共享 相同 特性 
的 子 类 ， 但 每 一 个 子 类 可 以 提供 自己 的 附加 特性 ， 并 能 将 其 借用 的 东西 提炼 成 更 为 精确 的 特性 。 这 
并 不 是 什么 新 提出 的 概念 ， 在 学 习 植 物 学 或 动物 学 时 ， 人 们 就 把 生物 分 为 门 、 界 、 类 、 目 、 族 、 种 
和 变种 。 此 外 ， 当 通过 国 数 把 程序 的 常用 要 素 结 合 到 具体 任务 中 时 ， 也 能 看 到 这 种 思路 。 
在 面向 对 象 的 编程 中 ， 当 编写 并 调试 完成 一 个 类 之 后 ， 可 以 将 它 保存 到 库 中 。 甚 他 程序 员 此 后 
便 能 重用 它 。 程 序 员 还 可 为 现 有 的 类 汪 、 加 特性 和 功能 ， 而 不 必 重 新 编写 所 有 的 代码 。 这 些 都 是 通过 
继承 机 制 实现 的 ， 即 从 已 有 的 类 派生 出 新 的 类 。 目 前 流行 的 OOP 编程 语言 都 提供 了 很 多 可 供 重 复 
使 用 的 软件 模块 以 及 负责 组 织 这 些 软件 的 类 库 。 下 面 我 们 将 介绍 Perl 是 如 何 实现 继承 机 制 的 。 













































































14.4.1 _ @ISA 数组 和 调用 方法 


@ISA 数组 中 列 出 的 类 〈 包 ) 表明 了 当前 类 的 父 类 (parent class) 或 基 类 〈base class)。 它 是 
Perl 赖 以 实现 继承 的 方式 。@ISA 数组 中 含有 类 〈 包 ) 的 列表 , 当 Perl 在 当前 类 〈 包 ) 中 无 法 找到 所 
需 方 法 时 , 便 会 在 该 数组 列 出 的 类 中 查找 。 如 果 还 是 找 不 到 的 话 ,Perl 还 会 搜索 并 调用 AUTOLOAD 
国 数 。 如 果 仍 然 找 不 到 的 话 ，Perl 会 在 预定 义 的 UNIVERSAL 包 中 进行 最 后 的 搜索 。UNIVERSAL 
类 是 所 有 包 的 全 局 基 类 ， 也 是 类 继承 机 制 中 位 于 最 顶层 的 类 。 

在 通常 的 子 例 程 调 用 过 程 中 , 并 不 会 搜索 @ISA 数组 。 但 如 果 用 户 以 调用 方法 的 语法 来 调用 子 
程序 的 话 ， 程 序 就 会 去 搜索 @ISA 数组 。 


示例 14.18 


#1V/pin/VPper1l 
# 五 ampJIe of attemptin9 Inheritance without upaatIin9 
# 上 pe 6@TISA array 
1 1{ Package GrandPa: 
Sname = "Gramps": 
Sub gzeetme 1{ 
Print "Hi $Schild: :name I'm Your S$name from Package GrandPa.Nn" 


】 



































[ 


4 1{ Package Parent:， 
# 7TpPpIzs Packag9e Is empPty 


5  { Package Child' 
Sname = "Baby"7 
本 DFTERLHTTTOESTSTE EECmalia 居 REKaoE 刘 TEN 


Le 
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8 Parent->greetme () ; # Use methoa invocatioD SyYDtaX 


OU 
以 间 
8 can't locate object methoa "9reetmne"” via packa9e "Parent" at 1Inher2 IIne 23. 





解释 
1. 声明 包 Grandpa。 
2. 在 包 Grandpa 中 将 标量 $name 赋值 为 Gramps 。 
3. 定义 子 例 程 greetme。 当 调 用 时 , 它 会 执行 Print 语句 。$Child::name 能 够 引用 包 中 的 标量 $name。 
4. 声明 包 Parent。 它 是 一 个 空 
5. 声明 包 Child。 该 包 会 尝试 调用 其 他 包 中 的 方法 。 尽 管 这 里 并 没有 用 到 对 象 和 方法 ， 但 这 个 


示例 主要 说 明了 ， 如 果 从 这 个 包 不 知道 的 类 继承 方法 的 话 ， 会 发 生 怎样 的 情况 。 
8. 当 Perl 在 包 Parent 中 找 不 到 方法 greetme 时 ， 便 会 打印 错误 信息 。 


示例 14.19 


扫兴 E 
# 五 ample of attemptin9 Inheritance py upaatin9 the 6T5SA array 
并 { Package GrandPa: 
Sname = "Gramps"; 
2 Sub 9reetme 1{ 
Print "Hi $Schild: :name I'm Your S$name from Package GrandpPa.Nn" 





】 








电 Package Parent: 
4 QISRA=qw(GrandPa): 上 Granapa is aa packag9e In the 6T5SA array. 
井 This Packa9e 工 5 empty。 
配 Package Child:; 
Sname = "Bapy": 
6 EGRUTESTEmE 汪 EEC 和 加 靖 忆 5 直 古本 全 浊 E 天 妥 汪 下 
也 Parent->greetme () ; # Parent::9reetme() mwIi77 Fa 
GE 二 


( 
6 三 
以 SR 


解释 

1. 声明 包 Grandpa。 

2. 定义 子 例 程 greetme。 当 调用 时 , 它 会 执行 Print 语句 。$Child::name 能够 引用 包 中 的 标量 $name。 

3. 声明 包 Parent。 

4. 将 包 Grandpa 的 名 字 赋 值 给 @ISA 数组 。 现 在 , 如 果 程 序 试 图 从 Child 包 调 用 某 个 Perl 无 法 
找到 的 方法 , 便 会 尝试 在 @ISA 数组 列 出 的 Grandpa 包 里 搜索 它 。 如 果 这 是 一 个 普通 的 子 例 
程 ， 无 需 以 调用 方法 的 形式 来 调用 它 的 话 ，Perl 就 不 会 去 查找 @ISA 数组 ， 因 为 只 有 在 调用 
方法 时 才 用 得 上 @ISA 数组 。 虽 然 子 例 程 greetme 从 技术 角度 来 讲 根本 不 算是 方法 , 但 只 要 
通过 类 的 方式 调用 它 ，Perl 也 将 会 搜索 @ISA 数组 。 
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5 再 明和 所 Chiild。 

6. 从 Child 包 打印 该 行内 容 。 

7. 在 Parent 包 中 调用 类 方法 greetme。@ISA 数组 告诉 Perl， 如 果 方 法 不 在 Parent 包 内 ， 就 在 
Grandpa 包 中 进行 搜索 。 





14.4.2 $AUTOLOAD 、sub AUTOLOAD 和 UNIVERSAL 


如 果 无 法 在 当前 包 或 @ISA 数组 中 找到 子 例 程 〈 或 方法 ) 的 话 , Perl 就 会 调用 AUTOLOAD 国 
数 。 在 AUTOLOAD 数 中 ，$AUTOLOAD 变量 会 赋值 为 遗漏 的 那个 子 例 程 的 名 称 。 所 有 传递 给 
未 定义 子 例 程 的 参数 都 将 保存 在 AUTOLOAD 子 例 程 的 @_ 数 组 中 。 如 果 把 $AUTOLOAD 变量 赋 
值 为 函数 名 ， 那 么 只 要 在 遗漏 子 例 程 的 位 置 提供 了 AUTOLOAD 国 数 ， 就 可 以 调用 该 子 例 程 。 如 果 
AUTOLOAD 子 例 程 中 用 到 了 $AUTOLOAD 变量 ， 则 用 户 既 可 以 使 用 方法 形式 的 调用 语法 ， 亦 可 
使 用 传统 的 子 例 程 调用 语法 。 如 果 所 有 淮 试 都 宣告 失败 ，Perl 还 是 无 法 找到 所 需 子 例 程 的 话 ， 程 序 
就 会 在 最 后 的 UNIVERSAL 包 (类 ) 中 查找 遗漏 的 方法 。UNIVERSAL 方法 含有 所 有 的 类 都 会 继承 
的 三 个 方法 ， 既 isa(0)、can(0) 和 VERSIONO。( 详 见 表 14-2。) 



































表 14-2 UNIVERSAL 方法 


















































方法 用 途 示 例 
isa 如 果 包 是 从 其 他 包 中 继承 而 来 的 话 ， 返 回 值 为 真 Salesman->isa("Employee"); 
can 如 果 包 及 其 任意 基 类 中 含有 给 定 的 方法 ， 则 返回 真 Salesman->can("get_data'"); 
VERSION 用 户 检 查 是 否 针对 该 版 本 加 载 了 正确 的 模块 。 在 示例 中 , Perl package Salesman; 
调用 了 _ UNIVERSAL 方法 use$VERSION = 6.1 ; 











Salesman->VERSION(6.1) 


相 必 个 交 人 辣 写 未 帮 
站 { Package GrandPa: 
Sname = "Gramps"; 
Sub greetme { 
2 Print "Hi $Schild: :name I'm Your S$name from Package GrandPa.Nn" : 


】} 


豆 本 


Package Parent: 

Sub AUTOLOAD 

rimieSOIE ES 十 吕 有 SG | 用 愉 We 

EnegonTownE 本 SEEN 

Print "The unheard of subroutine is called SRAUTOLORD . \nn" 
1 


EST 


8 { Package Child: 
Sname = "Baby"; 
9 SRAUTOLORAD=GrandpPa->greetme () ; 
0 ETIIOTERELJHORTITESTSTmERTORETEECOEESEKESSEIEEEAN 


沁 由 Parent->unknown ("Mom"， "Dad" ) : # Unaethnea supbroutzne 
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询 HI Bapy 工 ' 页 YOU Gramps Erom packa9ge Gramnapca. 
SEE 
马 Barent> Mom ana Dadag 
6 玫 OTT 和 大 万 忆 克 是 WE 本 二 二 硅 E 关 证 二 下 可 汪 
这 7Tpe unphpeara of Suproutine is callJea Parent::unKknomn . 
1. 声明 包 Grandpa， 甚 中 含有 子 例 程 。 


也 
引 


. 从 Grandpa 包 中 打印 本 行内 容 。 

. 声明 包 Parent， 它 含有 一 个 AUTOLOAD 子 例 程 。 程 序 第 11 行 会 调用 未 定义 的 子 例 程 ， 它 
含有 两 个 参数 Mom 和 Dad。 如 果 Perl 在 Child 包 中 找 不 到 该 子 例 程 的 话 ， 就 会 在 @ISA 数 
组 中 寻找 ;如果 还 找 不 到 ，Perl 便 会 调用 AUTOLOAD 函数 进行 查找 。 


4. 定义 子 例 程 AUTOLOAD 。 


(LA 


oo ~ 个 


8 


. 由 于 这 里 是 以 类 方法 形式 调用 的 该 子 例 程 ， 所 以 保存 在 @_ 数组 中 的 第 一 个 参数 是 类 名 。 其 
他 两 个 参数 则 是 Mom 和 Dad 。 

.打印 该 行内 容 ， 表 明 程 序 已 经 执行 到 这 里 。 

.$AUTOLOAD 变量 中 含有 类 名 和 匿名 子 例 程 。 

. 声明 包 Child 。 

如 果 将 子 例 程 的 名 称 赋 值 给 标量 变量 SAUTOLOAD 的 话 ，Perl 便 会 自动 调用 该 子 例 程 。 


10. 打印 该 行 ， 表 明 程 序 执行 的 顺序 。 


1 


1. Child 包 和 艾 试 访问 Parent 包 中 的 一 个 方法 。 在 Parent 包 中 并 没有 这 个 名 叫 unknown 的 方法 
或 子 例 程 ， 反 而 含有 一 个 会 在 找 不 到 该 子 例 程 时 自动 执行 的 AUIOLOAD 子 例 程 。 


示例 14.21 


业 


包 


#1V/bin/Pez1l 
{ Package GrandPa: 

Sname = "Gramps"; 

Sub greetme 1{ 

下 DISTETSE 本 9 
Gzanqpa.NXnn; 

】} 
} 
{ Package Parent: 

# ITpzs Package Is empty 
上 
{ Package Child'， 
Sname = "Baby"; 
Print "Hi I'm S$name :in the Child Package here.NXn"i; 
Parent->greetme () ; 
】} 


Package UNIVERSRAL 
Sub AUTOLORAD 1{ 
Print "The UNIVERSAL lookup package.Nn"; 
0 GrandpPa->greetme () ; 
} 


ou 
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BITI'mBapr In the chiJa Packac9e nere， 
Thpe UNIVPRSAD JookKup Packa9e. 
HI Bapy 工 ' 页 YOU Gramps Erom packa9ge Gramnapca. 


受 

习 

号 
1. 声明 包 Grandpa。 
2. 在 这 个 包 中 定义 子 例 程 greetme。 
3. 声明 包 Parent。 这 是 一 个 空 包 。 
4. 声明 包 Child 。 
号 
0 
这 





. 打印 本 行内 容 ， 表 明 程 序 执行 的 流程 。 

. 把 greetme 子 例 程 当 作 Parent 包 方 法 中 的 一 种 来 调用 。 

. 由 于 在 其 自身 的 类 或 @ISA 数组 中 找 不 到 所 需 方法 , 并 且 Parent 包 也 没有 提供 AUTOLOAD 
方法 ， 因 此 Perl 会 在 UNIVERSAL 包 中 做 最 后 的 努力 。 这 里 子 例 程 会 调用 greetme 方法 。 


14.4.3 派生 类 


正如 前 面 所 讨论 的 , 所 谓 继承 (inheritance )， 就 是 一 个 类 从 已 有 的 类 中 继承 其 方法 的 过 程 。 已 
有 的 类 又 称 作 是 基 类 (base class) 或 者 父 类 (parent class ) , 而 继承 它 的 类 则 称 作 是 派生 类 (derived 
class) 或 子 类 〈child class)。 基 类 的 所 有 功能 均 可 由 浅 生 类 继承 ,而 派生 类 的 功能 往往 会 超出 这 些 
功能 。 如 果 派 生 类 继承 自 单个 基 类 ， 则 称 为 单一 继承 〈single inheritance )。 例 如 ， 和 孩子 继承 父亲 的 绘 
画 天 赋 算 是 现实 生活 中 的 一 种 单一 继承 。 如 果 某 个 派生 类 继承 自 多 个 基 类 , 则 称 为 多 重 继承 (multiple 
inheritance)。 璧 如 小 孩 从 父亲 处 继承 了 绘画 的 天 赋 ， 同 时 又 从 母亲 那里 继承 了 唱歌 的 天 赋 。 在 Perl 
中 ， 浜 生 类 可 以 继承 基 类 《〈 包 ) 中 的 方法 ， 并 可 在 必要 时 添加 和 修改 这 些 方法 〈 参 见 图 14-4)。 

若 要 继承 一 个 类 ， 通 常 可 以 把 类 名 放 在 @ISA 数组 中 。 此 外 ， 用 户 可 以 在 @EXPORTER 或 @ 

EXRORTER_OK 数组 中 规定 可 以 导出 到 其 他 模块 的 方法 。 其 数据 本 身 则 通过 内 部 赋值 的 匿名 散 列 
中 的 键 和 值 而 实现 继承 。 这 些 变量 又 称 作 实例 变量 ， 均 在 构造 国 数 方法 中 予以 定义 。 
在 第 12 章 中 ， 已 经 介绍 了 标准 Perl 库 提 供 的 模块 和 用 户 自 己 创建 的 模块 。 为 了 将 模块 或 编译 
指示 符 放 到 程序 中 ， 用 户 可 以 以 模块 名 〈 去 除 .pm 扩展 名 ) 为 参数 调用 use 国 数 。 模 块 具有 符号 导 
出 能 力 ， 能 够 把 自身 符号 导出 到 其 他 需要 使 用 该 模块 的 包 。 特 殊 模 块 Exporterpm 负责 处 理 在 模块 
间 导 入 和 导出 符号 的 实现 细节 。 用 户 也 应 当 将 该 模块 置 入 @ISA 数组 中 。 如 果 模 块 起 到 类 的 作用 ， 
则 在 调用 其 方法 时 无 需 显 式 地 把 它们 列举 到 @EXPORT 数组 里 。 请 注意 , 在 下 面 的 示例 中 ,类 方法 
和 实例 方法 都 没有 导出 。 
























































继承 层次 结构 
















交 
(Employee.pm) 
Ge 派 千 敌 < 泊 生 其 ow 泊 朱 务 w 





























派生 类 








派生 类 








图 14-4 从 基 类 派生 出 子 类 
下 面 这 个 示例 演示 了 继承 。 示 例 14.22 是 Salesman.pm 的 使 用 者 。 调 用 程序 无 需 对 基 类 
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Employee.pm 做 任何 引用 〔〈 详 见 示 例 14.23 )。Salesman.pm 类 是 从 Employee.pm 类 派生 得 到 的 。 
Salesman.pm 类 会 “使 用 ”Employee.pm 类 。 


示例 14.22 


# Thpe Driver (user) Pro9ram 
下 use Salesman' 
2 USE 本 Se 
Use Warcnings:; 
# _ Create two salesman objects 
Print "Entering aata for the irst salesman.Nn" 
引 my $salesguy1l=Salesman->new/; 
4 $salesguy1->set_data: 
号 Print "NXnEntering data for the secondq salesman.Nn"i; 


6 my $salesguy2=Salesman->new/; 
也 $salesguy2->set_data: 


8 Pint "NMnHere are the statistics for the frst salesman.Nn"i; 

9 $salesguy1->get_data: 

10 Print "NXnHere are the statistics for the second salesman.Nn"n; 
11 8$salesguy2->get_data: 


GE) 
Tphe saJesman 工 5 an empJoyee， 
The saJyJesman can QIspIay 1ILS PropertIes. 
nterzno aata for tne 方 F5L Sayes 克 ai 
Enter the mname of the empJoyee。， Russ Savage 
Enter the aaaress of RUuss Savag9ge. 12 Main St.， Boston MA 
nter the 郊 OnLtpJy base 5ay For Russ Sarage。 2200 
Before DJessIng Package 1 REmpJoyee 
After DJessino9g Package 工 5: 9aJesma 
EGRUSSESa7a5e sermnnsSnoOr os oOO 
ES 
Enter RUuss Sava9ge "5s saJes re9ion。 Dortpeast 


与 JE 
Enter tphe Dmname or the empJoyee。wUoady Roadaoers 
Enter the aaQaress or JUoay Roda9ers. 2200 Broaaway A7ve， Chico， Ca 
nter the 页 OnthJy pase Day For JUoay Roacers。.。 342500 
Berfore DJessin9g PacKkage is5: ERmpJoyee 
After DJessino9 Package 工 5: 9aJesma 
生生 放 必 区 玫 区 生生 全 人 
瑟 屿 eVOG7ERDaQoerSLS 量 emnSES 本 有 GO 生 证 5 故 人 站 二 有 0 
Enter JUoay Roag9ers'5s salJes Fre9lion，DnorthwesE 


8 Fere are the statistics for the 石 Frst salesman 
Name= Rss 是 Sa7s9es 
Bonases = 500.50.， 
omrnasssiO 厂 本 三 要 区 册 0 
BasePay = 2200. 
区 [eleNsSSS 2 放 三 辣 二 0 soIELLS co 六 攻 
WAGOSG 3 
ISTeEEe 帮 三 晤 CeOIEEIS < 
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3350 





10 Fere are the statistics for the 
Name Joay Roac9ers. 

Bonuses 了 400 . 

Ci 全 总 帮 5 轴 0 


BasepPay = 34500.， 


aaaress 2200 Broaamway Avev 
PayCheck = 38200. 
Red9Izion = northmwest.， 


从 三 冯 人 CT7 


secomna sayesmnan 


人 


解释 
1. use 指令 负责 把 模块 Salesman 加 载 到 main 包 中 。 含 有 用 户 界面 的 程序 通常 又 称 为 驱动 程序 
Cdriver program )。 它 使 用 Salesman 模块 创建 新 的 Salesman 对 象 。 尽 管 Salesman 类 是 从 Employee 
类 派生 出 来 的 , 但 这 个 程序 对 此 却 一 无 所 知 。 该 程序 需要 做 的 事情 就 是 使 用 正确 的 参数 〈 如 有 果 

有 的 话 ) 调用 Salesman 构造 国 数 ， 并 要 求 用 户 提 供 输入 。 


网 
错 信息 。 
. 调用 Salesman 类 的 构造 国 数 ， 返 





回 指 向 








. 打开 strict 和 warning 编译 指示 ， 从 而 避免 程序 使 用 不 安全 的 结构 ， 并 产生 编译 和 运行 时 报 


salesman 对 象 的 一 个 引用 $salesguy1l 。 


4. 调用 set_ data 方法, 要求 用 户 输入 第 一 个 销售 员 的 信息 。 从 Salesman.pm 模块 中 调用 该 方法 。 


. 调用 Salesman 模块 的 构造 国 数 方法 。 返 
给 $salesguy2 。 





回 一 个 指向 新 的 Salesman 对 象 的 引用 ,并 将 它 赋值 


6. 针对 第 二 个 salesman 对 象 调 用 set_ data 方法。 同样 从 Salesman.pm 模块 中 调用 该 方法 。 
7. 在 这 里 使 用 继承 。 调 用 get _ data 方法 ,但 并 不 在 Salesman 模块 中 实现 该 方法 .Perl 会 在 Salesman 





模块 中 搜索 @ISA 数组 ， 并 获得 其 列 出 的 Employee 基 类 。 由 于 后 者 提供 了 get_data 方法 ， 





因 


此 程序 会 调用 该 方法 。 显 示 第 一 个 销售 人 员 的 统计 数字 。 


. 针对 第 二 个 销售 员 ， 调 用 get_data 方法 。 


示例 14.23 


# MoauIJe EmnpJIoyee.Pm 
# Zhe Base CIJIass 
Dackage Enmplcoyee: 


如 | 记 
上 


汉 SSEEECE 
引 use Wacnings:， 
# Copnstructor method 
4 sub new 1{ 
与 TiySe SEER 攻 三 本 SEE 
6 my S$self = { Name=>unqaef， 
edsessE> SS 
BaSSRSR 一下 六 
二 
区 下 六 区 本 入 放 玉 
】} 
# Instance/access methoas 
8 SoeseeEoaEean 
司 my $selft=shitft; 
0 PEiLnL "Entez the name of the employee . 
和 开 chomp ($Sself->{ Name}j=<STDIN>) ; 


DELEe NEEEQdeesE 古 Se TINSmehE 


有 
叶 


EDemnptaseuE=oeressE<SRDNNZ) 玉 


DEROONEeEENEETonENIVYRSSSE<E SYSESEEE>HRNSmEIE 四 


mm 
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SGhomplssenE= 二 BaseeayE< 和 SIND 达 
1 
ES 
玫 my S$Sself=shnhift; 
卫 而 my ($keyrS$Svalue) ; 
下 5 PEint "Name = $self=>{f Name}l.Nnn"; 
6 while((SkeyvS$value)=each(sS$Sself))1{ 
下 也 Skey =~ S/ /1/; 
Te Print "$Skey = $value.Nn" unless S$key eq "Name"; 
】 
TEA 
】} 
让 2 
解释 
1. 使 用 与 文件 Employee.pm 相同 的 名 称 〈 去 除 其 扩展 名 ) 声明 包 , 也 如 是 基 类 。 所 有 的 雇员 都 


LD 


有 一 些 共同 的 特征 。 在 本 例 中 ， 他 们 都 拥有 姓名 、 地 址 和 薪金 。 





. strict 编译 指示 表明 将 执行 严格 的 错误 检查 。 换 而 言 之 ,就 是 要 避免 出 现 不 安全 的 结构 ， 警 


如 全 局 变量 、 裸 词 等 。 


. warning 编译 指示 针对 所 有 可 能 发 生 的 错误 发 出 警告 信息 。 


4. 定义 Employee 构造 国 数 方法 。 这 里 依照 惯例 把 它 命名 为 new。 


(LA 


名 


. 把 类 名 从 @_ 数组 中 移出 来 。 这 是 一 个 类 方法 ， 因 为 它 的 行为 是 针对 类 的 ， 并 且 不 要 求 提供 


对 象 的 实例 。 


. 通过 一 个 匿名 散 列 以 键 / 值 对 的 形式 为 对 象 的 特性 (attribute ) / 属性 〈property) 赋值 。 如 


有 果 其 值 尚未 定义 , 则 可 以 稍 候 再 进行 赋值 。 返 回 指向 散 列 的 引用 , 并 将 它 赋 值 给 $self〈 出 现 
在 键 前 面 的 下 划 线 是 一 种 命名 惯例 ， 用 于 表明 这 是 对 象 的 私有 数据 )。 





.将 $self 引用 的 对 象 同和 人 到 Employee 类 ， 并 把 指向 它 的 引用 返回 给 调用 者 。 
. 子 例 程 set_ data 是 Employee 类 的 访问 方法 。 它 负责 在 调用 时 给 对 象 数据 赋值 ; 即 向 匿名 散 


列 汪 、 加 相应 值 。 


.从 @_ 数 组 移出 指向 对 象 的 引用 ， 并 赋值 给 $self。 
10. 
ll 
1 胞 
1 人 
14. 
15， 
16. 
有 
18. 


要 求 模 块 调用 者 提供 输入 。 

通过 引用 $ref 为 键 Name、 Address、_BasePay 赋值 。 

使 用 访问 方法 检索 并 显示 对 象 数据 。 

从 @_ 数组 移出 指向 对 象 的 引用 ， 并 赋值 给 $self。 

声明 两 个 词法 变量 。 

由 于 散 列 值 是 以 随机 顺序 存 入 的 ， 因 此 需要 通过 本 行 来 保证 首先 显示 雇员 的 姓名 。 
进入 while 循环 ，each 函数 通过 指向 对 象 的 引用 〈$%self) 从 对 象 中 提取 数据 。 
从 键 中 去 除 前 缀 下 划 线 。 

显示 对 象 的 其 余 属 性 。 


示例 14.24 


了 
之 


昌 


# 7Tpe Derivea CIJass 

Package Salesman: 

UUSEE 

use warnings7 

BEGTNIUOSHOEEGULGTNOARS ESEEETSESD 让 过 


面向 对 象 的 Per 367 





Cn 





由 


our QISRA=qw( EmPloyee) : 

Use EmPloyee: 

PEint "The salesman is an employee.NXnn 
IE Salesman=>isa('"Employee 7") 

ENE 汪 SSTESmSnREESnROSDISSIES 琶 EECREEITIEESRNDEL 
SEESSITSEEESOEGOEEE 全 


Sub new 1{ aa 
TI 三 全 二 < 
my S$Semp = new EmpPployee: 
SemBs>setEoatEsE 
IDDIRESEOESROIIESSETOO DECESOSISRR 全 人 SET NO 


bless(S$Semp，S$Sclass): 
十 和 忆 二 本 而 本 EnmEJ)RDANTY 
return S$emp: 
】} 
Sub set_datal 
人 
m7XESSalcoce= onlsoass seccmrasoconmsy) 二 GE 
return $base+S$Scomm+Sbonus }; 
TD 量 SsSEE=Namesm ccmmaEEen swOE 硬 me 
ES SEE em RE 人 站 由 三 二 SWINE 有 
eeaeanieESSSs NameTE 蕙 Some 汪汪 COTEIE 
chompP ($self->{ _ Bonusesj}j=<STDIN>) ; 
TESTE SSEEE ENamSThsESSTSEE on 
chomp ($self->{f _ Region}j=<STDIN>) ; 
$self=>{( PayCheck)j=&$Scalc ptrl( $selft=>( BasePayl， 
SS ECCmrnnsSscnil 
S$self->{ _ Bonuses} 


村 
Ti 
本 下 


LO 总 王 


. 声明 包 (类 ) Salesman 。 
. 载 入 strict 和 warning 编译 指示 。 
. 使 用 BEGIN 代码 块 确保 在 编译 时 及 时 更 新 @INC 数组 ， 以 便 能 从 中 查找 基 类 。Employee.pm 


模块 位 于 子 目 录 Baseclass 中 。 


.@ISA 目录 中 含有 该 包 所 用 的 包 名 。Employee 模块 是 Salesman 模块 需要 的 基 类 。our 国 数 


使 得 @ISA 数组 成 为 一 个 词法 上 的 全 局 数组 。 如 果 不 使 用 our 的 话 ,strict 编译 指示 将 导致 
编译 堪 退 出 执行 该 脚本 ， 因 为 它 不 允许 出 现 全 局 变量 《除非 使 用 包 名 和 双 冒 号 完全 限定 其 名 称 )。 


.use 国 数 负责 把 Employee 模块 加 载 到 程序 中 。 


6. 所 有 的 包 / 类 都 是 继承 自 超 类 UNIVERSAL 的 , 该 类 提供 了 isa 方法 。 如 果 Salesman 模块 继 


8. 
2 
10 
| 
| 


承 了 Employee 模块 的 话 ，isa 方法 的 返回 值 就 是 真 。 





.所 有 的 包 / 类 都 继承 了 超 类 UNIVERSAL ,该 类 提供 了 can 方法 。 如 果 Salesman 模块 或 者 其 


父 类 含有 方法 get_data 的 话 ， 则 can 方法 就 能 返回 真 ， 否 则 就 返回 undetf。 

为 Salesman 类 定义 构造 国 数 方法 new。 

传递 的 参数 取 自 @_ 数组。 将 类 名 赋值 给 $class 。 

. 调用 Employee 基 类 的 构造 国 数 new。 返 回 指向 对 象 的 引用 $emp。 

. Salesman 类 的 构造 国 数 调用 set_data 方法 来 为 对 象 添 加 属性 值 。 

.在 将 对 象 归 和 人 到 类 之 前 ，ref 函数 会 返回 该 对 象 所 属 类 【〈 包 ) 的 基 类 的 名 称 ， 即 Employee。 
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现在 ， 将 拥有 新 属性 值 的 对 象 昭和 人 到 Salesman 类 中 。 

13. 在 将 对 象 归 和 到 类 之 后 ,ref 国 数 会 返回 该 对 象 所 归 入 的 类 名 , 即 Salesman。 然 后 将 归 入 的 
对 象 引用 返回 给 调用 者 。 

14. 为 Salesman 类 定义 实例 方法 set data。 

15. 创建 用 于 计算 薪金 的 匿名 子 例 程 ; 返回 一 个 引用 。 子 例 程 不 应 由 类 的 使 用 者 调用 。 只 有 这 
个 类 才能 计算 薪金 数额 。 

16. 为 Employee 类 诡 加 新 的 属性 。 

17. 调用 计算 薪金 的 子 例 程 。 








14.4.4 ”多重 继承 


如 果 一 个 类 继承 自 多 个 基 类 或 父 类 ,， 则 称 之 为 多 重 继承 (multiple inheritance )。 在 Perl 中 ,可 
以 通过 给 @ISA 数组 添加 多 个 类 来 实现 多 重 继承 。 


Package  _ Child; 
QISRA = Gqw (Mother Father Teacher) ; 


上 述 搜 索 过 程 是 深度 优先 的 。 也 就 是 说 ，Perl 首先 会 搜索 Mother 及 其 继承 的 类 层次 ， 然 后 是 
father 及 其 继承 的 类 层次 ， 最 后 再 搜索 Teacher 及 其 所 有 祖先 类 。 















































14.4.5 重 写 父 类 方法 


有 时 两 个 类 可 能 拥有 名 字 相 同 的 方法 。 如 果 派 生 类 含有 与 一 个 基 类 方法 名 称 相同 的 方法 ， 则 该 
方法 的 优先 级 将 高 于 基 类 中 的 同名 方法 。 如 果 要 跳 过 派生 类 中 的 方法 而 直接 访问 基 类 方法 ， 则 必须 
使 用 类 名 和 双 冒 号 来 确定 基 类 的 方法 名 。 


示例 14.25 


中 Package EmPLloyee: 上 # Base cJass 
USE 本 Se 
Use Warcnings:; 

















sub new 1{ # 五 ppPJoyee's constructor Is aeftnea 
TS 攻 二 本 人 加 
my %$Params = G :; 
my S$seltf = { Name=>S$params{"Name"}， 


晤 辣 由 下 计 三 将 号 记 二 下 SIST 二 冲 下 站 村 过 
用 
bless ($self，S$Secelass) 7 
】 
包 sub disPlay 1{ # Instanpce metphoa 
my S$SselE = Shitt; 
foreach my Skey ( Q@ ) 1{ 
3 ET SREY SEE 
】} 
4 Eeee 和 caseusnng 间 让 下 草本 ae 
SS 


与 Package Salesman;  # Derivea cJIass 


面向 对 象 的 Per 了 303 





SEE ie 
use warnings7 
Use Enmployee: 
6 Our QISRA=dqw (了 ExPorter EmPloyee) : 


Sub new 1{ # Conpstructor in aerivea 5Salesman cJass 
yeISSiS 汪 三 本 SR 
my (sparams) = Q ， 


my $self = new EmPloyee($Params): # Ca7I1 constructor 
# In base cl1ass 
S$SselLlf->{fCommission}l = S$Sparams{Commissionly， 
ssSRESSESIEEAESICIISISESE 二 和 # RebJess the opbyject Into 
# the aerivea clJass 

} 

SoWSISESEDEEe | 
my $Sselft = Shitt; 
S$Sselft=->{fSalary}j=$self=->{fSalary}l + $selftf=->{fCommissionl: 

】 

8 Sub qisPlayli # Overriae methoa in EmpIoyee cJass 

msSEUIEE 攻 三 翘 SEEEE 
my QQargs = @ :; 


引 ERITOERSESESEECOTEEGTEESSTEESmaNTT 
1 
也 S$selLE->EmPloyee: :disPLlay(Gargs); # access to the 
# Overriaaden methoa 
} 
1 


# User or DrIver Pro9ram 
#!1V/pin/VpPez1l 
11 use Salesnmany” 
Eee 
Use warnings7 
12 my S$emp = new Salesman ( "Name"， "Tom Savage"v 
同人 也 地 GE 用 同 5 是 这 有 且 用 玫 区 攻关 
区 区 让 看 王 SS 人 全 从 了 
) 
Sm sSceSSS EEC 
13  S$empP->disPLlay( "Name" ，"Salary"，"Commission") ; 
# Ca Salesman's aqispJIay metphoa 


tGmeeaey 
岛 Stats For tphe SayJesma 
Name: 7Tom Sav7a9e 
辣 0 
二 SEE 


解释 
1. 声明 类 Employee， 它 含有 构造 国 数 方法 new 和 实例 方法 display。 
2. 定义 Employee 类 中 的 display 访问 方法 。 
3. 显示 雇员 的 属性 。 
4. ref 国 数 将 返回 该 对 象 同 和 到 的 类 名 。 
5. 声明 Salesman 类 。 它 继承 了 Employee 类 ， 又 称 作 派 生 类 。 
6. @ISA 数组 中 含有 所 需 的 类 名 : Exporter 类 和 Employee 基 类 。 
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7. 这 是 Salesman 的 构造 国 数 。 

8. 派生 类 的 display 方法 优先 级 更 高 ， 因 为 它 属 于 Salesman 类 。 在 负责 为 Salesman 对 象 传递 
参数 的 驱动 程序 中 调用 它 。 

9. 打印 出 来 的 内 容 来 自 于 派生 类 〈Salesman) 的 display 子 例 程 。 

10. 通过 把 方法 名 限定 为 类 Employee 中 的 方法 ,这 里 的 display 方法 将 重 写 Salesman 包 中 现 有 

的 display 方法 。 

11. 这 是 驱动 程序 ， 使 用 了 Salesman 模块 。 

12. 创建 新 的 Salesman 对 象 ， 并 使 用 间接 方法 调用 其 构造 函数 。 

13. 调用 display 方法 。 由 于 在 Salesman 类 中 已 经 提供 了 display 子 例 程 ， 因 此 它 就 是 要 调用 的 方法 。 


14.5 公共 用 户 接口 : 文档 类 


为 了 创建 一 个 有 用 的 类 ， 关 键 的 一 步 就 是 要 为 用 户 提供 描述 如 何 使 用 这 个 类 的 文档 ， 又 称 作 公 
共用 户 接口 (Public User Imterface)。 不 论 模块 是 否 是 面向 对 象 的 ， 都 必须 提供 某 种 程度 的 公共 用 
户 接口 〈 即 编写 好 的 文档 )， 以 便 描述 程序 客户 ) 应 当 如 何 使 用 这 个 类 〈 例 如 ， 应 当 为 方法 传递 
什么 样 的 参数 )。 即 使 类 里 面 的 内 容 发 生 了 改变 ， 公 开 定 义 的 这 些 接口 也 是 不 应 该 变 的 。Perl5 引用 
了 pod 命令 ， 用 于 编写 模块 文档 。 它 通过 在 子 例 程 中 散 置 POD (Plain Ole Document) 指令 来 实现 
其 功能 。 该 指令 类 似 于 文本 或 文件 中 嵌入 的 HTML 或 mroff 指令 。 接着， 程序 在 运行 时 会 通过 一 个 
Perl 过 滤 程 序 ， 以 多 种 不 同 的 格式 将 命令 转译 为 使 用 手册 页 面 内 容 。 











14.5.1 pod 文件 


如 果 仔 细 查 看 标准 Perl 库 的 话 ， 就 会 发 现 它 的 模块 中 含有 一 些 负责 解释 模块 用 途 和 如 何 使 用 
模块 的 文档 。 这 些 文档 可 以 戏 入 在 程序 内 部 ， 也 可 能 位 于 程序 模块 的 _END_ 特殊 实 量 之 后 。 该 文 
档 又 称 为 pod， 是 纯 Ole 文档 (Plain Ole Document) 的 缩写 。pod 文件 只 是 一 种 认 入 了 特殊 命令 
的 ASCII 文本 文件 ， 这 些 命令 将 由 Perl 的 特殊 解释 程序 (包括 pod2html1、pod2latex、pod2text、 
pod2man 等 ) 予以 解释 , 其 目的 是 为 了 创建 可 通过 多 种 形式 表达 的 格式 化 文档 。UNIX 中 的 man 页 
面 就 是 一 种 使 用 nroff 指令 格式 化 而 来 的 文档 实例 。 用 户 现在 可 以 方便 地 将 一 组 pod 格式 指令 戏 入 
到 脚本 中 ， 并 通过 下 列 四 种 方式 之 一 提供 文档 : 文本 、HTML、LaTex 或 者 nroff。 

pod 文档 的 第 一 行 必须 以 等 号 (= ) 开头 。 以 等 号 开头 的 每 一 个 单词 都 是 pod 翻译 器 的 格式 化 
间 令 。 在 每 个 格式 化 指令 后 必须 紧 跟 一 个 空 行 。 


示例 14.26 


(EeeeWstEinedcocunmneneaarcon ftounaate cns enaone ELoaecmnoaulis anEens 
Sanaarao Reranorar7unceT ns 有 Emocdnrsstee 双 Ma 



























































=headl1 NAME 
Mathn Bclicoat = ACEary lenotn oa mat aceKkaoge 


=headl SYNOPSIS 


面向 对 象 的 Peri 3 了 0 





USS 靖 MSIE 下 SGSE 
S$SE = Math::BigRloat=->new(S$Sstring) ， 


NEAR 人 NSTRI Seamewreonm 
SONSTR NS 下 R Sea 

生 下 三 党 攻 全 人 人 1 局 交 辐 本 有 攻 王 E 汪 人 
RNSTEISCAERI 靖 下 DENGTR GeonEoESERARDUIISSESE 
S$f=>fneg() zetucn NSTR negation 

RE 人 有 NdD 汪 absolute value 
SESSION SSWROGODS Compazce unagaefty,，<0yv,=0,，>0 
RNETR ouneEsSCATTREEEOUIOONES 
ENTSTR xzouna at SCALEth PLace 
SEOETI) NEEE EDRENISTRN normalize 
人 必用 NE 下 SEEsESCAREEUISCSS 


=head1l DESCRIPTION 

AlLl basic math opercations are overloadead if you aeclare your big 了 ioats as 
局 人 Ga 下 汪 三 生体 研 交 靖 SI 攻 天 可用 可 的 二 让 本 二 让 和 用 区 志 于 肥力 计 沪 才 本 及 话语 用 辣 本 区 泡 天 用 旋 训 抱 光 同胞 所 同 光 的 晤 和 

=OVer 2 

=Iem number format 


canmonical stcinogs have ne to IE IN IOEUC Vanes Ca7e EnDeaasa 
whitespace . 


三 工 上 emaBEEEOFEEESEUCnSULNaN 
Anannoutiparanmeer was NONUnmnoer orc aylaeoy zezococwsact onegat7e numoee 
=1Item DiVision is computed 上 oO 


CE<max(3dqwEscanensnotnoavqsnaohiisnoEmo SC) 中 记 onoTGs YEOsAaUEE 
Also usea for deftault Srt scale-. 


=Dback 
=headl1l BUGS 


neecurrene yecsonot cns noaule saiorelnannarcy yesuconaot Ene ceal tning na 
1Ss currently (as of perc15.002) Under Qevelopment . 


=head1l AUTHOR 


IaiskEBaeggae 


三 已 由 在 


解释 
上 述 文本 是 一 个 pod 文件 ， 它 含有 以 等 号 开头 的 行 以 及 各 种 pod 命令 ， 然 


是 空白 行 、 文 本 内 


容 。Perl 提供 了 特殊 翻译 器 程序 ,能够 读 取 pod 文件 ,将 其 0 人 


HIML、nro 华 文 办 或 Latex 文本 格式 。 下 一 节 将 详细 描述 如 何 使 用 pod 命令 进行 转译 


14.5.2 pod 命令 





把 pod 命令 髓 入 文本 文件 是 一 项 非常 容易 的 工作 。 用 户 只 需 将 命令 放 在 行 首 ,以 =pod (或 其 他 
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pod 命令 ) 开头 , 并 以 =cut 结尾 即 可 。 编 译 器 会 包 略 第 一 个 =pod 指令 直到 相应 =cut 指令 之 间 的 所 
有 内 容 ， 就 好 像 包 略 广 释 一 样 。 这 里 使 用 命令 的 好 处 是 它们 允许 创建 粗 体 、 和 斜体 格式 ， 或 者 创建 含 
有 纯 文 本 的 标题 “heading) 格式 。 表 14-3 列 出 了 所 有 的 指令 。 








表 14-3 pod 命令 

































































段落 命令 用 途 
=pod 标明 pod 的 开始 ， 等 号 及 甚 后面 的 pod 命令 表明 文档 的 起 始 位 置 
=cut 标明 pod 的 结束 位 置 
=headl heading 创建 一 级 标题 
=head2 heading 创建 二 级 标题 
一 item * 开始 一 个 项 目 列表 
=oVver N 跳 过 N 个 空格 ， 通 常设 定 为 4 个 
=back 将 缩 进 返回 为 默认 值 ， 即 没有 缩 进 
格式 命令 ] 途 
I<text> 和 斜体 文本 
B<text> 粗 体 文本 
S<text> 含有 非 中 断 空格 的 文本 
C<code> 含有 键入 的 文本 内 容 ， 即 实际 源 代 码 内 容 
L<name> 创建 指向 名 字 的 链接 〈 交 叉 引 用 ) 

F<file> 和 于 列 出 文件 名 

X<index> 下 标 

Z<> 零 宽度 字符 

过 滤器 专用 命令 用 途 

=for 针对 HITMEL 的 特定 命令 ;， 辟 如 : =for html 


<IMG SRC=file gif> 
<B>Figure a.>/ 也 >> 

针对 文本 的 特定 命令 ， 艾 如 : =for text 

此 处 文本 表示 上 面 图 像 的 含义 

针对 manpage 的 特殊 命令 ， 辟 如 : =for man 


.Ce3 








<center next three lines> 


14.5.3 ”如 何 使 用 pod 解释 器 


Perl 发 布 包 中 已 经 自 带 了 pod 解释 器 。 它 位 于 Perl 主 目录 的 bin 子 目 录 下 : 譬如 在 /usrYbin/ 
perlS/bin 目录 下 。 

四 个 解释 器 分 别 是 : 

pod2html 转译 为 html) 

pod2text  〈 转 译 为 纯 文 本 ) 

pod2man (转译 为 nroff， 类 似 于 UNIX 的 man 页 ) 
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pod21latex 转译 为 Latex ) 


若 要 使 用 pod 解释 器 ， 最 简单 的 方法 就 是 把 要 用 的 解释 器 拷贝 到 自己 的 目 孙 中 ， 警 如 : 


$ cp /usr/pbin/Per15/bin/Vpod2text 


此 外 还 应 把 库 例 程 拷贝 到 自己 的 目录 中 : 


$ cp /usr/bin/Per15/1Lib/BigEloat .pm 











现在 列 出 目录 内 容 时 ， 就 应 当 出 现 pod 解释 器 和 库 例 程 文件 。 


人 
BigFlLoat .pm 


Pod2text 


14.5.4 将 pod 文档 转译 为 文本 


若 想 把 pod 文档 转译 为 文本 并 显示 到 终端 屏幕 上 





将 显示 BigFloat.pm 模块 的 所 有 文档 


Perz1ldoc Math:: BigE1loat 


吕 


最 简便 的 方法 就 是 使 用 Perl 发 布 包 自 
perldoc 首 1 个 











1 这 


仇 卉 
心 村 








另 一 种 把 pod 指令 转译 为 文本 的 方式 则 是 让 pod 解释 器 筛选 整个 模块 , 并 创建 一 个 在 有 转译 结 
果 的 文本 文件 。 如 果 用 户 不 把 它 重 定向 到 输出 文件 的 话 ， 它 就 只 会 输出 到 屏幕 上 。 























$ pod2text BigFloat.pm > BigEFloat.Text 





$_ cat BigFlLloat.Text (The output fle after podq commands have been 


trzanslLatedq into 七 exXt 。 


NAME 


Math::BigFloat - Arbitrary Length foat math Package 


SYNOPSIS 
use Math::BogEFloat， 
SfE = Math::BigEloat->new(Sstring) ， 


SfE->faddq(NSTR 
$SfE->fsub 
$E->fmul 
SE->fdiv 


) return NSTR 
NSTR) return NSTR 
NSTR) return NSTR 
NSTRLI7SCARAEBE]) zeturns NSTR 
S$Sf->fnedgd() Teturn NSTR 
$SfE->fabs() eturn NSTR 
Sf->fcmp (NSTR) return CODE 
SEE->fround(SCALE) return NSTR 
SfE->ffround(SCALE) return NSTR 
S$Sf->fnorm() return (NSTR) 
SfE->fsdqrt([SCALE]) return NSTR 


( 
( 
( 
( 
( 
( 


DESCRIPTION 


局 Q 七 工厂 

Subtzaction 
multip1lication 
qivVision to SCALE PLaces 
negation 

absolute value 

compare undef,，,<0v,=0,>0 
基站 前 过 起 总 和 CA 有 间 gtES 
round at SCALEth Place 
normalize 

SdqLrt to SCALE Places 


有 All basic math operations are overloaded if you aqeclare Your big foats as 


$float=newMath::BigEloat"2.1231231231231231231231231231231237"7 
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number format 
canonical strings have the form /[+-]Nd+E[+-]N\dq+/ . Input 
Values can have inbedqdedq whitespace . 


了 FEOF zeturns 'NaN' 
An input Parameter was "Not a Number"” or Qivide by zero or 
Sqrt of negative number . 


Division is computed 二 o 
max(S$div_ scale length (aividenad)+length(dqivisor))" aigits by 
qdqefault。. Also used for qdqefault sdqrt scale. 
BUGS 
The current Version of this module is a preliminary Version of 
the real thing that is current1ly (as of per15.002) undeL 
qdqevelopment . 


AUTHOR 
Mark Bigdgat 


14.5.5 将 pod 文档 转译 为 HTML 


若 要 创建 一 个 HIML 文档 ， 用 户 可 将 pod2html 命令 拷贝 到 自己 的 目录 ， 并 输入 
$ pod2htm1l BigFloat.pm > BigEFloat.pm.html 


pod2html 翻译 避 会 创建 一 个 BigFloat.pm.html 文件 。 现 在 请 打开 浏览 器 ， 并 在 URL 位 置 栏 中 
用 基 种 文件 协议 打开 BigFloat.pm.htm1， 辟 如，<file:/yourdirectory path/BigFloat.pm.html> 。 旨 








14.6 ”使 用 Perl 库 中 的 对 象 


在 第 12 章 “ 模 块 化 、 打 包 并 发 送 到 库 ” 中 , 本 书 介 绍 了 Perl 5.6 提供 的 标准 Perl 库 。 这 些 库 中 
含有 许多 .p1 和 .pm 文件 。 在 使 用 这 些 库 时 ， 并 不 要 求 用 户 了 解 有 关 Perl 对 象 使 用 方面 的 知识 。 它 
们 用 到 了 传统 的 子 例 程 ， 而 不 是 方法 。 现 在 用 户 已 经 了 解 了 如 何在 Perl 中 使 用 对 象 和 方法 ， 下 面 的 
示例 将 展示 如 何 使 用 这 些 用 到 OOP 方法 的 模块 。 
































14.6.1 另 眼 看 标准 Perl 库 


@INC 数组 中 含有 Perl 会 搜索 的 路 径 名 。 在 查看 了 库 列 表 之 后 ， 我 们 再 进入 《cd) 这 些 标准 
Perl 库 ， 看 看 其 中 的 文件 列表 。 读 者 会 发 现 ,其 中 有 的 文件 以 pm 扩展 名 结尾 ,而 有 的 则 以 .pl 扩展 
名 结尾 。Perl 5 引入 了 使 用 对 象 的 模块 文件 〈 以 .pm 结尾 )， 这 些 模块 都 能 支持 OOP。 那 些 不 含 扩 
展 名 的 文件 则 是 一 些 目录 ，Perl 通过 这 些 目录 来 分 门 别 类 地 保存 各 类 模块 。 例 如 ，File 和 Math 子 
目录 中 分 别 合 有 属于 各 自 类 别 的 模块 。 

















名 ”如 果 观 察 到 含糊 的 诊断 信息 ， 可 能 是 因为 .pm 文档 内 容 中 含有 pod 过 沽 器 无 法 解析 的 指向 其 他 页 的 链接 。 
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示例 14.27 


灶 $ Perl -e "Print join qq/NAn/ ,QINC;" 
人 
于 汪 大 交 和 放 区 乓 用 


电 $ 1s /Per1lL/1Lib 


7 克 司 M 本 NE 汪 六 瑟 XPOFLer.P 交 SymPpol .Pm cacheout.PL Dew9etopt.P1 
autoroaaer.Pm 各 过 二 加 让 本 可 党 SYS Charnames.Pm OpPen .PPm 
autoSPJIILt.PDm 本 二 研 训 全 半 于 全 天 交 2 加 辣 避 而 汪 站 出 
局 ED Zes 蕊 CompPJete.PL open3 .5 
机 ZIJe Lo ES 回回 S 司 已 
BemchnmarK .三友 EIJecache .5 了 exXt ES 本 忆 下 COVYerJoaa .5 
By7teDoaaer .PP FEIJIeHanaJe.Pm TDPFeaa OSI SR joy 二 所 中 
le 0 TDPFeaa. PP 可 人 自已 交 本 59 1 PerJIocal .poda 
人 ET GESAASRELE Te 加 天 本 六 天 PaQ.P1 
BR ER 2 部 人 EXCeptIons .DPI 工 e .也 总 
CPAN DG) UNTVERSAT .PPm 本 SPDeJJwWoras .5 
CPAN. PP GO Use 石 e1as . Pm 0 
[GE 全 JIzn32.pPoda 石 Tetest.Ppm ELEoL 
GEEBORUe MatPp XSDToaaQer.P 1 ENGIE SC 
外 区 可 区 总 WeE EUeyegasw 二 < 克 而 吧 可 es 辣 忆 5 本 已 站 SUDS.PPm 
Comn 石 g.Pm O.Pm 臣 天 基态 全 < 本 S 克 而 忆 册 区 SO5 辣 三 二 
CwaQ. Pm Opcoae . Pm 3 放 oISSES Toy 三思 而 [有 ES 人 < 吕 
DB . Pm 必 辐 SU 亲本 下 ES 辣 加 9etcwaQ.PI termcapP .ZE 
Data Se 司 而 到 回 9etopt .DPI tzmeJocaJ .PPL 
Devel ee aose .mm 9etopts.PJ nzcoae 
DIEFRanaJye .PP 四 网 局 风 国 的 业 汪 总 闻 Dase.Ppm ostname.EI 局 及 8 辣 入 兽 
DumPvalue.Pzm Sare.Pm DNS ec 全 可 30 0 
DT7Dar5oaaer .万 郊 Searcn 于 辣 认 避风 工 刀 上 eeE 工 . 甩 郊 Tayziaate.5L 
五 五 IISD 2 丰 SeJectSavrer.pm bpIograt.Ppl 了 ess.Pm TS 辣 m 
五 站 了.Pm [SC 再 局 间 所 oj Ke ae 十 双 碳 加 人 WarniD9sS 
厨 无 六 站 加 网 罗 SPe 了 1 .Pm Dy7Ees .Pr 了 了 ocale.Pm warnzin9s.Pm 
五 X 忆 OFEe 开 SOCKet ,PPm ES 

电 S$ cd Math 

4 $ 1s 

1 1 OO CompJIex. ZE JR 同 忆 科 


解释 
1. 打印 @INC 数组 的 元 素 ， 确 保 标 准 Perl 库 包含 在 Perl 的 库 搜索 路 径 中 。 
2. 列 出 所 有 库 例 程 。 
3. 不 售 .p1 或 .pm 扩展 名 的 文件 是 子 目 孙 。 切 换 到 Math 子 目录 中 。 
4. 列 出 目 孙 的 内 容 ， 这 里 显示 了 三 个 Math 模块 。 


一 个 来 自 标 准 Perl 库 的 面向 对 和 象 模块 


下 面 这 个 BigFloat.pm 模块 允许 用 户 使 用 固定 长 度 的 浮 点 数 。 数 字 字 符 串 的 格式 必须 符合 /[+ 直 
dx\?\ds*E[+-]\d+/。 如 果 返 回 的 是 NaN， 就 意味 着 用 户 输入 的 内 容 不 是 数字 ,或 者 除数 为 0， 又 或 者 
是 对 负数 求 平方 根 。BigFloat 用 到 了 overload 模块 ， 允 许 用 户 将 方法 逻辑 赋予 Perl 内 建 的 运算 符 ， 
从 而 使 运算 符 产 生 新 的 行为 方式 。 在 该 过 程 中 ， 运 算 符 相当 于 一 个 键 ， 而 赋 给 它 的 方法 则 是 其 对 应 
的 值 。( 详 见 标准 Perl 中 的 overload.pm 。) 





14.6.2 
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示例 14.28 


(The File: BI9PIJoat .PEm) 


也 Se EEC 
2 USSRMSEIT ELEOTNEY 


Use ExPorter: 上 直 Uust for use to be happy 




















QISA = (了 ExPorter) ; 
引 use overlLoad 
4 本 => Sub {new Math::BigERloat &fadaaql， 
! 一 1 => Sub {new Math::BigFEloat 
| 攻 训 攻 本 ESsulsiG 人 本 本 SEO 站 证 GS 汪 O 本 二 全国 且 
有 三 区 => Sub {new Math: :BigEFEloat 
PE 全 | 柜 二 人 关 人 央 史 国 于 全 ET 全 二手 本 于 二 二 关 生 | 区 | 因 古 二 
Emo 三 ENMaEEENOEISSE 
与 轴 | 攻 上 是 cmoESEHES IRON 人 ESSES EDUEEe ms 汪 5 本 册 遇 | 
0 => Sub {new Math::BigEFEloat &fmu1l}y， 
全 => Sub {new Math: :BigFEloat 
号 可 性 3 二 SORTGSWEESLES TO 用 下 
Scene an SEO 全 2 可 由 晤 到 
"meg' => Sub lnew Math::BIigEloat &ftneglj， 
ass 三 > NMSENEEESOEICOSE 有 妆 和 ES 计 于 
SGw 人 
下 SET GAY 
0+ Un SSY # Oraer of ar9uments unsIzgni 万 canE 
号 SuUb new 1{ 
TSeasS 三 汪 ShasEt 
OURASS ECGSNOES 及 
6 iGame 人 Ne 本 mE 王 省 下 有 站 攻 下 5 可是 全 已 生 攻 oMSEE EUG SEE 全 
EEC CN 
网 IE 


< Mecnoaseconeanac ne Moceuwas co cno cocoee> 


# aaazitzIzoDn 


8 SubEEaaamIennm 本 SEE 和 TS 
ER 
EECSS EECSLNSNEIIIESA ESNSINIDEET 
NaN'7 
Jelsea ti 
ESGaECSXmS2 eV 三 本 SEE ES 
TY 
的 页 5 十 ESTESVWEV 三 和 人 3 全 区 首 人 /7 


WE 


< Metphoas continue Per-e> 


17e) 
# ar9s are aiviaenad，aqivisor scale (optiona7l) 
# result pas at most max(fscale，1Ien9thlf(aivriaena) ， 
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由 EGR CT ESDASS 


sub fdqiv 人 (的 亲 亲 网 本 三 说 攻 SEE 
[{ 
有 
ET ET 央 国 国王 证 2 本 村 这 > 
TESTENSNDIIEES ENSNIIEESA 和 有 0 
NE 
jsliseit 
上 se 上司 生生 全 全 as 大 
IST SWEET 本 机 证 
SSscalea aascalenFRSSscas 
S$scale = length(S$xm)=-1 if (length(S$Sxm)=1 > $Sscale) ; 


S$scale = length ($ym)=-1 if (length($Sym) -1 > S$Sscale) 

S$Sscale = $scale + length(S$ym) - Length(S$Sxm) : 

MI 
Sym) ，S$Sxe=-5$ye-S$Sscale):; 


二 
刷 


LO 记 王 


\D oo ~ 人 了 上 


. 声明 BigFloat 类 。 它 位 于 标准 Perl 库 的 Math 子 目录 中 。 
. BigEFloat 类 也 需要 用 到 BigFloat.pm 模块 。 
. Overiload 国 数 允 许 用 户 改变 Perl 内 建 运 算 符 的 钵 义 。 例 如 ， 在 使 用 BigFloat.pm 时 ，+ 运算 


符 相 当 于 键 ， 而 负责 创建 一 个 对 象 并 调用 &fadd 的 匿名 子 例 程 则 相当 于 其 值 。 


. 重 载 (overload) + 运算 符 。 见 上 面 的 说 明 内 容 。 
. 这 是 BigFloat 类 的 构造 国 数 方法 ， 用 于 创建 对 象 。 
. 如 果 不 是 数字 ， 则 打印 本 行 信息 。 

. 把 对 象 岂 人 到 类 中 。 

. 这 是 在 对 象 上 执行 加 法 运算 的 子 例 程 。 

. 这 是 在 对 象 上 执行 除法 运算 的 子 例 程 。 


14.6.3 ”使 用 标准 Perl 库 中 的 模块 


由 
汉 


#1/bin/pez1l 
Use Math: :BigRERloat:; # BI9FIoat. .pm is In the Matp Qirectory 


Snumber = "000.95671234e-217"; 
S$Smathref = new Math: :BigEloat("S$Snumber"); 上 # Create the obyject 


TESTmaEIESEIE TREESSSD ZeS(Smatnze SS)R 
# Where Is the ob7yect 


Print $Smathref->Efnorm()，"NXn'" # Use methoas From the cJass 


FTIREESUnmEcAESTmSaCIESGETESOORIESmatnzeE=>Eaadd(5002) 玉 
EN 

Print "Division using overloaded operator: "，S$Smathref / 200.5， 
RD 

Print "Division using fdqiv method:"，S$Smathref->fdqiv("200.5") ， 
下 人 全 玫 记 
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m 


OranaRnEerc anumnoer > 
ESnUmISET 生 三 是 SS 开 上 下 NE ) 区 


1 if ( $mathref->fadd($numstr) eq "NaN" ) { 
Eco ENEET 汪 TUmioeT RN 志 


Return vaJue of NaN means the strin9 Is Dot aa Dumpberv 
EARLTS SSEOSie 
[AT 是 eiEs 








(GuEGIE) 

而 SI 

6 宝林 全 7 和 汪 三 用 9 

到 4 人 SOT 253 抽风 的 0 全 人 玫 改作 史 玫 天 远 
做 帮 信 全 克 网 入 作 作 本 大 大 作 全 全 罗 作 攻略 人 OO 天 玖 过世 二 罗 9 


8 四 weie 属 Eees 
.0000000000000000000000047716326184538653366583541147132716957606 
习 0 


全 电光 全 同人 亲本 二 全 你 末 局 玫 十 情 司 电 辣 晤 2 晤 2 交大 和 大 本 天 二 2 
10 Enter a number heJ1Io 
| 朋 贿 国王 《eesAeols 攻 Sa We 


解释 
1. 这 是 Perl 解释 器 的 shbang 行 。 
2.use 畏 数 将 模块 BigFloat 加 载 到 程序 中 。 由 于 该 模块 位 于 Math 库 的 子 目 孙 下 , 因此 可 通过 
在 模块 名 前 面 加 上 子 目录 名 和 双 冒 号 的 方式 来 导入 它 。 
.将 $number 赋值 为 一 个 大 数 〈e 标记 )。 
. 现在 使 用 模块 中 的 方法 。 调 用 BigFloat 的 构造 函数 。 返 回 指向 对 象 的 引用 ,并 将 它 赋 了 予 Smathref。 
ref 函数 负责 返回 类 名 。 
. fnorm 方法 以 带 符号 的 科学 计数 法 形式 返回 $number 的 “和 常规” 值 。 
. fadd 方法 给 该 数字 加 上 500 。 
在 本 例 中 用 到 了 一 个 重 载 的 运算 符 。 本 行 把 类 方法 fdiv 赋予 了 /运算 符 ， 并 用 它 来 执行 
除法 运算 。 参 见 上 面 的 BigFloat.pm 模块 代码 。 
9. 这 一 次 不 使 用 重 载 ， 而 是 直接 调用 fdiv 方法 来 执行 除法 运算 。 其 输出 内 容 稍 有 不 同 。 
10. 要 求 用 户 输入 一 个 数字 。 
11. 如 果 fadd 方法 返回 NaN 〈 非 数字 )， 则 打印 本 行 信息 。 这 是 一 种 检查 用 户 输入 数字 有 效 性 
的 方法 。 


oo ~ 了 上 





14.7 ”读者 应 当 学 到 的 内 容 


1. OOP 是 什么 意思 ? 

2. 包 (package) 和 类 (class) 有 什么 区 别 ? 
3. 什么 是 方法 (method) ? 

4. 类 方法 接受 的 一 个 参数 是 什么 ? 

5. 什么 国 数 能 够 创建 对 象 ? 
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6. 什么 是 属性 (property) ? 

7. 什么 是 实例 方法 (instance method) ? 
8. Perl 提供 “private” 关 键 字 吗 ? 

9. 如 何 命名 一 个 类 ? 应当 把 类 放 在 哪里 ? 
10. 类 方法 调用 是 什么 意思 ? 

11. 什么 是 多 态 性 (polymorphism ) ? 
12. @ISA 数组 有 什么 用 途 ? 

13. 什么 是 派生 类 〈derived class) ? 

14. 闭 包 〈closure) 是 做 什么 用 的 ? 

15. 如 何 为 类 提供 文档 ? 

16. 什么 是 pod 过 滤器 ? 

17. 如 何 使 用 pod 指令 ? 

















14.8 ”下 章 简介 


在 下 一 章 里 ,读者 将 学 习 Perl 内 建 的 一 种 能 把 变量 绑 到 类 里 的 预定 义 方 法 ,并 学 习 如 何 通 过 该 
国 数 去 使 用 DBM， 即 用 于 存储 大 量 二 进 制 文件 的 数据 库 管 理 库 。 





练习 14 本 课 的 对 象 是 什么 


第 一 部 分 “对 象 入 门 
1. 编写 一 个 名 为 Rightnow.pm 的 模块 ， 含 有 如 下 三 个 组 件 : 
a. 一 个 名 叫 “new” 的 构造 函数 。 
b. 一 个 用 于 设置 时 间 的 “set_time” 方 法 。 该 方法 需要 用 到 localtime 国 数 。 
c. 一 个 负责 打印 时 间 的 “print_time” 方 法 。 
该 方法 将 根据 参数 决定 是 用 Military 格 式 还 是 用 标准 格式 来 打印 时 间 ; 譬如 ,print_time("Military"); 
d. 在 另 一 个 程序 中 , 使 用 Rightnow 模块 创建 一 个 Rightnow 对 象 , 并 调用 其 “print_time” 方 法 ， 
Time now: 2:48:20 PM 
Time now: 14:48:20 
第 二 部 分 “对 象 深入 
1. 在 类 中 创建 一 个 Student 对 象 ， 并 把 Student 对 象 的 属性 作为 参数 传递 给 构造 国 数 方法 。Student 
对 象 中 含有 三 个 属性 : 学 生 姓 名 、 学 生 专 业 、 以 及 该 学 生 选 修 的 课程 列表 。 
创建 一 个 名 叫 “show_student” 的 实例 方法 ， 负 责 打 印 Student 对 象 内 容 。 
模块 调用 代码 将 创建 两 个 Student 对 象 ， 并 显示 每 个 对 象 的 内 容 。 
2. 向 Student 对 象 添 加 四 个 新 属性 : 学 生地 址 、 学 生 ID 号 、 入 学 日 期 以 及 学 费 。 例 如 : 
ID: 123A 


StartDate: 01/10/07 
Tulition: 9400.$4 
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应 当 如 何 管理 这 些 属性 呢 ? 如 果 需 要 向 构造 国 数 传递 这 么 多 参数 的 话 , 用 户 还 不 如 另外 创建 一 个 
名 叫 “set_ student” 的 实例 方法 。 
创建 三 个 新 的 Student 对 象 。 
3. 创建 两 个 新 的 带 参数 的 访 癌 方法。 其 中 一 个 名 叫 “add_course”， 另 一 个 则 是 “drop_course”。 
这 两 个 用 户 接口 允许 用 户 添加 或 去 除 任意 数目 的 课程 信息 ， 只 需 把 一 组 参数 传递 给 相应 的 方法 即 
可 。 璧 如 ，$ptr->add_course(["C++","Java"]); 
. 这 里 将 使 用 一 个 变量 “class” 来 跟踪 新 学 生 的 数量 。 每 当 添 加 一 个 学 生 时 ， 就 刷新 这 个 计数 器 。 
在 退出 程序 前 ， 打 印 新 学 生 总 数 。 这 里 应 当 使 用 DESTROY 方法 。 
. 从 这 里 开始 ， 把 每 个 学 生 的 信息 数据 发 送 至 一 个 文件 。 该 文件 内 容 应 遵循 如 下 格式 : 
John Doe:14 Main St:3456IX:Math:Trigonometry, Calculus, French:01/01/06:4500 
6. 创建 另 一 个 文件 ， 负 责 跟踪 学 生 总 数 。 每 当局 动 脚本 时 ， 就 从 该 文件 中 读 取 学 生 总 数 。 每 当 添加 
新 学 生 时 ， 就 对 他 说 :“Welcome, John D.” 
第 三 部 分 “创建 一 个 面向 对 象 的 模块 
1. 将 Checking.pm 模块 转换 为 面向 对 象 的 形式 。 甚 对象 名 叫 “the bpalance”， 其 子 例 程 则 是 
“methods”。 其 构造 函 数 将 至 少 含 有 两 个 属性 : 余额 和 账号 。 其 中 ， 账 号 将 作为 参数 传递 给 构造 
国 数 。 而 余额 则 是 从 登记 表 中 检索 得 到 的 ， 其 初始 值 为 0。 
当 创 建 登 记 表 文件 时 ， 须 把 账号 追加 到 文件 名 上 。 登 记 表 文件 提供 了 账号 、 余 额 和 日 期 信息 。 
这 里 可 使 用 之 前 在 ATM 用 户 脚 本 中 已 经 创建 好 的 Checking.pm 模块 。 
2. 读者 可 否 做 到 创建 多 个 Checking 对 象 ， 并 为 每 个 账户 分 别 维护 其 余额 信息 ? 
第 四 部 分 “使 用 @ISA 和 继承 机 制 
1. 创建 一 个 带 有 构造 函数 和 单个 访问 方法 的 Pet 类 。 其 构造 函数 提供 了 一 些 涉 及 普通 宠物 的 属性 ， 如 ; 
主人 
名 字 
性 别 
a. 其 访问 方法 名 叫 eatO) 。 该 方法 接受 一 个 参数 : 某 种 完 物 食用 的 食物 种 类 。 例 如 ， 狗 吃 Alpo。 
Dog 类 自己 不 提供 eat() 方法 ， 而 是 从 该 类 继承 。 
b. 创建 两 个 继承 Pet 类 的 类 譬如 , 一 个 Dog 类 和 一 个 Cat 类 。 它 们 都 将 用 到 Pet 类 的 构造 国 数 ， 
并 添加 一 些 自己 独 有 的 属性 。 它 们 将 提供 speak() 方法 ， 但 不 提供 自己 的 eat() 方法 。 
2. 这 里 我 们 将 创建 一 个 名 叫 Bank.pm 的 基 类 ， 并 另外 创建 两 个 使 用 它 的 模块 : Checking.pm 和 
Savings.pm。 
a. Bank.pm 父 类 的 构造 国 数 是 可 有 可 无 的 ,但 是 它 必 须 为 Checking.pm 提供 depositO、withdrawO 
和 get balance0) 方法 。 
b. 从 Checking.pm 中 移 除 depositO0 和 withdraw(O。 使 用 Checking.pm 的 程序 必须 通过 @ISA 数 
组 从 Bank.pm 中 继承 这 两 个 方法 。 
c. 创建 另 一 个 名 叫 Savings.pm 的 模块 。 
d. Checking.pm 和 Savings.pm 都 将 用 到 Bank 模块 , 并 继承 其 方法 。 这 两 个 模块 都 拥有 自己 的 构 
造 国 数 和 属性 。 其 中 一 个 属性 是 账户 状态 。 它 可 以 取 “active” 或 者 “closed”。 
Savings 账户 每 天 会 收取 1%% 的 累积 利息 ， 并 要 求 初始 账户 余额 至 少 为 8$3200。 
Checking 账户 则 有 透支 保护 功能 ,并 会 为 每 笔 交 易 收 取 $35 的 费用 。 它 不 人 允许 透支 超过 $300， 
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并 要 求 开 户 余 额 不 少 于 $25 。 

e. Checking.pm 和 Savings.pm 模块 将 拥有 各 自 独立 的 账号 和 登记 文件 。 

f ATM 脚本 将 用 到 上 面 这 两 个 模块 。 用 户 脚本 会 提供 一 个 全 单 ， 人 允许 用 户 选 择 两 个 账户 中 的 任 
意 一 个 。 在 得 到 一 个 新 的 账户 对 象 后 ， 用 户 还 可 为 账户 选择 交易 类 型 〈 位 于 原 有 Checking.pm 
模块 的 子 全 单 中 )， 并 继续 进行 交易 ， 直 到 退出 交易 为 止 。 当 用 户 退出 交易 时 ， 其 账户 登记 文 
件 将 自动 刷新 ， 并 提示 用 户 是 否 需要 返回 主 菜单 。 如 果 用 户 回 答 “ 是 ”>， 则 他 就 能 再 次 看 到 主 
菜单 ; 如 果 用 户 回 答 “ 否 ”， 则 退出 整个 程序 。 用 户 必 须 为 各 账户 的 登记 文件 提供 惟一 的 名 字 ， 
以 方便 区 分 Savings 和 checking 这 两 个 账户 。 




















示例 : 
Per 了 User,.P] 
WelLcome ! 
Select an accournt 七 Ype : 
) Checking 
2) :9 二 VDn 可 S 
本 
Select a function: 
) qdqeposit 
2) withadaraw 
3) get balance 
4) exit 
二 


How much ao you want to qdqeposit? 5 
Select a function: 

) qdqeposit 

) witharaw 

) get balance 

) 


必 ww IN 


eXIt 
总 
Your balance is $30.00 
Select a function: 











) qdqeposit 
2) witharaw 
3) get balance 
4) exit 
多 
Per 了 User.Pp] 
Welcome ! 
Select an account 七 YPe : 
) Checking 
2) Savindgs 
站 
Select a function: 
) qdqeposit 
2) witharaw 
3) get balance 
4) exit 
工 


How much ao you want to qdqeposit? 5 
Select a function: 

) qdqeposit 

2) witharaw 

3) get balance 
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4) exit 
3 
Your balance is $30.00 
Select a function: 

1) aqeposit 


) witharaw 
3) get balance 
) exit 
2 
Return to the main menu? Y 
Welcomel 


Select an account type : 

1) Checking 

2) Savinds 
2 
Select a function: 

1) aqeposit 

) withadraw 
3) get balance 
) exit 

3 
Your balance is $100.00 
Select a function: 
) qdqeposit 
2) withadaraw 
3) get balance 
4) exit 
和 
How much ao you want to qdqeposit? 25 
Select a function: 
) qdqeposit 
2) withadaraw 
3) get balance 
4) exXit 





4 
After interest balance is 127.50 


第 五 部 分 

进入 标准 Perl 库 中 的 pod 目录 ,查看 perlpod.html。 该 文件 中 含有 Larry Wall 提供 的 有 关 如 何 使 
用 pod 命令 归档 Perl 程序 的 用 户 接口 。 

进入 浏览 器 ， 在 地 址 栏 中 键入 


人 le:/<dqirectory-to-your-1Library-fiile>/Pod/pod .html 


便 可 看 到 有 关 创 建 pod 文档 的 指令 。 

然后 为 Checking.pm 模块 创建 一 个 公共 接口 。 在 Checking.pm 脚本 中 艇 入 pod 命令 ， 以 便 向 用 
户 解释 如 何 使 用 这 个 模块 。 在 此 过 程 中 ， 请 读者 遵守 库 模 块 的 相关 指导 ; 譬如 : 必须 提供 NAME、 
SYNOPIS、DESCRIPTION 和 AUTHOR 等 。 通 过 pod2html 过 滤器 ee pod 文件 ， 并 在 浏览 器 
中 显示 文档 内 容 。 读 者 也 可 使 用 perldoc 命令 将 文档 内 容 打 印 到 终端 屏幕 上 。 









































第 15 章 神奇 的 Tie 和 DBS 


在 通常 情况 下 ， 当 对 变量 执行 某 种 操作 如 赋值 、 修 改 或 打印 变量 内 容 时 ，Perl 会 在 内 部 对 该 变 
量 进行 一 些 必要 的 处 理 。 璧 如， 在 创建 变量 并 为 它 赋 值 时 ， 用 户 无 需 使 用 构造 函数 方法 ， 而 在 操纵 
变量 时 ， 也 没有 必要 为 它 创 建 访问 方法 。 赋 值 语句 $x=5 并 没有 提供 过 于 复杂 的 语义 。Perl 会 为 $x 
创建 一 个 内 存 位 置 ， 并 将 值 5 放 到 该 位 置 中 。 

现在 ， 用 户 可 以 把 常规 变量 和 类 连接 到 一 起 ， 以 便 为 该 变量 提供 方法 ， 从 而 能 在 赋值 或 检索 变 
量 值 时 变换 相应 的 变量 ， 就 好 像 变 魔术 一 样 。 然 后 ， 用 户 便 可 为 这 些 标量 、 数 组 或 散 列 提供 新 的 具 
体 值 。 和 那些 必须 通过 引用 来 访问 的 对 象 不 同 ， 连 接 变 量 在 创建 后 就 和 其 他 变量 一 视 同 仁 。 所 有 这 
些 细节 都 将 对 用 户 隐 藏 。 用 户 可 以 通过 与 连接 前 一 样 的 语法 给 变量 赋值 或 访问 这 些 变量 9。 其 神奇 
之 处 在 于 幕后 的 动作 。Perl 会 创建 一 个 负责 表达 该 变量 的 对 象 , 并 使 用 预定 义 的 方法 名 构造 、 设 置 、 
获取 和 撤销 连接 到 变量 的 对 象 。 创 建 类 的 程序 员 可 使 用 预定 义 的 方法 名 (如 FETCH 和 STORE) 来 
导入 操作 对 象 时 需要 使 用 的 语句 。 用 户 能 连接 一 个 变量 ， 从 此 以 后 ， 就 可 以 在 程序 中 像 使 用 其 他 变 
量 一 样 地 使 用 它 。 
































15.1.1 tie 函数 


tie 函数 负责 把 变量 连接 到 一 个 指定 的 包 或 类 上 , 并 返回 一 个 指向 对 象 的 引用 。 其 所 有 细节 都 在 
内 部 予以 处 理 。tie 函数 常常 会 和 关联 数组 配合 使 用 ， 以 便 将 其 键 / 值 对 连接 到 数据 库 上 ;, 譬如 ， 在 
Perl 发 布 包 提 供 的 DBM 模块 中 使 用 连接 变量 。untie 函数 负责 断 开 变量 与 类 之 间 的 连接 。tie 函数 
的 格式 如 下 : 


SEEE 一 汪 证 让 志 TS 本 二 全 河和 芭 蕊 
untie variable 





七 eVSCTEaRELe CTSSS NS 七 元 
S$object = tiedq variable: 








@@ ”DBM 数据 库 借 助 tie 机 制 自动 对 数据 执行 数据 库 操作 。 
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tie 国 数 会 返回 指向 一 个 之 前 已 经 绑 定 tie 函数 的 对 象 的 引用 。 如 果 该 变量 没有 与 包 连 接 ， 则 返 
回 一 个 未 定义 的 引用 。 








15.1.2 ”预定 义 方 法 


人 告 上 共有 特殊 方法 的 类 来 定义 变量 的 行为 ， 这 些 特 殊 方法 可 用 于 创 
建 和 访问 变 任 使 用 变量 时 ， 将 自动 调用 这 些 方法 。 最 并 趟 是 与 全 全 关外 连接 的 ， 而 是 必须 
连接 到 含有 革 个 预定 义 方法 名 的 类 。 变量 的 行为 将 由 使 用 该 变量 时 自动 调用 的 方法 来 决定 。 用 于 连 
接 〈 构 造 国 数 ) 和 操纵 《访问 方 法 ) 的 构造 函数 和 方法 都 拥有 预先 定义 好 的 名 称 。 程 序 会 在 读 取 、 
存储 或 撤销 连接 变量 时 自动 调用 这 些 方法 。 其 所 有 的 细节 都 会 在 内 部 予以 处 理 。 构 造 国 数 可 以 请 求 
并 返回 指向 任意 类 型 对 象 的 指针 。 例 如 ， 引 用 可 以 指向 请 求 的 标量 、 数 组 或 散 列 。 但 是 ， 如 果 使 用 
了 TIESCALAR 的 话 ， 则 访问 方法 必须 返回 标量 值 ; 如 果 使 用 的 是 TIEARRAY， 则 应 返回 数组 ; 如 
有 果 使 用 的 是 TIEHASH， 则 应 返回 散 列 。 


















































15.1.3 连接 标量 


为 了 使 用 连接 的 标量 ， 必 须 为 类 定义 一 组 具有 预定 义 名 称 的 方法 。 在 连接 标量 时 ， 应 当 调用 构 
造 国 数 TIESCALAR，, 后 者 会 创建 一 个 底层 对 象 , 并 通过 访问 方法 STORE 和 FETCH 来 操纵 它 。 在 
给 连接 的 标量 赋值 时 ， 用 户 应 当 调用 STORE 方法 ; 如 果 要 显示 连接 变量 的 内 容 ， 则 应 调用 FETCH 
方法 。 这 里 不 要 求 提 供 DESTROY 方法 。 不 过 如 果 已 经 定义 了 这 个 方法 , 程序 就 会 在 取 背 标量 连接 
或 者 在 超出 作用 域 时 调用 它 。 针 对 连接 标量 提供 的 方法 有 如 下 几 种: 

















TIESCRALRAR S$Sclassname，LIST 
STORE S$Ssel1f，S$Svalue 

FETCH $selfE 

DESTROY $self 


在 标准 Perl 库 中 还 提供 了 一 种 基本 模块 , 用 于 连接 那些 为 标量 连接 类 提供 骨架 方法 的 标量 。 如 
要 获得 在 连接 标量 与 包 时 可 供 使 用 的 函数 列表 , 请 参阅 perltie man 页 面 。 基 本 的 Tie::Scalar 包 提 供 
了 new 方 法 ， 也 提供 了 TIESCALAR、FETCH 和 STORE 方法 。 如 需 了 解 该 模块 ， 请 键入 perldoc 
Tie::Scalar 。 


示例 15.1 展示 了 如 何 连接 一 个 标量 ， 以 及 如 何 访问 连接 后 的 标量 


示例 15.1 


# FIIe Is Square.Ppmn 
1 本 有人 








也 Dackage Square:; 

现 SUb TIBESCRALRAR1L 

纪 mx 晴 S 忆 下 2E 人 本 三 本 SEE 人 2 

4 TiS SO 二 三 本 St 

5 blessNSoaEaScaSS # BJIessing aa scalar 
} 

6 SUb FETCH1 

这 mi 本 SEE 三 

8 SSself xx= 2) 


太 夺 的 Tie 布 DBS 


了 3 了 79 





业 
并 


并 
并 
并 


业 


于 


二 





解释 


Souaczew 5 人 
EC 
# Ca771 FEBTCH three times 


# Ca 3STOR 己 


二 CS 玉 丰 克 儿 闷 


# Break the tie that binas the 
# scal1ar to the obyject 


ZIAR(OxITa72aa8) . 


SuUb STORE1 

0 TSSEIREEEE 三 本 全 站 二 六 

了 SSIGHEE 三 SO 人 
| 
工 7 
# User PFog9Fam 

2 use Square: 

3  $object=tie $squared， 

OECD 

5 “Print $Ssquared,"A\n"; 

ES 
1 
记 下 下 和 世人 二 三 二 三 二 二 二 二 三 三 三 三 三 

7 8$sdquared=3: 

8 Print $squared,"\n"i; 
0 
1 

9 untie $Ssquared:; 

OSIE) 

4 opyject 1I5 59uare=SCA 

本 本 光 肥 

全 和 22 泡 
52 

区 
闻 岂 
5 


全 声明 包 以 关 iSduarea 其 文件 是 SdquarePpmes 

2. 类 构造 国 数 是 TIESCALAR 。 它 会 在 待 连接 标量 和 对 象 之 间 创建 关联 关系 。 参 见 本 示例 的 第 
13 行 。 在 这 里 调用 构造 函数 。 连 接 到 对 象 的 变量 是 $squared 。 

3. 构造 函数 的 第 一 个 参数 是 类 名 。 它 由 @_ 数 组 移出 ， 并 赋值 给 $class 。 


上 


Oo ~ON En 


. 再 看 看 第 13 行 。 连 接 变量 


Bi 


10. STORE 方法 的 第 


$squared 的 后 面 跟随 着 类 名 , 其 后 则 是 数字 5。 在 构造 国 数 中 , 从 





数组 @_ 移出 数字 5S， 并 赋值 给 $data 。 
. 创建 指 向 标量 的 引用 ， 并 传递 给 bless 函数 。 该 函数 负责 创建 对 象 。 
.定义 FETC 了 方法。 该 访问 方法 负责 从 对 象 中 检索 数据 。 
.FETCH 方法 的 第 一 个 参数 
. 按 地 址 访问 指针 ， 并 对 它 指向 的 内 容 计 算 平 方 值 。 
定义 STORE 方法 。 该 方法 用 于 给 对 象 赋 值 。 


是 指向 对 象 的 一 个 引用 。 


一 个 参数 是 指向 对 象 的 一 个 引用 。 


11. 把 需要 赋予 的 值 移 出 @_ 数组， 并 赋值 给 $self。 
12. 这 是 用 户 程序 /驱动 程序 。 负 责 把 Square 模块 加 载 到 程序 中 。 
13.tie 国 数 能 自动 调用 TIESCALAR 构造 国 数 。tie 函数 能 把 变量 $squared 连接 到 类 上 ， 并 和 返 


回 指向 新 建 对 象 的 引用 。 
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14. 
下 3 
16. 


下 旋 


18. 
下 


15.1.4 


引用 $object 指向 在 Square 类 中 找到 的 标量 型 变量 。 

自动 调用 FETCH 方法 ， 打 印 $squared 变量 的 当前 值 。 

再 次 调用 FETCH 方法 。 每 当 调用 该 方法 时 , 程序 就 会 再 次 计算 连接 变量 的 平方 值 ,， 并 返 
计算 结果 。 

自动 调用 STORE 方法 。 该 方法 会 把 连接 变量 赋值 为 3。 

自动 调用 FETCH 方法 ， 显 示 其 平方 值 。 

untie 方法 能 解除 对 象 和 连接 变量 之 间 的 关联 。 如 果 定 义 了 DESTROY 方法 , 则 在 这 里 将 自 
动 调用 它 。 





瑟 





连接 数组 


如 要 使 用 连接 数组 , 必须 在 类 中 定义 一 组 具有 预定 义 名 称 的 方法 。 在 连接 变量 时 ,程序 会 调用 构 
造 函 数 TIEARRAY, 由 它 负责 创建 一 个 底层 对 象 ,并 通过 访问 方法 STORE 和 FETCH 操纵 该 对 象 。 
当 需 要 为 连接 的 数组 赋值 时 , 用户 应 调用 STORE 方法 ; 如 需 显示 连接 数组 的 内 容 , 则 应 调用 FETCH 
方法 。 这 里 不 强制 要 求 提 供 DESTROY 方法 。 不 过 如 果 已 经 定义 了 这 个 方法 , 程序 就 会 在 取消 数组 
连接 或 者 在 超出 作用 域 时 调用 它 。 还 有 其 他 一 组 可 选 的 方法 可 用 于 连接 数组 。 其 中 , STORESIZE 
方法 负责 设置 数组 中 的 项 目 总 数 。FETCHSIZE 方法 可 以 通过 scalar(@array) 或 $#array+1l 获取 数 
组 的 大 小 。 而 在 清空 数组 所 有 各 项 时 ， 可 以 使 用 CLEAR 方法。 此 外 还 有 许多 其 他 的 方法 ， 辟 如 
POP 和 了 PUSH, 这 两 个 方法 在 处 理 数组 时 的 功能 与 同名 的 Perl 函数 相同 。 为 数组 提供 的 方法 包括 
如 下 几 种 : 


亚 工 也 
STO 
FRR 
DRES 
STO 
三 
忆 X 下 
卫 X 
DE 工 
CTILE 
PUS 
UNS 
POP 
SHI 
SPEE 


此 夕 



































ARRAY S$Sclassname，， LIST 

RE S$Sself，S$Ssubscript，，S$SvalLlue 
CH $self，S$Ssubscript，S$Svalue 
TROY $self 

RESIZE  S$Sself，S$Sarraysize 
CHSIZE  $selfE 

END S$self，S$arraysize 
[se ema 国 ea 

ETE S$Sself，S$subscript 

AR S$selfEf 

H S$self，LIST 

HIET S$Sself，ILIST 

$self 

FT S$SselEf 

ICE S$Sse1lf，OFESET，ILENGTH， LIST 


卜 标准 Perl 库 中 还 提供 了 一 个 名 叫 Tie::Array 的 类 , 该 类 含有 许多 上 面 列 出 的 预定 义 方 法 ， 








从 而 令 数组 连接 过 程 更 为 方便 。 如 要 查看 该 模块 的 文档 ， 请 键入 perldoc Tie::Array。 


示例 15.2 
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易 
加 
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Dackage Tempy” 

SUDP TIERARRRAY 1{ 
mV es 是 三 是 Sn is 芋 本 5 到 六 二 三 厂 2 
my 和 2eloa 攻 三 昌国 因 太 
EUIESSRNSOO 二 ES 有 
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OOY 


WO 
了 
世 包 
下 3 
14 


北 号 
由 RG 
下 六 


亚 g 
业 光 
2 


# access methoas 

SUb ERETCH 1{ 
my S$self=shift” 
my 三 量 SOREY 
和 


SUb STORE { 
my S$self = ShiIift; 
my 有三 
my 痢 SE 本 > # Thpe Faphrenpheit temperature 


$selLEf->[$Sindx]l]=(SRE - 32) / 1.8:; # Magic worKks here' 


#1V/bin/Pez1l 

# Thpe user/adrivrer Prograzm 
Use TemP:， 

tie QQ1List，"TemP" 

Fa ognonneanenhnesne 
ES SOTE 三 是 二 下 玫 而 NE 下 
EmoEEmeoa 

chomp ($ef = <STDIN>) ， 
ESEmESDE 上 ES 
有 机 可 人 TINE 有 
NT 
NESCETESSICT RISENTIR 
网 攻 和 让 证， 灶 愉 是 本 二 三 王 于 二 二 二 二 于 二 三 二 二 5 


全 辣 丰 (人 本 三 呈 起 生生 和 下 二 咎 这 站 二 本 于 三 记过) 到 
$1List[S$Si]l=$Si; 
ZEECNESITEEE 王 下 2 CSNDORERSLISIS5E 


(OutpPut) 


1 这 


2 


Be9Iinnin9 Panprenphezt: 32 
mazncg em 100 
了 mnCrement aue: 5 


Convrersion Table 


GN 
N 
人 
外 
上 
\D 
心 
心 


人 


Lo 
Co 
tb 
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刷 


这 是 一 个 包 /类 的 声明 。 文 件 是 Temp.pm。 

.TIEARRAY 是 连接 数组 的 构造 国 数 。 它 负责 创建 底层 对 象 。 

. 传递 给 构造 函数 的 第 一 个 参数 是 类 名 Temp 。 

. 创建 一 个 指向 匿名 数组 的 引用 。 

. 把 对 象 岂 人 到 类 中 。 

. 访问 方法 FETCH 负责 从 已 连接 的 数组 中 检索 数据 元 素 。 

. 移出 第 一 个 参数 ， 即 指向 对 象 的 引用 ， 并 将 其 赋值 给 $self。 

. 下 一 个 参数 是 连接 数组 中 下 标的 值 。 移 出 它 并 赋值 给 $indx。 

. 当 用 户 程序 /驱动 程序 试图 显示 已 连接 数组 中 的 一 个 元 素 值 时 ， 返 回 数组 元 素 的 值 。 

10. 访问 方法 STORE 负责 为 已 连接 的 数组 赋值 。 

11. 移出 第 一 个 参数 ， 即 指向 对 象 的 引用 ， 并 将 其 赋值 给 $self。 

12. 下 一 个 参数 是 连接 数组 中 下 标的 值 。 移 出 它 并 赋值 给 $indx。 

13. 从 参数 列表 中 移出 华氏 温度 值 。 参 见 第 19 行 ， 即 在 用 户 程序 /驱动 程序 中 完成 赋值 操作 。 
在 STORE 方法 内 ， 要 赋 的 值 将 保存 在 $F 中 。 

14. 对 于 接受 到 的 已 连接 数组 元 素 , 执行 从 华氏 度 到 摄氏 度 的 转换 运算 。 用 户 程序 / 驱动 程序 将 
始终 看 不 到 该 计算 过 程 ， 就 好 像 是 在 变 魔术 一 样 。 

15. 这 是 用 户 提供 的 程序 ， 加 载 了 Temp.pm 模块 。 

16. tie 国 数 负 责 把 数组 连接 到 类 Temp 上 ， 并 返回 指向 一 个 连接 到 数组 上 的 底层 对 象 的 引用 。 

17. 要 求 用 户 提供 输入 。 用 户 将 提供 起 始 的 华氏 温度 值 、 最 后 的 华氏 温度 值 、 以 及 中 间 的 增 量 值 。 

18. 进入 for 循环 ， 返 代 遍 历 温度 列 表 。 在 转换 完毕 后 ， 绘 制 华氏 温度 对 应 到 摄氏 温度 的 图 表 。 

19. 奇妙 的 地 方 出 现在 这 里 。 在 赋值 时 , 程序 会 自动 调用 STORE 方法 ,利用 公式 完成 从 华氏 温 
度 值 到 摄氏 温度 值 的 转换 ， 并 将 结果 赋值 给 数组 。 这 里 需要 把 指向 已 连接 数组 的 引用 和 数组 
下 标 一 同 传递 给 STORE 方法 。 

20. 在 使 用 printt 函数 时 ， 自 动 调 用 FETCH 方法 ,并 显示 已 连接 数组 中 的 元 素 值 。 这 里 需要 把 

指向 已 连接 数组 的 引用 和 数组 下 标 一 同 传递 给 FETCH 方法 。 
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15.1.5 连接 散 列 


如 要 连接 散 列 ， 必 须 在 类 中 定义 一 组 具有 预定 义 名 称 的 方法 。 在 连接 变量 时 ， 程 序 会 调用 构造 
国 数 TIEHASH 创建 一 个 底层 对 象 , 并 通过 访问 方法 STORE 和 FETCH 操纵 该 对 象 。 当 需要 为 连接 
的 散 列 赋值 时 ， 应 调用 STORE 方法 ; 如 需 显示 连接 散 列 的 内 容 ， 则 应 调用 FETCH 方法 。 这 里 不 强 
制 要 求 提 供 DESTROY 方法 。 不 过 如 果 已 经 定义 了 这 个 方法 ,程序 就 会 在 取 背 散 列 连接 或 在 超出 作用 
域 时 调用 它 。 还 有 其 他 一 组 可 选 的 方法 可 用 于 连接 散 列 。 其 中 ，DELETE 方法 能 够 移 除 指定 的 键 / 值 
对 ;，EXISTS 方法 负责 检查 某 一 个 键 是 否 存在 ;而 CLEAR 方法 则 负责 清空 整个 散 列 。 如 果 用 户 使 用 
了 Perl 内 建 的 keys、values 或 each 方法 , 则 可 调用 FIRSTKEY 和 NEXTKEY 来 遍历 整个 散 列 。 与 
连接 散 列 有 关 的 方法 包括 如 下 几 种 : 


























TIEHRASH S$Sclassname，，， LIST 
FETCH S$se1lf，Skey 
STORE SSselfE SIxkey 
DELETE S$Sself，S$Skey 
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EXISTS S$self，S$Skey 
FIRSTKEY S$Sself 

NEXTKEY S$self，S$1Llastkey 
DESTROY $self 

CLEAR S$Ssel]fEf 


此 外 , 标准 Perl 库 中 还 提供 了 一 个 名 叫 Tie::Hash 的 类 ,该 类 含有 许多 上 面 列 出 的 预定 义 方 法 ， 


从 而 令 散 列 连接 过 程 变 得 更 为 方便 。 如 要 查看 该 模块 文档 ， 请 键入 perldoc Tie::Hash。 


示例 15.3 


人 Te 
#!V/bin/pPer1l 
# 五 ampIe Usin9 tie with a hasPn 


由 Package House: 
2 Sub TIEHRASH 1{ GD ESOOe 
本 my ES 0E 本 0 


my SPTrice 三 Shitft7 
TS 三 汪 SDOEELED 


mV SCmE 二 三 本 SET 
4 En EoT TSREE SC SSENO 
本 my $house = 1{ Color=>S$color， 1 ETeE 
6 Pice=>S$SPrice， 


Rooms=>S$Srooms ， 


到 


名 bless S$house，S$class:; 


8 Sub FETCH { # &ccess methoas 
my SSelf=ShnIiftt7 
my S$Skey=shifty; 

9 ERSECINSESSTIUERNC 

10 return S$selLEf->{fSkeyl:; 


11 sub STORE 1{ 
YE 
my S$key = Shitt: 
my S$value = Shiftty， 
人 
站 又 $selLf->{S$key}=S$Svalue: 


# User/ariver PFog9Fam 
13 use House: 
# 7Tpe ar9uments FEfol1Jowin9 the PacKka9e Dame are 
# are passea as a Jist to the tiea hasph 
# Usa9e: tie phash，packagce，， ar9ument 1stt 
# 7Tpe hash gshome Is tiea to the Packa9e House. 
14 廿 te %home，"House"，155000，"YelLllow" ，9: 
站 Cam 总 记 二 基 下 环 训 蕊 3 和 志 区 站 这 天 太 区 站 入 天 
大 5 EEC EOEREEISSTOUSEERESDomel ecoANRY 
# Ca77s FETC methoa 
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6 Print qq/The number of rooms in the house: $home{"Rooms"}\n/:， 
7 Print qq/ 人 /The Price of the house is: $home{"Price"}N\n/:， 

8  S$home{"Ccolor"}="beige with white 七 im"; # CalIs 5S7OR methoa 
9 print "The house has been paintedq. It is now $home{Colorl .ANn"; 
0 

O 


习 untie (shome) : # Removes the obyject 
(GODERUEN) 
4 EGG 
四 Fetchin9 aa value. 

与 克己 本 OCSER 人 EU OO 
加 Fetchin9 a valIue. 

6 The numper of zooms In Lpe house: 9 
习 Fetchin9 a value. 





EEC 
SEO 征 3 国 六 2UEER 
Petcpin9 a vaJue. 
Te Douse has Peen painteQ。 ITIL I5 mnow De7Ioge WwWIith WwWpIte Ltzz7m. 


解释 

1. 声明 包 /类 House。 文 件 是 House.pm。 

2. 构造 国 数 TIEHASHE 负责 把 散 列 连接 到 对 象 。 

3. 第 一 个 参数 是 类 名 $class。 将 其 他 参数 移出 数组 ， 并 赋值 为 匿名 散 列 “ 即 对 象 ) 中 各 个 键 的 

对 应 值 。 

4. 打印 输出 内 容 ， 表 明 构 造 国 数 类 名 为 House。 
3. 创建 一 个 指向 匿名 散 列 的 引用 ， 并 为 其 中 的 键 / 值 对 赋值 。 它 们 将 成 为 对 象 中 的 属性 。 
6. 把 赋予 芽 名 散 列 的 值 传递 给 构造 国 数 TIEHASH 〔〈 详 见 用 户 程序 的 第 13 行 )。 
7 
8 
9 





.bless 畏 数 将 返回 一 个 指向 新 建 对 象 的 引用 。 

.FETCH 是 一 个 访问 方法 ， 负 责 检 索 散 列 对 象 中 的 值 。 

. 每 当 用 户 使 用 print 函数 显示 散 列 中 的 值 时 ， 程 序 便 会 自动 调用 FETCH 方法 ， 并 打印 本 行内 容 。 

10. 返回 来 自 散 列 的 值 。 

11. 当 用 户 需 要 给 散 列 中 的 每 个 键 赋值 时 ， 程 序 便 会 自动 调用 访问 方法 STORE 。 

12. 要 赋值 给 散 列 的 值 来 自 于 传递 到 STORE 方法 的 参数 列表 。 

13. 这 是 一 段 用 户 程序 /驱动 程序 。 把 了 ouse 模块 加 载 到 程序 中 。 

14. 在 House.pm 模块 中 利用 tie 国 数 调用 TIEHASH 构造 国 数 。 散 列 %home 将 会 连接 到 House 
类 中 的 对 象 上 。 传 递 类 名 House 及 其 三 个 附加 人 参数。 

15. 调用 FETCH 访问 方法 ， 显 示 散 列 中 对 应 于 Color 键 的 值 。 

16. 调用 FETCH 访问 方法 ， 显 示 散 列 中 对 应 于 Rooms 键 的 值 。 

17. 调用 FETCH 访问 方法 ， 显 示 散 列 中 对 应 于 Price 键 的 值 。 

18. 在 为 散 列 赋值 时 ， 程 序 会 自动 调用 STORE 访问 方法 。 在 这 里 是 Color 键 。 

19. print 函数 将 导致 程序 自动 调用 FETCH 访问 方法 显示 指定 散 列 键 〈Color) 的 值 。 

20. untie 函数 负责 解除 散 列 和 所 连接 对 象 之 间 的 关联 。 


示例 15.4 


# FI7Ie Is HEouse.Ppm 
下 Package House: 
2 SuUb TIEHRASH 1{ 
my 苹 SEESISS 呈 三 本 Sha 人 
EmogmEESODSEEUCEST TO ESEKESSEESSSERENTY 
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myESmossresf 三 是 川 志 
bless S$Shouseref，S$Sclass'; 


电 SuUb FEETCH 1{ 
my $self=shift” 
my S$key=shitfty” 
return S$selLEf->{fSkeyl:; 


4 SuUb STORE { 
mi 和 SS SEE 三 本 S 困 可 和 二 六 
my S$key = Shitty; 
my S$value = Shiftt; 
$selLf->{S$Skey}=$value: 


号 SUP ERIRSTKEY 1{ 

my S$self = Shitt7 
6 my Stmp = scalar keys gs{S$Sselfl， 
忆 return each  g%{S$SselLfEl:; 


8 SUDP NEXTKEY 1{ 
S$SselLft=shitty” 
se 


古人 SET 
# FIIe Is mazDn 万 1e 
多 Use House: 
10 七 ie shome， "House" : 
Some EeeS 三 550007 症 有 SSO DOESEOEEDEEOSEES 
Siomee RomSTY 中 天 三 时] 可 也 
# Fetch the aata 
Print "The number of rooms in the house: $home{RoomslNn" 
GTERRE OIC ENTERTOTSETEESS SOmEHETETEEEINRO 
11  ， foreach S$key (keys ($home) ) { 


荆 名 Print "Key is $keyNn"y; 
} 
13 while(  (S$key，S$value) = each(%$home) ) { 
此 可 
14 PEint "Key=$key，Value=S$valueNn"7 


} 


15 untie ($home) : 


(GETEE) 

EREOOF SEO 
Znpe Dumper of rooms In the house: 了 1] 
Tpe Przice of the house 1 工 5 5252000 
em 

Ke 

Key=Rooms， Value= 了 II 

Key=PrIzce VaJue=255000 


解释 
1. 声明 包 /类 House。 文 件 是 House.pm。 
2. 构造 国 数 TIEHASHE 负责 把 散 列 连接 到 对 象 。 
3.FETCH 方法 是 一 个 访问 方法 ， 负 责 检索 散 列 对 象 中 的 值 。 
4. STORE 方法 是 一 个 访问 方法 ， 负 责 将 一 个 值 赋 予 散 列 对 象 。 
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5. 如 果 用 户 程序 调用 了 Penl 内 建 的 keys、values 或 each 函数 的 话 , 程序 便 会 自动 调用 FIRSTKEY 方法 。 

6. 如 果 在 标量 上 下 文 语 境 中 调用 键 ，Perl 会 重 置 散 列 的 内 部 状态 ， 以 保证 下 一 次 调用 each 函 
数 时 仍然 能 够 给 出 第 一 个 键 。 

7. each 函数 会 返回 第 一 个 键 / 值 对 。 

8. 当 用 户 程序 借助 循环 友 代 遍历 某 个 散 列 时 , NEXTKEY 方法 会 知道 前 一 个 键 (PREVKEY ) 
是 什么 ， 并 从 它 开 始 使 用 下 一 个 键 。 

9. 这 是 一 段 用 户 程序 /驱动 程序 。 把 House 模块 加 载 到 程序 中 。 

10,tie 函数 会 在 了 ouse.pm 模块 中 调用 TIEHASH 构造 图 数 。 散 列 %home 将 连接 到 House 类 中 

的 对 象 上 。 

11. while 循环 会 使 用 keys 函数 返 代 遍 历 整 个 散 列 。 在 第 一 次 进入 循环 时 ,调用 FIRSTKEY 方法 。 

12. 打印 每 个 键 的 对 应 值 。 这 个 值 是 由 访问 方法 FIRSTKEY 和 NEXTKEY 返回 的 。 

13. while 循环 会 使 用 keys 国 数 返 代 志 历 整个 散 列 。 在 第 一 次 进入 循环 时 ,调用 FIRSTKEY 方法 。 

14. 打印 每 个 键 和 每 个 值 。 这 些 值 都 是 由 访问 方法 FIRSTKEY 和 NEXTKEY 返回 的 。 








15.2 DBM 文件 


Perl 发 布 包 中 带 有 一 组 称 作 DBM( 即 database management 的 缩写 ) 的 数据 库 管 理 库 文件 .DBM 
文件 的 概念 最 早 源 于 早期 的 UNIX 系统 ， 它 由 一 组 能 够 随机 访问 其 记录 的 C 库 程 序 组 成 。DBM 数 
据 库 文件 以 键 / 值 对 的 形式 保存 数据 , 即 可 以 映射 为 磁盘 文件 中 的 关联 数组 。DBM 支持 多 种 不 同 的 
形态 ， 它 们 都 提供 了 有 关 为 什么 要 使 用 连接 散 列 的 最 佳 原因 。 
DBM 文件 是 一 种 二 进 制 文件 , 可 以 处 理 极为 庞大 的 数据 库 。 使 用 DBM 国 数 来 存储 数据 的 优点 
在 于 其 数据 是 持久 化 的 ; 即 任何 程序 通过 DBM 国 数 都 能 访问 这 些 文件 。 其 缺点 在 于 ， 迄 今 为 止 它 
还 不 能 支持 复杂 数据 库 结 构 、 索 引 、 多 重 表 等 特性 ， 也 设 有 可 靠 的 文件 锁定 和 缓冲 区 清除 机 制 ， 从 
而 令 并 行 化 读 写 和 更 新 操作 存在 潜在 的 风险 5。 用 户 可 以 使 用 Perl 的 flock 函数 实现 文件 锁定 ， 但 
是 如 何 正 确 配 置 该 操作 策略 的 相关 内 容 超出 了 本 书 介绍 的 范围 。 

用 户 不 必 指 明 需 要 使 用 哪个 标准 DBM 包 , 因为 AnyDBM_File.pm 模块 能 从 标准 Perl 库 的 标准 
集合 中 为 系统 获得 正确 的 包 。 如 果 程 序 需要 运行 在 多 种 平台 上 ，AnyDBM_File 模块 也 是 非常 有 用 
的 。 它 能 为 五 种 不 同类 型 的 实现 选取 正确 的 包 ， 详 见 表 15-1; 












































表 15-1 DBM 的 实现 

















odbm UNIX 系统 中 “ 旧 ” 的 DBM 实现 ， 已 由 NDBM 取代 

ndbm UNIX 系统 中 “新 ”的 DBM 实现 

sdbm 标准 Perl DBM， 提 供 了 跨 平台 兼容 性 ， 但 是 只 适用 于 不 大 的 数据 库 

gdbm GNU DBM， 是 一 种 快速 、 可 移植 的 DBM 实现 ， 详 见 www.gnu.org 

bsd-db BSD UNIX 系统 中 的 Berkley DB 实现 ; 它 是 所 有 DBM 中 最 强大 的 ， 详 见 www.sleepycat.com 























龟 ”尽管 Perl 的 tie 函数 可 以 用 于 机 代 dbmopen 函数 ， 但 这 里 还 是 使 用 后 者 ， 因 为 它 比 tie 国 数 更 简单 。 
合 有关 文件 锁定 的 详细 内 容 ， 请 参阅 Descartes, A., and Bunce, T., Programming the Perl DBI，O'Reilly 公 
Associates, 2000, p.35 。 
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下 面 这 些 内 容 来 自 于 AnyDBM_File 文档 ， 列 出 了 各 种 DBM 实现 中 的 一 些 区 别 。 用 户 可 在 合 
令 行 提示 符 下 键入 : 


Perldoc AnyDBM_File 


odqbm ndbm sdbm 9dqpbm bsdQ=aQb 
Linkage comes WwW/ per1 YesS YesS YesS Yes YesS 
SrC comes WwW/ Per1 no no yes no no 
Comes w/ many unix os Yes Yes [0] no no no 
Builds ok on 1uniLXX 电 区 YesS YesS ? 
Code Size ? ? SmalI Dig Dig 
Database Size ? 有 SmalI Dig? ok [1] 
Speed 把 权 SOW OK fas 七 
FTPab1le no no YesS YesS YesS 
Easy to build NV/RA NV/RA Yes Yes ok [2] 
Size 1imits 工 K 4 天 工 攻 【3 Done Done 
Byte-order indqaependent no no no no Yes 
Licensing restzrictions  ? ? no yes no 


15.2.1 创建 并 赋值 DBM 文件 


在 访问 数据 库 前 ， 必 须 先 使 用 dbmopen 函数 或 tie 函数 打开 它 。 该 操作 会 把 DBM 文件 连接 到 
绑 定 的 数组 〈 散 列 ) 上 。 它 会 创建 两 个 文件 : 第 一 个 文件 含有 索引 目录 ， 并 带 有 扩展 名 .dir;， 第 二 
个 文件 则 以 .pag 结尾 ， 含 有 所 有 的 数据 。 这 两 个 文件 都 不 是 可 读 格式 。dbm 函数 负责 访问 数据 内 
容 。 这 些 文件 对 于 用 户 而 言 都 是 可 见 的 。 

像 处 理 其 他 任何 Perl 散 列 一 样 , 将 数据 赋值 给 散 列 。 用 户 可 使 用 Perl 提供 的 delete 函数 删除 元 
素 。 也 可 使 用 dbmclose 或 untie 国 数 关 闭 DBM 文件 。 











格式 


Qpbmopen (hasn，abftilename，moae) 
tie(hasn，Module ，apbfilsname，fags，moae) :; 


示例 15.5 


Qpbmopen (smyhasn， "myabmftile"，0666) 
上 ERIGIS RS 让 忆 ME GSmIE 于 亿 因 民 虽 WE 直人 大局 RERTEOUSSAE 


在 从 某 个 DBM 文件 生成 为 格式 化 数据 时 ，Perl 提供 的 报表 生成 机 制 便 显 得 非常 有 用 。 下 面 这 
个 示例 展示 了 如 何 创 建 、 添 加、 删除 和 关闭 一 个 DBM 文件 ， 以 及 如 何 生成 Perl 样式 的 报表 。 


ne 本) 
#17Vusz/pin/Pezl 
井 PrFO9Fam Dame” makestates.DI 
# TPIzs Dro9ram Creates the Gatapase Usin9 the Qbm FunctIions 
册 UseeRAnyDBMEEIALe EEC SS 
及 dbmopPen ($states，"statedb"，0666”") 11 die: 
# _ Create or open the aatapbase 








到 人 { 
4 ES EeeVSEOI 全 SEE 
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chomp ($abbrev=<STDIN>) ， 
$abpbrev = UC S$abbrev;  # Make Sure abbreviation Is UPppPercase 
写 Drane ne ne namne of neSstEate 
chomp ($Sstate=<STDIN>) 
ee 本 
6 $states{S$abbrev}='"NuS$Sstate"; 半 assigon values to the aatapbpase 
的 TEAOGOEnSTE 硬 SemiEY2 7 
S$Sanswer = <STDIN>:， 
8 FedcTREI ESSNEWSEE 三 二 全 
】} 
9 dbmclLlose(%sstates) : # CIose the aatabase 


(The_ Command 1Line) 
国王 站 S 
二 


(GEGUE) 

加 Enter the abpbpreviation FEor Your State. CA 
与 Enter the mname of the state。 Cal7zrornia 

也 anotper entzy2? Y 


mter tphe apprevatzon Fo Your 5LaLe me 
Enter the Dmname or the State。 Mazne 
Another entzy2 7 

mnEerene abprereteon oo saEEUNR 
Enter the Pname of the state。 Nebraska 
amnotper entzy2? Y 

砚 页 在 e 天 贡生 EE 本 二 记 太 天 ET 有 政工 已 二 本 大 总 天 二 二 二 马丁 丰 过 
Enter the mnamne or the state。 Texas 
another entry2 


a. 在 Win32 系统 中 会 忽略 其 权限 。 
b. 在 某 些 版 本 中 ， 只 能 创建 一 个 带 有 .db 扩展 名 的 文件 。 


克 
圳 














1. AnyDBM _File 模块 负责 根据 具体 安装 版 本 来 选择 合适 的 DBM 库 。 

2. dbmopen 函数 负责 把 一 个 DBM 文件 与 一 个 散 列 绑 定 到 一 起 。 在 这 里 ， 创 建 的 数据 库 文 件 名 
为 statedb ， 而 该 散 列 则 名 叫 %states。 如 有 果 该 数据 库 不 存在 ， 则 必须 给 出 有 效 的 访问 权限 模 
式 。 这 里 给 定 的 八进制 模式 为 0666。 在 UNIX 型 系统 中 ， 该 模式 的 意思 是 允许 所 有 用 户 对 它 
进行 读 写 操作 。 

3. 进入 标记 的 代码 块 。 

4. 要 求 用 户 输入 所 在 州 名 的 缩写 。 该 输入 将 用 于 填充 %states 散 列 。 

5. 要 求 用 户 输入 所 在 州 名 。 

6. 把 值 state 赋予 散 列 %states， 该 散 列 的 键 是 州 名 的 缩写 。Nu 转 义 序列 会 让 州 名 的 第 一 个 字母 
变 为 大 写 形式 。 在 赋值 时 ， 程 序 后 台 会 通过 tie 机 制 为 DBM 文件 赋予 新 的 值 。 

7. 要 求 用 户 把 另 一 项 输入 到 DBM 文件 中 。 


8. 如 果 用 户 还 要 给 DBM 文件 添加 其 他 项 , 程序 便 会 转 到 标记 为 TRY 的 代码 块 顶 部 ,然后 开始 


处 理 它 。 
9. 将 DBM 文件 绑 定 到 %states 散 列 后 ， 使 用 dbmclose 国 
数 来 实现 )。 


函数 中 断 连 接 〈 亦 可 通过 调用 untie 函 
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10. 清单 显示 了 所 有 由 dbmopen 函数 创建 的 文件 列表 。 甚 中 第 一 个 文件 makestates.pl 是 一 个 Perl 
脚本 。 第 二 个 文件 statedb.dir 是 一 个 索引 文件 。 最 后 一 个 文件 statedb.pg 则 是 含有 散 列 数据 的 文件 。 


15.2.2 从 DBM 文件 中 检索 数据 
在 打开 DBM 文件 后 ，Perl 脚本 就 把 它 连 接 到 一 个 相关 联 





的 散 列 上 。 其 所 有 实现 细节 都 对 用 户 


隐藏 起 来 。 其 数据 检索 过 程 既 快 速 又 方便 。 在 此 过 程 中 , 用 户 可 以 像 对 待 普通 的 Perl 散 列 一 样 操作 





它们 。 由 于 散 列 与 DBM 文件 相连 ， 因 此 检索 得 到 的 数据 均 来 





自 于 DBM 文件 。 





示例 15.7 


esSeem) 
#1V/pbin/Ppe1l 
# Pro9ram name: 9etstates.Pp1 


# TPIs Dro9ram FEetches the aata from the Qatapase 


# ana 9enerates a report 


the aata5ase 


下 use AnyDBM Eile:， 
列 dbmoPen ($states，"statedb"，0666) : # OPeDn 
习 Qsortedkeys=soLrt keys $%states : # Sort the aatapbase DY 大 eyS 
4 foreach S$Skey ( Qsortedqkeys ) ({ 
与 S$value=S$states{Skeyl'， 
人 

6 WEItey 

} 
融 Qbmclose(sstates) : # CIose the database 
8 GTENE SRDOUELROR = 

Abbreviation State 
电 


本 OOeimaie 本 SS 有志 避 下 三 
网 攻关 
Skeyv S$Svalue 


11 format SUMMARY= 


Numper of states:@### 


SO 
S$S~=SUMMRARY， 
WEILte7 
GE 
PPFrev7atzon State 
县 尺 ArI2zoDna 
CA 图 必 六 有 2 的 有 有 王 | 
M 瑟 Maine 
NV 瑟 NepFasKka 
2 Texas 
太 肥 Wasphzin9toDn 


Namper of States: 6 
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.AnyDBM File 模块 会 根据 有 具体 的 安装 版 本 来 选择 合适 的 DBM 库 。 
. dbmopen 国 数 负 责 把 一 个 DBM 文件 与 一 个 散 列 绑 定 到 一 起 。 此 处 数据 库 文 件 名 为 statedb， 
而 该 散 列 则 名 叫 %states。 

3. 在 打开 DBM 文件 后 , 用户 可 以 访问 其 键 / 值 对 。 这 里 把 sort 函数 与 key 函数 结合 起 来 使 用 ， 
以 便 对 散 列 %states 中 的 键 进 行 排序 。 

4. foreach 循环 友 代 遍历 存储 键 的 列表 。 

5. 每 当 遍 历经 过 循环 时 ,就 从 散 列 %states 中 检索 另外 的 值 , 这 些 值 是 与 DBM 文件 连接 在 一 起 的 。 

6. 在 给 变量 $total 添加 一 个 值 后 〈 跟 踪 DBM 文件 中 的 项 目 数 ), 调用 write 函数 报告 温度 情况 ， 
并 生成 格式 化 后 的 输出 。 

7. 关闭 DBM 文件 ， 即 撤销 散 列 %states 与 DBM 文件 之 间 的 关联 。 

8. 这 是 一 个 格式 模板 ， 用 于 在 每 页 的 顶部 放置 一 个 标题 。 

9. 通过 一 个 点 号 结束 模板 的 定义 。 

10. 这 是 为 所 有 打印 到 标准 输出 的 页 面 主体 而 准备 的 格式 模板 。 下 面 的 图 像 行 负责 格式 化 位 于 

到 像 下面 各 行 的 键 / 值 对 。 

11. 在 报表 的 底部 调用 格式 模板 。 
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15.2.3 从 DBM 文件 删除 项 


若 要 清空 整个 DBM 文件 ， 用 户 可 使 用 undef 国 数 , 例如 ，undef %states 会 清除 示例 15.8 所 创 
建 的 DBM 文件 中 所 有 的 项 。 如 有 果 只 需 删 除 其 中 一 个 键 / 值 对 ， 则 可 使 用 delete 函数 ， 并 为 它 提供 
连接 到 DBM 的 散 列 中 合适 的 键 。 

















人 TEST 
#!1V/bin/pPer1l 
# cbmopen is an olader methoa of openin9 a abm 万 Je Put szIimpIer 
二 二 放 研 me 是 CDE 央 SPM SEOZDNeULREO7 CeC 
相 mLEDe Scanoarc Per JI7Dram7 Proozam Dance emn5statec DI 
也 use AnyDBM Eile:; 


匀 dbmoPen ($states，"statedb"，0666) 11 die: 
加 全 二 2 
Eee EapblosYEaEO EECTEREEnemSEa ETemewe Sa 
chomp ($abbrev=<STDIN>) ， 
S$Sabbrev = uc S$Sabbrev:  # Make sure appbreriation is Uppercase 
号 delete S$states{"5$Sabbrev" jl :; 


Pint "S$abbrev removed.ANn"i; 

Eee 

S$Sanswer = <STDIN>:， 

FedoenRYEEEESSNSNETEE 三 /0 全 
4 Qbmclose(sstates) : 


(GE 

35 $ zemstates .P1 
Enter the apbpprevrIiation For the state Lo Femove。， 了 TX 
TX FemovreaQ ， 
Another entzry2 


剖 坷 的 Tie 布 DBS 397 





7 


$ getstates .P1 


apPPrevIatioDn State 

又 民 有 FIZODa 

CA 加 0 二 | 

JIM 玉 MaziDne 

TV 瑟 NebprasKa 

太 肥 aspzno9toDn 

Namper of 5tates: 与 

$ 1s 

9etstates.PJ makestatces Pu mstates.PpJ stateap.azr 


sateap.pa9 


解释 








1.AnyDBM_File 模块 会 根据 有 具体 的 安装 版 本 来 选择 合适 的 DBM 库 。 
2. dbmopen 国 数 负责 把 一 个 DBM 文件 与 一 个 散 列 绑 定 到 一 起 。 此 处 数据 库 文件 名 为 statedb， 
而 该 散 列 则 名 叫 %states 。 
3. 在 打开 DBM 文件 后 , 用户 可 以 访问 其 键 / 值 对 。delete 函数 能 够 删除 与 DBM 相连 接 的 散 
列 %states 中 对 应 于 指定 键 的 相应 值 。 
4. 关闭 DBM 文件 ， 即 撤销 散 列 %states 与 DBM 文件 之 间 的 关联 。 
5. 执行 Perl 脚本 remstates.p1， 从 DBM 文件 中 删除 Texas 。 
6. 执行 Perl 脚本 getstates.p1， 显 示 DBM 文件 中 的 数据 ， 可 以 看 到 Texas 已 被 删除 。 
7. 清单 列 出 了 为 产生 这 些 示例 结果 而 需要 创建 的 文件 。 其 中 最 后 两 个 是 由 dbmopen 创建 的 DBM 
区 人 
示例 15.9 
册 Use Recntl7 
色 SEE 
3 tie(g%address，'SDBM File'，'email.dbm'，O RDWRIO CRERAT，0644) 
| 四 EGRIE 有 SI 
4 Print "The package the hash is tied to: "zef tied %address, "An"; 
5 Print "Enter the email adqress.N\n"; 
chomp ($email1=<STDIN>) ; 
6 Print "Enter the frst name of the addressee.NXn" 
chomp ($fizstname=<STDIN>) ; 
Sirstname = 1LCc S$Sfirstname: 
Sirstname = Ucfirst S$firstname: 
甩 $address{"S$Semai1L"}=S$Sftirstname: 
8 while( (Semai1l，S$Sirstname)=each(saddress) ){ 
TEN 
} 
中 untie saddress: 
解释 
1. 使 用 文件 控制 模块 对 DBM 文件 执行 必要 的 操作 。 这 里 定义 了 O_RDWR 和 QO_CREAT 标志 ， 
在 创建 DBM 文件 时 将 要 用 到 这 些 标志 。 
2. 这 里 用 到 了 SDBM_File 模块 。 这 是 由 标准 Perl 提供 的 DBM 实现 ， 能 跨 平 台 运 行 在 多 种 系 


统 平台 上 。 
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LD 


. 本 示例 没有 使 用 dbmopen 国 数 创建 或 访问 DBM 文件 ， 而 是 使 用 了 tie 图 数 。 散 列 %address 
连接 到 了 包 SDBM File 上 。 其 DBM 文 件 名 是 emailLdbm。 如 果 该 数据 库 不 存在 的 话 ,O_CREATE 
标志 会 让 程序 创建 它 ， 并 赋予 它 可 读 可 写 (O_RDWR) 的 权限 。 

如 果 调 用 成 功 ，tie 国 数 会 返回 真 。ref 国 数 将 返回 散 列 连接 到 的 包 名 。 

在 本 示例 中 , 使 用 电子 邮件 地 址 作为 散 列 %address 的 键 , 而 相应 的 散 列 值 则 是 用 户 姓名 。 由 
于 键 始终 是 惟一 的 ， 因 此 这 种 机 制 可 以 避免 存 入 重复 的 电子 邮件 地 址 。 要 求 用 户 提 供 输入 。 
要 求 用 户 对 各 个 键 提供 相应 的 值 。 

在 这 里 为 数据 库 赋 予 新 的 项 。 辐 它 赋予 键 / 值 对 ， 并 保存 到 DBM 文件 中 。 

each 国 数 将 从 连接 到 DBM 文件 的 散 列 中 取出 键 / 值 对 。 显 示 DBM 文件 内 容 。 

untie 函数 负责 撤销 散 列 和 DBM 文件 之 间 的 关联 。 





二 
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15.3 ”读者 应 当 学 到 的 知识 


.读者 应 当 了 解 Perl 是 如 何 使 用 tie 机 制 来 把 标量 、 数 组 和 散 列 转换 为 对 象 的 。 
.tie 国 数 会 返回 什么 内 容 ? 

. 为 什么 说 DBM 很 有 用 ? 

.DBM 文件 一 般 保存 在 哪里 ? 
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15.4 下 章 简 介 


尽管 DBM 文件 能 在 用 户 存储 大 批 记录 时 节省 大 量 的 时 间 和 空间 ， 但 用 户 可 能 最 终 还 是 感到 ， 
自己 真正 需要 的 应 当 是 一 个 关系 型 数据 库 ， 如 Oracle、Sybase 或 MySQL。 下 章 内 容 将 介绍 关系 型 
数据 库 〈 尤 其 是 MySQL ), 以 及 Perl 是 如 何 与 这 些 数 据 库 实现 交互 的 。 读 者 将 会 学 习 如 何 使 用 DBI 
模块 ， 还 有 一 些 负责 在 MySQL 数据 库 中 连接 、 查 询 、 刷 新 和 删除 记录 的 方法 。 
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16.1 静态 和 动态 Web 页 面 History Bookmarks 
Toolbars 
读者 在 浏览 nternet 时 ， 会 从 一 个 站 点 跳 到 另 一 个 站 点 ， 浏 览 SS 
种 各 样 的 Web 页 面 。 这 些 页 面 可 能 是 简单 的 主页 ,也 可 能 是 像 Google 3 
或 Amazon 这 样 完善 的 网 站 。 哪 怕 最 简单 的 web 页面 在 本 质 上 都 不 5top 二 
过 是 一 个 文件 ， 它 含有 HTML、 文 本 信息 、 格 式 化 指令 以 及 名 叫 链 Reload CtrlHR 





接 (links) 的 带 有 下 划 线 的 短语 。 链 接 允 许 用 户 连 接 到 其 他 文档 上 ， 
这 些 文档 可 以 位 于 同一 台 计算 机 中 ， 也 可 能 位 于 网 络 中 的 其 他 计算 “| Te 下 

机 上 。 文 档 〈 又 称 作 超 文本 文档 ) 负责 告诉 浏览 器 如 何 显示 文档 内 “| agesse 
容 ， 辟 如， 使 用 哪 种 字体 、 颜 色 与 样式 。 在 页 面 中 还 可 能 含有 超 媒 体 character Encoding 

















Ce 信息 , 包括 图 像 、 声 音 、 影 视 乃 至 指向 其 他 文档 的 热 链 Page Serce 和 Ctrl+U 
接 (hotlink)。Web we 吉 中 创建 ， 这 样 得 到 的 HIML Full Screen 习 Fll 


Eee file )。 用 户 只 需 在 浏览 器 的 荣 单 栏 中 点 击 


16-1 查看 源 又 





source of' http://www.google.comZ -MOzillaiFirefo 台 





如 了 台 wew Hep 





<html><head><meta http-eduiv="concenc-cype" Content='"LEXCc/ htcml: 
pboqyzd arp .hftEonc-Esamily:arialr Sans-Serif} 

.hftzonc-size:20pX} 

.hfcolor:#3366cc} 

,GCColor :#ODOc) 

#gbar{Eloac:1Lefc:heighc:22px 

#gbarlf(border-czop:lpx solid #c9d7f1l:font-size:0;height :1px:posil 
#gbar aftcolor:#ODc》 

#gbar ,gbarqdfbackgrounaQ:#fff:boraer:lpx soliQ:borQer-color :#c9d 
#ogbar .gpbarQd aftdisplay:blockrpaaaing: .2Em .5ermCEXCc-Qecoracion: 
#gbar .gbarQq aihover{backgrounaq:#36cC:CoLor:#EEE》 

#gbar .gbarp(Ttonc-size:1l3px:padqding-right :1erm} 
#guserfEonc-size:l3pxpadqing-bottom:3px !imporcanczpaqQing-copb 
#gbarcttonc-size:0:hedighc:1lpx》 

--><7StY1Le> 


<Script Janguage="UJavaScripbptn> 
<!-- 








图 16-2 查看 google.com 的 部 分 源 文件 
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为 了 让 浏览 器 能 正确 识别 页 面 文件 , 其 文件 名 应 当 以 .html 或 ,htm 结尾 。HIML 标签 负责 告诉 
浏 览 右 如 何在 屏幕 上 显示 文档 内 容 。 学 会 基本 的 HIML 语法 并 不 困难 ， 但 是 读者 若 想 设 计 开 发 出 
精彩 有 趣 的 站 点 , 那 可 就 另 当 别论 了 。 目 前 世界 上 有 数 以 千 计 的 公司 专注 于 为 其 他 企业 开发 Web 站 
点 ， 并 力图 在 这 片 竞 争 激烈 的 市 场 站 稳 脚 跟 。 

有 两 种 不 同类 型 的 页 面 : 静态 页 面 和 动态 页 面 。 静 态 页 面 并 不 要 求 与 用 户 实现 交互 ， 甚 作用 主 
要 是 向 用 户 发 送 业 已 存在 的 文档 。 它 们 类 似 于 书本 中 的 页 面 ,一 般 都 负责 描述 某 个 公司 提供 的 服务 。 
它们 可 能 会 制作 得 非常 精美 且 非 常 有 趣 ， 但 无 法 按照 用 户 需 求 去 处 理 信 息 。 另 一 方面 ， 动 态 页 面 则 
是 “ 活 ” 的 ,它们 能 够 接受 和 检索 来 自用 户 的 信息 、 生 成 特殊 定制 的 内 容 、 搜 索 文 本 、 查 询 数据 库 、 
乃至 动态 地 生成 文档 。 它 们 还 可 以 根据 不 同 用 户 的 请 求 不 断 改 变 生 成 的 信息 。 这 些 动态 页 面 不 仅 包 
售 HIML 文本 文件 ,还 受 程序 、 脚 本 的 驱动 。 这 些 程序 或 脚本 负责 与 服务 器 实现 交互 ， 并 将 各 类 信 
息 发 送 到 用 户 的 浏览 器 中 。 为 了 在 程序 和 服务 器 之 间 往 返 发 送 数据 ， 需 要 使 用 一 个 服务 端 程序 。 服 
务 器 本 身 会 把 用 户 请 求 转 发 给 服务 端 程序 ， 并 由 它 负 责 管理 这 些 信息 ， 璧 如 从 表单 解析 输入 数据 ， 
或 者 从 某 个 文件 或 数据 库 中 检索 出 数据 作为 用 户 请 求 的 结果 ， 最 后 再 将 这 些 数 据 发 送 回 服务 器 。 

CGI (公共 网 关 接 口 ) 协议 定义 了 服务 器 应 当 如 何 与 这 些 程序 进行 通讯 。 其 功能 是 允许 web 服 
务 器 越过 它 的 常规 边界 ， 以 便 从 外 部 数据 库 或 文件 中 检索 和 访问 信息 。 它 还 定义 一 套 规 范 ， 明 确 了 
如 何 把 数据 从 脚本 传送 到 服务 器 ， 或 者 从 服务 器 传 给 脚本 。 网 关 程 序 〈gateway program) 又 称 作 
CGI 脚本 ， 它 可 以 用 任何 语言 编写 ， 但 是 Perl 已 经 成 为 它 事实 上 的 标准 语言 。 这 主要 应 当归 功 于 
Perl 出 色 的 灵活 性 和 易 用 性 。 

如 果 读 者 已 经 阅读 了 前 面 的 章节 ， 就 应 当 很 容易 地 获得 Perl 解释 器 ， 也 明白 它 是 可 移植 的 。 此 
外 ， 读 者 一 定 也 了 解 了 Perl 处 理 正 则 表达 式 、 文 件 、 套 接 字 和 IO 的 功能 。 在 了 解 了 Perl 之 后 ， 编 
写 CGI 脚本 就 是 小 菜 一 碟 了 。 这 里 关键 是 要 确保 正确 地 安装 了 服务 器 和 Perl, 并 将 脚本 放 到 服务 器 
能 够 找到 的 目录 下 。 此 外 还 必须 正确 地 设 定好 路 径 名 ， 以 便 让 服务 器 知道 脚本 保存 在 何 处 ， 以 及 如 
何 拿 到 所 需要 的 库 。 如 果 安 装 和 实现 的 步骤 不 正确 ,那么 其 后 所 有 的 努力 就 都 是 白费 力气 。 如 果 读 
者 发 现 浏 览 器 正在 抱怨 没有 找到 请 求 的 文件 、 程 序 执 行 遭 到 禁止 、 或 者 文档 里 面 空空 如 也 的 话 ， 那 
可 真是 一 件 令 人 灰心 的 事情 。 

编写 本 章 的 目标 并 不 是 要 让 读者 成 为 精通 Web 的 设计 人 员 , 而 是 希望 读者 能 大 概 了 解 Perl 是 
如 何 适 应 CGI 模块 以 及 如 何 创建 动态 Web 页 面 的 。 有 的 时 候 总 体 设计 图 是 理解 设计 目标 和 计划 的 
关键 所 在 。Internet 上 充斥 着 海量 的 Web 相关 信息 ， 其 他 很 多 书籍 也 对 这 方面 内 容 有 更 为 深入 的 
介绍 。 


今天 , 服务 器 本 身 就 内 置 了 PHP 和 和 ASP.net 等 服务 器 编程 语言 ,使 得 对 CGI 脚本 的 需求 越 来 


























































































































Browser / Server /CGI 


] HTTP 1 CGI 
Us -一 一 | Browser Ser 一 一 一 > CGI 
故 - 一 一 | HTML 村- 一 一 才 一 一 program 
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图 16-3 ”浏览 器 、 服 务 器 和 CGI 程序 之 间 的 关系 
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越 痰 化。 不 过 鉴于 Perl 的 流行 程度 , 再 加 上 现在 还 有 大 量 的 CGI 脚本 尚 在 使 用 中 , 因此 就 出 现 了 
mod_Perl〈 外 号 “Perl 兴奋 剂 ”。 该 组 件 允 许 用 户 把 Perl 解释 器 内 和 到 Apache 服务 器 中 ， 从 而 
提升 Perl 的 性 能 ， 并 让 那些 喜欢 用 Perl 创建 动态 页 面 的 开发 者 能 够 享受 到 更 快 更 强大 的 CGI 脚 
本 功能 。 如 需 了 解 有 关 mod_Perl 的 更 多 信息 ， 请 读者 参阅 附 未 D 和 http://Perl.apache.org/。 









xD) Mozilla Firefox 


”El 驶 ww 四 Bookmaks TIook Hep 





-OnFiOUrS 


|D 攻 昌 | 目 到 区 加 | 兄 中 名 | 之 冯 


捍 - 定 : 请 [ ] http:j1ocahosjcgHbnjihelo gl 
8icINPeTL\blinNPeTl 
儿 Send this output to the brovser 合 Getting Started 6 LUokest Headines5 ，] to: 1414 Yon Nes5 ,… 
print “Content-type: teXtAplainNDNAD” : 
Bint “Helio。，vorldi\D” : Hello，Yorla' 








图 16-4 一段 向 浏览 器 发 送 输出 的 简单 CGI 程序 





16.2 工作 原理 
客户 端 与 服务 端 之 间 的 Internet 通信 


HTTP 服务 器 。 我 们 将 在 第 20 章 “ 网 上 发 送 ” 讨 论 用 于 常规 网 络 操作 的 客户 /服务 器 模型 和 
TCP/P 协议 。Internet 上 的 通讯 都 是 由 TCP/P 连接 负责 处 理 的 。 整 个 web 都 以 此 为 基础 。 服 务 器 
端 会 响应 客户 端 〈 浏 览 器 ) 的 请 求 , 并 通过 发 送 文 档 、 执 行 CGI 程序 或 执 出 出 错 消 息 的 方法 提供 反 
馈 。Web 使 用 超 文 本 传输 协议 〈HyperText Transport Protocol) 即 HITTP 协议 来 确保 服务 器 端 和 客 
户 端 互相 能 理解 对 方 在 说 什么 。 不 过 这 并 不 影响 TCP/P 协议 的 实现 。HTTP 对 象 会 映射 到 传输 的 
数据 单元 中 , 该 过 程 超出 了 本 书 的 讨论 范围 。 这 是 一 个 简单 而 直观 的 过 程 , 通常 Web 用 户 都 不 会 党 
察 它 〈 有 关 HTTP 协议 的 技术 细节 请 参阅 www.cis.ohio-state.edu/cgi-bin/rfc/rfc2068.html。) HTTP 
协议 是 为 了 方便 Web 处 理 超 媒体 信息 而 建立 的 , 它 是 一 种 面向 对 象 和 无 状态 的 协议 。 在 面向 对 象 技 
术 中 ， 文 档 和 文件 都 称 作对 象 ， 而 与 HITP 协议 相关 的 操作 都 称 为 方法 。 当 协议 是 无 状态 时 ， 客 户 
端 和 服务 器 端 都 不 保存 对 方 的 信息 ， 而 只 是 管理 自己 的 状态 信息 。 

一 且 在 Web 服务 器 和 客户 端 之 间 建 立 了 TCP/PP 连接 , 客户 端 便 可 向 服务 器 请 求 某 种 服务 。Web 
服务 器 一 般 都 运行 在 众所周知 的 80 端口 ， 通 过 在 请 求 中 发 送 Accept 语句 ， 客 户 端 可 以 告诉 服务 器 
可 处 理 何 种 数据 。 例 如 ， 一 个 客户 端 可 能 只 能 接受 HTML 文本 ， 而 另 一 个 客户 端 可 以 接受 声音 、 
像 以 及 文本 。 服 务 器 会 尝试 处 理 客 户 端 发 送 的 请 求 〈 请 求 和 回应 内 容 都 是 ASCII 文本 )， 并 将 信息 
发 回 给 客户 端 〈 六 览 器 )。 


示例 16.1 


(ClLient's (Browser) Redquest) 

ER 人 ET 

BonnecEon Ke 三 疡 三 AN7e 

User-Agent: Mozilla/4.0 Gold 

Host: severname .Com 

Accept: image/gif，image/x-xbitmap，， image/]jpeg，image/P]jpPpeg xy/rx 
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示例 16.2 


(Servez 's ResPonse) 

0G 

Server: Apache/1.2b8 

Date> Mon 22 Uan 2007 13343222 GMT 
assmeonhsae Mn 人 IEC 内 人 人 局 
Gontentslengtm 288 

Accept=Ranges: bytes 

Connection: close 

GTEEREEiY ER 和 攻 有 有 区 人 ET 


和 而 本 交州 芝 可 三 放 二 故人 本 玫 的 机 玫 下 之 
SEE 全 WIIGGMW 王 三 三 

</HTMIL> 

BenmecEmeonEelosewoy 环 fcoremgmnmhnecsEE 


响应 会 确认 所 用 的 HITP 版 本 .用 于 描述 服务 器 尝试 结果 【成功 或 失败 ) 的 状态 代码 .首部 和 数 
据 。 消 息 的 首部 表明 该 请 求 是 否 正确 ,返回 什么 样 的 数据 类 型 ( 例如 ,其 内 容 类 型 可 能 是 htmltext)， 
以 及 要 发 送 多 少 个 字 节 。 消 息 的 数据 部 分 含有 实际 要 发 送 的 文本 内 容 。 

然后 ， 用 户 便 可 在 屏幕 上 看 到 格式 化 的 页 面 。 在 页 面 中 含有 指向 其 他 页 面 的 高 亮 超 链 接 。 不 管 
用 户 是 否 点 击 这 些 超 链接 ， 只 要 文档 显示 完毕 ， 这 一 次 事务 就 算 完成 了 ，TCP/IP 连接 会 马上 关闭 。 
在 关闭 连接 后 ， 如 果 出 现 了 其 他 请 求 ， 则 会 另外 创建 新 的 连接 。 客 户 端 和 服务 器 并 不 关心 前 一 次 事 
务 的 内 容 ， 也 就 是 说 协议 是 无 状态 的 。 

HTITP 协议 还 可 用 于 在 六 览 右 、 代 理 和 网 关 之 间 进行 通信 ， 其 中 的 网 关 可 以 连接 到 由 下 TIP、 
Gopher、WAIS 和 NNTP 等 协议 支持 的 其 他 Internet 系统 上 。 

HTTP 状态 代码 和 访问 Log 文件 。 当 服务 器 响应 客户 端 时 ， 会 发 送 含有 请 求 处 理 方式 的 信息 。 
如 果 其 状态 代码 取 值 在 100 到 300 之 间 ， 大 多 数 Web 剖 览 器 都 会 默默 地 处 理 它们 。 小 于 100 的 状 
态 代码 表明 正在 处 理 服务 器 请 求 。 最 为 常见 的 状态 代码 是 200， 表 明 请 求 处 理 成 功 ， 也 就 是 说 成 功 
地 接受 并 满足 了 请 求 信 息 。 

读者 不 仿 查看 一 下 服务 器 上 的 访问 日 志 ， 便 可 观 罕 到 服务 器 在 完成 一 个 事务 后 会 发 送 什么 样 的 
代码 9 (CHTTP 状态 代码 列表 详 见 表 16-1)。 下 面 的 示例 取 自 Apache 服务 器 访问 日 志 的 摘录 。 该 日 
志 记 录 了 请 求 信 息 以 及 作为 请 求 结果 而 生成 的 状态 代码 。 出 错 日 志 中 含有 一 般 会 由 程序 发 送 到 屏幕 
上 的 标准 出 错 消息 ， 和 譬如 语法 或 编译 错误 。 







































































表 16-1 HTTP 状态 代码 





状态 代码 消息 

100 继续 〈Continue ) 

200 成 功 (Success，OK) 

204 无 内 容 (No Content ) 

301 文档 被 移动 (Document Moved) 

304 文档 未 被 移动 ， 无 消息 体 (Document Not Modified，No Message Body ) 











全” 有关 状 态 代 码 的 详细 知识 ， 参 见 www.w3.org/ProtocoUHTTP/HTRESP.html 
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〈 续 ) 
状态 代码 消息 
400 错误 请 求 (Bad Request) 
401 非法 授权 (Unauthorized ) 
403 禁止 (Forbidden ) 
404 无 法 找到 (Not Found ) 
405 不 允许 的 方法 (Method Not Allowed) 
500 内 部 服务 器 出 错 〈Internal Server Error) 
5S01 未 曾 实 现 (Not Implemented ) 
503 服务 不 可 用 〈Service Unavailable) 


示例 16.3 


(EREom Apache'"s Access 1og) 


沁 DR 
0 


人 和 有 有 交合 证 有 0 有 和 和 
TREE3O4EE 





OO 
TEL SO 四 是 2 
解释 


1. 服务 器 主机 名 为 127.0.0.1， 其 后 是 两 个 短 横 表 示 未 知 值 ， 如 用 户 ID 和 密码 。 这 里 记录 了 很 
多 信息 ， 包 括 其 请 求 的 时 刻 ， 其 请 求 类 型 为 GET 〈 详 见 “GET” 一 节 )， 其 访问 的 文件 是 frstcgipl。 
其 协议 为 HTTP/1.1。 其 服务 器 发 出 的 状态 代码 是 200, 表示 处 理 成 功 ! 该 请 求 已 经 处 理 
5 

2. 状态 代码 304 表明 该 请 求 将 得 到 一 个 不 售 消 息 体 且 不 能 修改 的 文档 。 在 本 例 中 , 该 文件 就 是 
一 个 jpeg 图 像 文件 。 

3. 状态 代码 500 表明 发 生 了 内 部 服务 器 错误 ， 也 就 是 说 服务 器 内 部 的 某 个 地 方 出 现 了 错误 ， 尽 
如 Perl 程序 中 的 语法 错误 ， 或 者 在 匆 行 中 指定 了 不 正确 的 全 路 径 。 浏 览 器 的 请 求 没有 得 到 
请 足 。 发 送 的 字 节 一 共 是 623 个 





URL (统一 资源 定位 符 )。UREL 用 于 浏览 Web 。 用 户 只 需 单 击 热 链 接 ， 便 能 访问 新 的 页 面 ; 
或 者 也 可 在 浏览 器 的 地 址 栏 中 输入 URL， 就 能 打开 文件 或 运行 脚本 。 它 是 一 种 虚拟 地 址 ， 负 
责 指定 页 面 、 对 象 、 脚 本 等 实体 的 位 置 。 它 引用 了 现 有 的 协议 ， 艾 如 HITP、Gopher、FTP、 
mailto、 好 le、Telnet 或 news (〈 详 见 表 16-2 )。 典 型 的 基于 当前 流行 的 Web HITP 协议 的 UREL 
格式 如 下 : 


http:/www.comp.comy/dir/text.html 
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表 16-2 Web 协议 

协议 功 能 示 例 

http: 超 文 本 传输 协议 (HyperText Transfer http:// Www:nnic.noaa.govV/cgi-bin/netcast'c8i 打开 
Protocol) Web 页 面 或 启动 CGI 脚本 

ftp: 文本 传输 协议 (File Transfer Protocol) ftp://jague.gsfc.nasa.gov/pub 

mailto: 基于 e-mail 地 址 的 邮件 协议 mailto:debbiej@aol.com 

人 ile: 打开 本 地 文件 file:/opt/apache/htdocs/file.html 

telnet: 打开 Telnet 会 话 telnet:/nickym@netcom.com 

DewWs: 通过 新 闻 服 务 器 打开 新 闻 会 话 news:alt.fan.john-lennon Name or Address 





URL 中 提供 的 两 项 基本 信息 是 协议 http 和 该 协议 需要 的 数据 ,如 http:/www.comp.com/dir/text， 
html。 表 16-3 进一步 定义 了 UREI 的 各 组 成 部 分 。 


表 16-3 URL 各 部 分 
































组 成 部 分 描述 
协议 诸如 HITP、Gopher、EFTP、Telnet 和 news 之 类 的 服务 
主机 /IP 号 DNS 主机 名 或 了 地 址 
庄 口 服务 器 使 用 的 TCP 端口 号 ， 一 般 都 是 80 端 
路 径 服务 器 上 对 象 的 路 径 和 文件 名 引用 
参数 服务 器 上 对 象 使 用 的 具体 参数 
查询 CGI 脚本 的 查询 串 
段 指向 对 象 子 集 的 引用 


默认 的 HITP 网 络 端口 是 80; 如 果 HITP 服务 器 驻 留 在 其 他 网 络 端口 上 ， 如 www.comp.com 
上 的 12345 端口 ， 则 其 URL 应 当 写 作 : 


http : 


/Wwww.comp.com:12345S/dir/text.html 





并 不 是 每 个 URL 部 分 都 是 必需 的 。 如 果 读 者 是 在 Netscape 浏览 器 的 定位 器 〈Locator) 栏 中 搜 


索 文档 ， 











则 对 URL 无 需 提 供 端 口号 、 参 数 、 查 询 或 段 。 如 果 URL 是 HIML 文档 中 的 一 个 热 链接 ， 




















则 可 能 含有 指向 下 一 个 文档 的 相对 路 径 ， 即 相对 于 服务 器 根 目 录 的 路 径 。 如 果 用 户 需要 填写 表单 


Cformn)， 则 URL 中 就 可 能 出 现 带 有 问号 的 信息 。URL 的 外 观 实际 上 取决 于 它 所 使 用 的 协议 ， 以 及 
需要 完成 的 操作 。 


示例 16.4 


下 


CS 


1 全 二天 性 二 忆 EE 有 生 有 
[ET 
ftp://ptgp023Qptgpftp.pearsoned.com/dquigley 
file:///c:/wamp/www/family.jpg 
http://LIocalhost/cgi-pbin/ftorm.cgi?name=FEred+Thompson 


圳 


1 协议 是 mttps 
主机 名 www.cis.ohio-state.edu/htbin/rfc2068.html 由 如 下 部 分 组 成 ": 
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由 域名 服务 器 CDNS)， 翻译 为 卫 地 址 的 主机 名 ; 

域名 是 ohio-state.edu 

其 顶级 域名 是 edu; 

保存 HIML 文件 的 目录 是 htbin; 

要 检索 的 文件 是 ifc2068htmnl 它 是 至 个 HIMD 允 档 

2. 协议 是 http 。 

这 里 使 用 下 地 址 而 不 是 主机 名 ; 这 是 本 地 主机 的 卫 地 址 ; 

文件 位 于 服务 器 上 的 文档 根 目录 中 。 文 件 由 HIML 文本 构成 。 

3. 协议 是 ftp。 

FTP 服务 器 是 ptgpftp.pearsoned 。 

顶级 域名 是 com。 

目录 为 quigley。 

4. 协议 是 file， 打 开本 地 文件 。 

主机 名 缺失 ， 引 用 本 地 主机 名 。 

列 出 指向 ipdex.html 文件 的 全 路 径 。 

5. 问号 后 面 的 信息 是 URLI 的 查询 部 分 ， 可 从 表单 提交 的 输入 内 容 中 获得 。 甚 查询 串 内 容 是 一 段 
URLI 编码 。 在 本 例 中 , 位 于 hello 与 there 之 间 的 空格 将 由 加 号 奉 代 。 服 务 颖 会 将 该 查询 部 
分 保存 到 环境 变量 QUERY_STRING 中 。 然 后 可 以 将 它 传递 给 HIMEL 文档 所 调用 的 CGI 程 
奈 放 主见 有 Ga 广 小 ”一 记 

a. 大 多 数 Web 服务 器 的 主机 名 都 以 wwWw 开 头 ， 但 这 只 不 过 是 一 个 惯例 而 已 。 


























文件 URL 和 服务 器 根 目 孙 。 如 果 URL 中 用 到 的 协议 是 fileg， 服 务 器 就 假定 该 文件 位 于 本 地 主 
机 上 。URL 中 含有 文件 名 及 其 多 路径。 如 果 在 协议 后 面 出 现 了 服务 器 名 , 则 所 有 路 径 都 将 与 服务 器 
上 的 文档 根 目 录 相 关 。 文 档 根 目录 定义 在 Web 服务 器 的 主 目录 下 面 , 持 有 服务 器 的 配置 文件 、 错 误 
信息 以 及 日 志文 件 。 用 户 可 在 文档 根 目 录 中 储存 HTML 文档、 图像 、 以 及 服务 器 需要 的 其 他 任何 文 
档 ; 譬如 ， 名 叫 “htdocs” 或 “www” 的 文件 。 

与 UNIX 中 以 根 目录 为 起 点 的 绝对 路 径 不 同 ,这 里 位 于 路 径 前 面 的 正 斜 杠 并 不 是 路 径 的 组 成 部 
分 ， 而 是 负责 将 路 径 与 主机 名 分 开 的 分 隔 符 。 一 个 用 于 表示 服务 器 根 目 录 中 某 个 文档 的 URL 示例 
如 下 所 示 : 

http:/Wlocalhostindex.html 

甚 全 路 径 名 可 以 是 : 

C:/wamp/www/index.html 

所 谓 部 分 URL 或 相对 URL， 指 得 是 链接 到 同一 个 服务 器 上 的 文档 的 快捷 方式 。 例 如 ， 如 有 果 
一 个 位 于 http:/www.myserver/stories/webjoke.html 的 文档 含有 一 个 指向 images/webjoke.gif 文件 
的 链接 ， 那 么 这 就 是 一 个 相对 URL。 六 览 器 会 把 这 个 相对 URL 扩展 为 绝对 URL， 即 http:// www，. 
myserver/stories/images/webjoke.gif， 并 在 需要 时 请 求 该 文档 。 





















































16.3 使 用 HTML 创建 Web 页 面 





为 了 编写 Web 页 面 , 用 户 必须 首先 学 习 一 下 HTML 语言 。 有 关 这 个 主题 已 经 有 了 大 量 的 著作 。 
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这 里 我 们 只 是 简单 介绍 一 下 HIML 的 基础 知识 , 并 介绍 如 何 编写 带 有 表单 和 CGI 脚本 的 简单 页 面 。 

正如 前 面 所 介绍 的 , 在 HIML 中 编写 的 Web 页 面 是 一 些 ASCII 文本 文件 。HITMEL 由 称 作 标签 
CTag) 的 指令 所 构成 , 能 够 告诉 浏览 器 如 何 去 显 示 页 面 中 的 文本 8。 当 用 户 输入 URL 或 者 点 击 页 男 
上 的 热 链接 时 ， 浏 览 器 〈 客 户 端 ) 就 会 通知 服务 器 它 需 要 哪个 文件 ， 并 由 服务 器 负责 把 该 文件 返 
给 浏览 器 。 含 有 HTML 内 容 的 文本 由 纯 文本 、 图 像 、 影 像 、 声 音 和 热 链接 构成 。 然 后 由 浏 览 器 负 
责 解释 HIML 标签 ， 并 在 屏幕 上 显示 格式 化 后 的 页 面 〈 如 要 查看 Web 页 面 的 源 文件 ， 在 Netscape 
浏览 器 中 可 用 View 菜单 里 的 View Document 功能 ;而 在 Internet Explorer 中 则 可 选择 View 莱 单 ， 
然后 选择 Source 项 ， 这 样 便 能 查看 产生 页 面 的 HIML 标签 ) 。 

创建 标签 。 用 户 可 以 使 用 任何 一 种 文本 编辑 器 来 创建 HIML 源 文件 。 如 果 一 个 文件 以 .html 
或 .htm 结尾 ， 就 说 明 它 是 一 个 HIML 文件 。HIML 标签 都 位 于 角 括 号 <> 之 间 ， 负 责 描 述 文 档 的 
显示 方法 。 标 签 是 很 容易 理解 的 。 例 如 ， 如 果 要 创建 一 个 标题 ， 用 户 应 当 把 标签 放 在 角 括 号 内 ， 并 
在 起 始 标签 <TITLE> 和 结束 标签 </TITLE> 之 间 提 供 实际 的 标题 内 容 文本 。 下 面 这 行内 容 又 称 为 
TITLE 元 素 ， 它 由 开始 标签 <TITLE>、 包 含 的 文本 和 结束 标签 </TITLE> 组 成 。 标 签 中 还 可 带 有 属 
性 ， 用 于 进一步 描述 其 功能 。 例 如 ， 文 本 输入 框 标签 允许 设 定 其 行 数 和 列 数 ， 而 图 片 标签 则 可 以 在 
页 面 顶 部 居中 对 齐 。 元 素 和 属性 都 是 大 小 写 敏感 的 。 

<TITLE> War and Peace </TITLE> 
当 浏 览 绒 看 到 这 个 指令 时 , 就 会 在 训 览 窗口 的 顶部 一 栏 中 打印 出 标题 内 容 , 作为 本 页 面 的 标题 。 
如 果 需 要 在 HIML 中 置 入 往 释 ， 则 可 把 广 释 内 容 插 入 到 <!-- 和 --> 之 间 。 
由 于 HIMEL 是 一 种 结构 化 的 语言 , 因此 在 文档 中 放置 标签 时 ， 必 须 遵守 一 些 规 则 。 本 书 将 在 下 
面 讨 论 这 些 规则 。 

简单 HTML 文档 。 读者 可 以 在 自己 最 喜欢 的 文本 编辑 器 中 创建 下 面 这 个 HIML 文件 。 该 文件 
由 一 组 简单 的 标记 元 素 (tagged element) 构成 。 浏 览 器 将 在 显示 该 文件 时 负责 谊 染 这 些 元 素 。 详 
见 http://www.w3.org/MarkUp/Guide/。 表 16.4 列 出 了 所 有 的 简单 HTMEL 标签 及 其 功能 。 


示例 16.5 


由 OGAER 关切 BT GE 全 人 TS GREAT 全 可 村 信人 本 区 
ER 人 SC 本 RE ICSSESSQESL 二 
雪 Inamil 之 
有 meaa> 
<title>Simple HTMI Template</tit1le> 
</head> 
<boay bgcolor="slilVez7> 
Qi 
<hl>Getting Started</hl> 
SEE oacaogcaonnogens ecoycEn asewnemE 
ES ES EES 记 SOESDnESSR 
< >YOUEEC3mnCDEEDTCEUESSARNORSAETOXTSS ET ER 
WhateVez You 1ike.. 
</P> 
< 
并 也 <jimg Src="file:///c:/Vwamp/Vwww/mexico.jpg" border="17" 
iathnh="200" msight=7"2507> 
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\D oo ~ 中 中 必 IN 


丁 
[1 


< 机 过 





加 ”如 果 读 者 曾经 用 过 UNIX 中 的 nro 作 或 tro 企 程序 来 格式 化 文本 的 话 ， 就 会 很 快 认 出 用 于 格式 化 HIML 的 这 


些 标签 。 
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并 之 


有 
4 


Ed， 
Re 是 NTYEEEGTSS 
<a href="http://www.wW3schools .com/html/default.asp"> 
<Strong>C1lick here</strong></a> 
有 /国光 
</Dbody> 
十 记 


FE 


~] 人 小 Wi 小 


Co 


2 


. 这 一 行 声明 了 DOCTYPE ;, 即 该 文档 使 用 的 是 那 一 种 HIML 或 XHTML。 在 后 面 针对 某 个 特定 





版 本 验证 语法 时 , 将 会 用 到 这 个 声明 信息 .对 于 纯 HIML4, 可 以 把 DOCTYPE 声明 为 transitional。 
其 他 可 选 的 值 包 括 fameset 和 strict， 但 它们 都 超出 了 未 书 介绍 的 范围 。 


.HIML 文档 的 所 有 文本 内 容 都 位 于 起 始 标签 <html> 和 结束 标签 </html> 之 间 。 尽 管 HTML 


是 创建 Web 页 面 时 的 标准 语言 ,但 还 是 存在 着 其 他 类 似 于 HIMEL 的 页 面 创 建 语言 。HTML 
元 素 表明 了 这 是 一 个 HIML 文档 。 即 便 读 者 抛弃 这 个 标签 ， 浏 览 器 也 不 会 有 什么 意见 ， 只 不 
迁 曾 卜 攻 地 和 寺 丰 下 式 玛 王 5 

在 <head> 和 </head> 之 间 揪 入 一 些 文档 信息 ， 和 警 如 文档 的 标题 。 这 些 信息 将 不 和 其 他 内 容 
一 道 显 示 出 来 。<head> 标签 一 般 都 紧 紧 跟随 在 <html> 标签 后 面 。 

<title> 标签 用 于 创建 文档 标题 ， 该 标题 将 显示 在 训 览 右 窗 口 的 顶部 。 

这 是 对 应 于 <head> 标签 的 结束 标签 。 

文档 主题 位 于 起 始 标签 <body> 和 结束 标签 </body> 之 间 ， 它 将 显示 在 训 览 右 窗 口中 。 
<div> 标签 负责 在 页 面 中 创建 一 块 分 隔 区 域 。 所 谓 位 于 起 始 标签 <div> 和 结束 标签 </div> 之 
间 的 内 容 都 会 居中 显示 。 

所 有 的 一 级 标题 都 位 于 起 始 标签 <h1> 和 结束 标签 </hl> 之 间 。 

<p> 标签 表明 新 起 一 个 段落 。</p> 表明 段落 到 此 结束 。 














10. 本 行使 用 了 <br> 标签 在 文本 中 实现 换行 。 
11. <img> 标签 允许 用 户 在 文档 中 置 入 logo 标志 、 照 片 、 插 图 、 动 画 等 ， 它 们 可 以 是 gif、png 








Toog bsp 





f 阳 JJDecumerts%20amd3s205ettingslOwnerjMys%e200Documentsjhemlstart.html 


局 LU to 1414VYan Nes5 


。 
Cretting Started 
Thisisaparagraph in the body of my document It starts and ends with a paragraph tag. 
You can put picbures, tnks, movies, here, whatever yoU hke . 





For a greatHTML tutonal Click here 














图 16-$ ”示例 16-$ 中 的 HTML 文档 在 Mozilla Firefox 中 的 显示 效果 
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或 jpeg 图 像 文件 。tag 标签 附带 的 src 属性 指明 了 文档 在 服务 器 上 的 位 置 。 通 过 指定 高 度 和 
宽度 象 素数 ， 读 者 也 可 自由 缩放 图 像 到 所 需 的 尺寸 。 
12. 读者 还 可 通过 <a hre 人 > 标签 在 页 面 上 创建 链接 。 当 用 户 点 击 该 链接 时 ， 就 会 自动 重 定向 到 











一 个 有 关 如 何 使 用 HIME 的 页 面 上 。 


13. 这 个 标签 表明 文档 的 主体 部 分 在 此 结束 。 


14. 这 个 标签 表明 HIML 文档 到 此 结束 。 


表 16-4 简单 HTML 标签 及 其 功能 


功 


习 
已 


Z》 





<<!--text--> 


<B49PF PREF="http://Wwww.bus.com/my.html"> 


< 万 7TAM1L>document</ET7TAZEL> 


< 有 FEF4D>heading info</PFE4D> 


<777ZE>titleof the document</T77Z > 
<BOD 产 document content</BOD 产 


< 万 1> heading type </BI> 


<P>text</P> 


<B>text</B> 
<1>text</7> 
<77>text</77> 
<U>text</U> 

<BR> 

< 万 R> 

<LZ> 

<7 

<7 户 

</UZL> 

<OL> 

去 门卫 > 

<DT7> 

<D7> 

</LD7L> 

<97RONMNG> 

<EAf> 
<BLOCKOUOTE>text</BLOCKOUOTE> 
<4 REF SRC="URZE > 
<1MG SRC="URL > 


证 
存 


释文 本 ， 不 显示 
储 文档 的 位 置 





位 于 文档 开头 和 末尾 ， 向 浏 览 器 表明 这 是 一 个 HTML 文档 


文 


JavaScript 以 及 CSS 。 


档 内 的 第 一 个 元 素 ， 
只 有 标题 能 直接 显示 
























































含有 标题 、 元 标签 (metatag)、 


文档 的 标题 ; 显示 在 屏幕 顶部 或 窗口 中 文档 文本 的 外 面 ， 可 
置 于 书签 列表 中 

含有 显示 的 所 有 文本 和 其 他 对 象 

创建 一 到 六 级 标题 的 粗 体 元 素 ， 其 级 别 分 别 是 HI1、H2、H3、 
H4、H5、H6， 其 中 HI 是 顶级 标题 

段 标 记 ， 表 明 段 的 开始 ; 文本 块 之 后 插入 分 隔 符 。 它 可 以 位 


于 一 行 中 的 各 


牛 
粗 
打 
下 
行 
水 
无 
列 
列 
无 
有 

描 

描 

描 

描 

粒 

纪 

将 























<P> 标签 〈 标 记 新 段 ) 时 ， 本 段 才 算 结束 
体 文 本 

体 文 本 

字 机 型 文本 

划 线 文本 

分 隔 符 

平 阴影 行 

序列 表 的 起 始 标签 

表 中 的 一 项 

表 中 的 另 一 项 
序列 表 的 结束 标 
序列 表 的 起 始 标 
述 性 列表 

述 性 列表 中 的 一 项 

述 性 列表 中 的 另 一 项 

述 性 列表 的 结束 标 答 

体 文 本 

体 文 本 

用 前 后 使 用 空格， 使 大 块 文本 成 为 斜体 

建 热 链接 ， 指 向 Web 上 位 于 URL 的 资源 
司 像 加 载 到 Web 页 面 中 ，URL 是 图 像 文人 








狼 


人 


秘 


全 





























F 意 位 置 。 其 结束 标签 是 可 选 的 。 在 碰 到 </P> 或 另 


的 地 址 
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16.4 _ HTML 和 CGI 如 何 协作 


前 面 我 们 已 经 讨论 过 ，HTML 是 用 于 确定 Web 页 面 显示 方式 的 标记 语言 。CGI 则 是 扩展 服务 
器 功能 的 协议 。 服 务 器 上 执行 的 CGI 程序 主要 负责 处 理 表 单 ， 如 注册 表单 或 购物 单 。 如 有 果 读 者 曾 
经 在 Amazon.com 购买 过 书籍 或 CD 唱片 ， 就 应 当知 道 什么 是 表单 。 当 浏览 器 〈 客 户 端 ) 发 出 请 求 
时 ， 服 务 器 会 检查 URL。 如 果 服 务 器 在 路 径 中 看 到 了 cgi-bin 目 孙 ， 便 会 进入 该 目录， 然后 打开 一 
个 管道 ， 并 执行 CGI 程序 。CGI 程序 将 从 管道 中 获得 输入 ， 并 通过 管道 将 标准 输出 返回 给 服务 器 。 
其 标准 错误 信息 则 会 发 送 到 服务 器 的 错误 日 志 中 。 如 果 CGI 需要 与 服务 器 进行 对 话 ， 则 必须 使 用 
Web 语言 ， 因 为 这 是 在 训 览 器 上 最 终 用 于 显示 Web 页 面 的 语言 。 然 后 ，CGI 程序 会 使 用 HTML 标 
签 对 数据 进行 格式 化 ， 并 将 它们 发 送 回 HITP 服务 器 。 最 后 由 服务 器 把 文档 返回 给 浏览 器 ， 浑 染 其 
HTML 标签 ， 并 显示 给 用 户 。 





















































HTTP 响应 





# AuUsSrybin/perl 
f# CGT Script 
print “Content-type:icext/html/nyn" : 


read {STDIN，Sbuffter，SENV { "CONTENT_LENGTHE ' )); 








到 16-6 客户 端 / 服 务 器 /CGI 程序 之 间 的 关系 











16.4.1 简单 CGI 脚本 


在 编写 更 为 复杂 的 动态 页 面 之 前 , 我 们 首先 看 一 个 简单 的 CGI 脚本 ， 该 脚本 由 Perl 编写 ， 执 行 
在 一 个 Apache 服务 器 上 。 当 从 浏览 器 访问 它 时 ， 该 脚本 会 随时 刷新 当前 日 期 和 时 间 。 该 脚本 由 一 
系列 print 语句 组 成 , 其 中 大 部 分 语句 都 将 HIML 输出 到 stdout 〈 通 往 服务 器 的 管道 ), 正如 图 16-6 
所 示 。 其 中 有 些 特性 使 得 这 段 脚 本 不 同 于 通常 的 Perl 脚本 : 

该 程序 是 从 CGI 目录 cgi-bin 处 直接 执行 的 。 

该 脚本 的 第 一 行 又 称 作 “shbang” 行 ， 负 责 告诉 服务 器 Perl 解释 器 位 于 哪里 。 该 行 如 果 出 错 ， 
就 会 造成 “Internal Server Error” 错 误 。 

CGI 脚本 中 的 另 一 行 重要 内 容 则 是 其 标题 行 ， 又 称 作 HITP MIME 首部 。 它 将 告诉 六 览 器 本 示 
例 的 程序 会 发 送 哪 种 类 型 的 输出 内 容 ; 譬如 ， 如 果 把 “Content-type: text/htm1” 发 送 给 浏览 器 ， 就 
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说 明 该 文档 中 即 含有 常规 文本 又 含有 HTML 标签 。 本 章 后 面 将 详细 介绍 相关 细节 。 
首部 行 (header line) 后 面 必须 出 现 一 个 空 行 。 为 了 达成 该 效果 ,读者 可 以 在 行 未 添加 “my”。 
如 果 是 在 here 文档 中 ， 则 也 可 在 文本 编辑 器 中 模仿 前 面 所 述 的 简单 Perl CGI 脚本 提供 一 个 空 行 。 


示例 16.6 


也 
甩 


罗 


4 
号 


6 

















#!c:/RActivePer1l/pbin/pPper1l.exe 
Snow=localtime' 
Smyname="Wil1lie":， 
PILEiIDnt <<EOFE : 
Content-type :七 exXt/html 
<boay bgcolor="silVez7"> 
加 沁 生 二 册 帮 人 区 
< tontiftace= aclal sze= 2 coloe= darkoluesn > 
<Db>Welcome， Wee S$myname1!<Pp> 
<img Src="/Williewonker.jpg" width="200" 
本 SEE S0DDeEOeE 三 二 下 过 
妥 癌 肥 
Todqay is Snow<DpL> 
</Dbody> 
卫 OR 


解释 


帮 


3 
6. 
候 


第 一 行 很 重要 。 如 果 缺 少 这 一 行 ， 很 多 Web 服务 器 就 无 法 运行 CGI 脚本 。 第 一 行 负责 告诉 
服务 器 Perl 的 安装 位 置 。 


. 定义 两 个 标量 型 变量 : $now 负责 从 Perl 的 localtime 畏 数 处 获得 返回 值 。 每 当 执行 该 程序 


时 ， 其 时 间 都 会 发 生变 化 ， 从 而 让 该 页 面 成 为 动态 的 。 变 量 $myname 则 赋值 为 “Willie”。 


. 本 行 启动 一 个 here 文档 〈 详 见 第 2 章 )。here 文档 提供 了 一 种 替代 引号 的 机 制 ， 人 允许 用 户 通 


过 一 个 print 函数 打印 多 行 信息 。EOF 是 一 个 用 户 自 定 义 的 终结 符 ， 它 和 第 7 行 相互 匹配 。 位 
于 两 个 EOF 终结 符 之 间 的 所 有 文本 都 将 作为 输出 内 容 发 送 到 浏览 器 ， 并 由 后 者 予以 显示 。 


. 本 行 又 称 作 MIME 首部 MIME header )。 不 管 使 用 的 是 哪 一 种 编程 语言 ，CGI 程序 的 第 一 


行 输出 都 必须 是 一 个 MIME 首部 , 其 后 必须 跟随 两 个 换行 符 。 本 行 负责 说 明 程序 会 发 送 哪 种 
类 型 的 数据 。 在 这 里 ,CGI 脚本 将 把 HIMEL 文本 发 送 回 服务 器 。\nna 说 明 打 印 一 个 空 行 。 为 
了 成 功 运行 CGI 程序 , 这 个 空 行 也 是 非常 重要 的 。 所 有 首部 都 要 求 在 文档 内 容 前 提供 一 个 空 行 。 
这 里 是 混杂 着 HIML 标签 的 文本 。 浏 览 器 将 呈现 这 些 标签 ， 以 便 提 供 HIML 页 面 。 
程序 每 次 执行 时 ， 变 量 值 都 会 不 断 变化 ， 以 便 实 时 显示 服务 器 端的 当前 时 间 和 日 期 。 

EOF 表明 here 文档 到 此 结束 。 








有 的 服务 器 要 求 CGI 脚本 名 必须 以 .cgi 或 .pl 结尾, 这 样 才 能 把 它们 识别 为 CGI 脚本 。 此 外 在 


UNIX 


系统 中 , 当 创 建 好 脚本 后 , 还 需要 开局 该 脚本 文件 的 执行 权限 。 读 者 可 以 在 shell 提示 符 下 键 








入 如 下 内 容 : 


C 


C 


泪 


hmoad 755 <Sscriptname> 


者 


hmoad +X <Sscriptname> 





在 浏览 器 定位 窗口 中 键入 的 URL 包括 协议 、 主 机 名 、 存 有 CGI 脚本 的 目录 、 还 有 CGI 脚本 名 。 


URL 的 样式 如 下 所 示 : 
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PR | 
本 Te Hp 


口 hkp:J1127.0.0.1cgrbycosmple pl | | IIO- 


enks.， 思 Free Hotmal 加 Resplyer | ] windows Marketplace L] Windows Meda | ] Windows 


Welcome,， Wee Willie! 








Today is Thu May 24 08:03:51 2007 
图 16-7 ”Perl CGI 脚本 在 浏览 器 中 的 输出 


http://1localhost/cgi-bin/cgisimple.p1l 


HTTP 首部 。 大 多 CGI 程序 的 第 一 行 都 是 HITP 首部 ， 它 能 告诉 浏览 器 程序 会 把 什么 类 型 的 输 
出 内 容 发 送 给 它 。 在 首部 行 后 ,必须 有 一 个 空 行 和 两 个 换行 符 。 首 部 类 型 又 称 作 MIME 类 型 (MIME 
表示 多 用 途 Pnternet 扩展 ， 即 multipurpose internet extension )。 两 种 最 常见 的 类 型 是 “Content- 
type: text/html \n\n” 和 “Content-type: text/plain \nn”。 另 一 种 首部 类 型 叫 作 位 置 首 部 (Location 
Header)， 用 于 将 浏览 器 重 定向 到 其 他 Web 页 面 上 。 最 后 ，Cookie 首部 用 于 设置 cookie， 以 便 维 护 
六 览 器 状态 ， 即 跟踪 维护 那些 在 服务 器 与 浏览 器 之 间 的 事务 关闭 后 原本 应 当 消 失 的 信息 。 在 首部 行 
后 面 必须 提供 一 个 空白 行 。 在 Perl 中 可 以 通过 在 行 末 追加 \nvn 的 方式 来 实现 它 。 表 16-5 列 出 了 第 
用 的 HITP 首部 。 


























表 16-5 HTTP 首部 

















首部 类 型 值 
Content-type: text/plain 纯 文 本 
Content-type: text/html HTML 标签 与 文本 
Content-type: image/gif GIF 图 像 
Location: http://www.…. 重 定向 到 其 他 Web 页 面 
Set-cookie:NAMe=VALUE.. Cookie 在 客户 端 浏 览 器 中 设置 cookie 





16.4.2 ”错误 日 志文 件 


错误 日 志和 STDERR。 一 般 而 言 , 当 Perl 脚本 中 出 现 错误 时 , 应 当 把 错误 信息 发 送 到 中 断 屏 幕 
上 (STDERR)。 但 如 果 是 一 段 由 服务 器 启动 的 CGI 脚本 , 则 错误 信息 不 会 发 送 到 屏幕 , 而 是 发 送 到 
服务 器 的 错误 日 志文 件 中 。 在 浏览 器 上 ， 用 户 将 只 能 看 到 “Empty Document” 或 “Internal Server 
Error”， 而 这 并 不 能 说 明 程 序 中 到 底 出 了 什么 问题 。 
在 将 脚本 传 到 服务 器 之 前 , 请 读者 始终 记得 在 shell 命令 行 中 使 用 -c 开关 检查 自己 脚本 的 语法 。 
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否则 ， 读 者 将 很 难看 到 错误 信息 ， 除 非 直接 查看 日 志文 件 。 请 使 用 -c 开关 检查 Perl 脚本 语法 。 


示例 16.7 


(At the Commanad 1Line) 
站 ES 
色 Eee EYES 区 的 K 


示例 16.8 


(Per1l SyYntax erIzors Shown in the Apache Sezvez's erIzor 1og) 


Me 大 二 8 
cgi-pbpin/submit-ftorm failed for susan，reason: Premature end 
SEESCEoneaaezs 

人 emSeE WOGIEESOOREESUSEESRERERMRESIUEOL OCT 


[人 
CEezaticns 
下 Bare word found where opPerator exPected at welLlcome.P1L Line 21， 


neaLr "/fEont></TRABILZBY" 
(MDssanoguoberatorc peEore ABR 
邓 SYntaX error at welLlcome.P1L 1Line 21，mnear "<TH><" 
SYntaXx erLzor at Welcome.P1L Line 24，near "else" 
三 全 25GCGSRS2UUOISe 下 已 作 已 训 个 这 CS 天 1 本 纪 8 大 
EECUESEUIESEE 避 是 二 克 和 全 EE 区 T 
Premature endq of script headqaezs 


16.5 控制 信息 出 入 CGI 脚本 





服务 器 和 CGI 脚本 之 间 主 要 通过 四 种 方式 进行 通信 。 当 浏览 器 向 服务 器 发 出 请 求 后 , 服务 器 可 
以 将 其 转发 给 CGI 脚本 。CGI 脚本 通过 如 下 方式 从 服务 器 获得 输入 : 

1. 环境 变量 

2. 查询 字符 串 

3. 标准 输入 

4. 附加 路 径 信息 
CGI 程序 从 服务 器 获得 输入 后 ， 会 对 它 进行 分 析 和 处 理 ， 然 后 进行 格式 化 ,以便 让 服务 器 能 
将 信息 反馈 给 浏 览 器 。CGI 脚本 可 通过 如 下 方式 经 网 关 发 送 输出 内 容 : 

1. 动态 生成 新 文档 

2. 将 现 有 的 静态 文件 发 送 到 标准 输出 

3. 使 用 URL， 让 浏览 辟 重 定向 到 其 他 位 置 获 取 文 档 





| 此 











CGI 环境 变量 


服务 器 会 向 CGI 程序 传递 许多 环境 变量 。 环 境 变量 是 在 服务 器 执行 网 关 程 序 时 得 以 设置 的 , 并 
且 对 所 有 请 求 都 有 效 。 环 境 变量 含有 与 服务 器 、CGI 程序 、 端 口 、 协 议和 路 径 等 有 关 的 信息 。 用 户 
输入 内 容 一 般 都 会 赋值 给 QUERY_STRING 环境 变量 。 在 下 面 的 示例 中 ,该 环 境 变量 的 值 为 空 ， 因 
为 程序 始终 没有 要 求 用 户 提供 输入 ， 即 HTML 文档 中 没有 出 现 INPUT 标 窒 。 
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ns 有 CETEEETUIRESECEOSE) 


#!V/bin/pPer1l 
[GeoisiEoa oO 
ECG 人 EEC 
# PrInt out al the envIronment varzabJIes 
while(($key，S$Svalue)=each(sENV) ) { 

Pint "S$key = S$valueNn" 


TRUE E 


】 


多 Mozilla Firefox | 


El 加 ww Htory Boohsks Ioos Hop 
必 ”有 -> 允 储 日 htp:j27.0.0.1jcghbmypeinkenv.R 





口 customizsunks 网 且 cJJpocumerks ， 思 Fee Homal 加 Reaplayer [Windows Marketplace [windows Meda 思 wmn 


CONSPEC=nCiVUINDOYSV3yY3Cel32ZNVCIpd ,eeXem 

DOCUNENT_ROOT="C :wampywwuwn 

GATEWAY_INTERFACEnmCGOI/A1L .Im 

HTTP_ACCEPT="CexC/ xislyappltcacion/ xialyappitcacionAxhcini+Xxig1lycexc/hciol:d=0.9，Cexc/DP1at 
BTTP_kCCEPT_CHARSET"ISO-8859-1，utt-8Iqr0.7，?2q0.7” 
HTTP_ACCEPT_ENCODING="gzip，derlacen 

HTTP_ACCEPT_LANGUAGE="en-usrenIq=0.5” 

HTTP_ CONNECTIONm "Keepalive” 

HTTP_HOST="127.0.0.1” 

BTTP_REEP_ALIVE="300” 

HTTP_USER_ACENTe"Kozilia/5.0 (Windovs: 0 Windovs NT 5.1: en-0US5: rv:1.8.1.3] Gecko/200 
HTTP 加 卫生 芒 mm 
?ATEnnCIVAcEiveperlyzsitevbinic:yAccivepPerliybiniCc:VPROCRA~IVYPerlEdic:c:yprogrean PilczNVA 
PATHEXTe=”.CONK;: .EXE: ,BAT; .CHD;: ,VBS7I .VBE;: ,JS .JSE: .WSF; .9SH ,py; .py9Y” 






RENOTE_ADDR"127.0.0.1"” 

RENOTE_PORT="4697” 

RECUZST_NMETHOD”"GET” 

REQUEST_URI="V/cG1i-Dbin/princenv pin 

SCRIPT FILENANME=C:/wap/ 人 PaChe2/cGt-bin/Aprincenv.pln 
SCRIPT NANEm/cSi-bin/princenv.phin 
SERVER_ADDRsn"127.0.0.1" 

SERVER ADNIN="webmascerblocalihbhost” 
SERVER_NANEn="127.0.0.1” 

SERVER _PORTe="60"” 

SERVER_PROTOCOL”HTTP71.1” 
SERVER_SIGNATURE=”<addres3>Akpache/2.0.55 (Win32) PHP75.1.4 SerVer ac 127.0.0.1 Porc 50 
SERVER_SOFTSUAREZ="Apache/2.0D.55 (Bin32) PHP/S.1.4"” 
SYSTENROOTe"C:VSWINDOWSm 

WINDIR="C:VYSBINDOU3S” 











图 16-8 QUERY STRING 环境 变量 


不 知 读者 是 否 注意 到 ， 当 在 训 览 器 中 进行 搜索 时 ， 其 地 址 行 末 的 内 容 呈 现 这 样 的 形式 : 

http://www.google.com/search?h1=en 作 q=related%3Awww.1ynda.como%2Fhexh. 
html&wbtnG=Search 

位 于 ? 之 后 的 信息 都 是 由 阐 览 器 发 送 给 服务 器 的 ， 它 们 都 将 赋值 给 QUERY_STRING 环境 变 
量 。 这 是 一 个 经 过 浏览 器 编码 的 URL; 即 ， 字 符 串 中 任何 的 非 字母 表 字 符 都 奉 换 成 了 +、 多 或 者 
以 % 开头 的 一 个 十 六 进 制 数字 ， 和 譬如 %2。 服 务 器 上 的 程序 将 负责 对 该 字符 串 进 行 解 码 ， 以 使 它 变 
得 合法 。 在 本 书 中 ， 该 程序 是 一 个 Perl CGI 脚本 。 当 然 ， 它 也 可 以 是 一 个 C、C++、TCL、Shell 脚 

短 

在 下 面 的 示例 中 ， 我 们 将 在 示例 16.9 的 CGI 脚本 中 为 URL 添加 一 个 ? 及 其 相应 文本 字符 串 。 
该 字符 串 由 浏览 器 负责 编码 ， 并 赋值 给 QUERY_STRING 环境 变量 ， 以 便 Perl 脚本 能 方便 地 访问 
它 。 下 面 一 步 则 会 移 除 其 中 的 %20《〔〈 表 示 空 格 的 十 六 进 制 值 ); 即 ， 对 编码 字符 串 进 行 解码 。 所 有 
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这 些 内 容 将 在 后 
之 后 的 字符 串 将 会 放 到 QUERY_STRING 环境 变 


常用 的 一 些 CGI 环境 变量 


表 16-6 CGI 环境 变量 〈 必 须 大 写 ) 


面 了 予以 详细 说 明 。 不 过 在 这 里 ， 读 者 在 看 到 这 种 类 型 的 URL 时 ， 应 当 明 白 位 于 ? 
量 中 ， 并 传递 给 读者 编写 的 程序 。 表 16-6 列 出 了 























名 称 值 示例 
4UTH TYPE 人 则 对 用 户 
CONMTENT LEMGT7 厅 从 服务 器 传 给 CGI 程序 的 字 节 数 Content-length=55 
CONTENT7 7T7P 查询 数据 的 MIME 类 型 text/html 
DOCUMENT ROOT 服务 器 提供 Web 文档 的 目录 /opt/apache/htdocs/index.html 
G4TPEJJH47 JTJNTERF4CE 服务 器 使 用 的 CGI 修订 版 本 CGI/1.1 
BTTP 4CCEPT 客户 端 接受 的 MIME 类 型 image/gif，image/jpeg， 等 等 
TTP_CONMNMECTTON 首选 的 HTTP 连接 类 型 Keep-Alive 


URL 后 面 追加 了 一 个 同 号 ， 其 后 则 是 一 段 文 本 字符 串 。 


攻 





带 有 CGI 脚本 链接 的 HIML 文件 。 下 面 的 示例 是 一 个 HIML 文件 ， 人 允许 用 户 通过 点 击 页 面 


上 的 超 链 接 来 打印 所 有 的 环境 变量 。 当 浏览 器 显示 这 些 文档 时 ， 用 户 可 以 点 击 热 链接 here， 然 后 


服务 器 就 会 执行 CGI 脚本 printenv.p1。 


下 面 是 刻 





| 览 器 显示 的 HTML 源 文件 内 容 。 浏 览 右 的 输出 如 图 16-9 所 示 。 








多 Mozilla Firefox 站 | 


氏 驳 ypow HHony Bookmarls Ioos Hep 
已 5 = 四 个 tp 1127.0.0.1/cohbiryprinterv,prm 


口 Castonke Unks 网 feiCJDoauments，， 思 Free Hotmal 可 Reaplayer [] Windows Marketplace L] windows Meda 四] 


CONSPEC="C:VUINDOVWSV3Y935Cem32VYCcmd .cxe” 

DOCUNENT_ROOTe"C:1Vwamp/yuwwu" 

GATEWAY_INTERFACE=”CGI/I.I" 

HTTP_ACCEPT="cexCc/ Xmlvapplicaclon/ xml,app1llicacion/XxhcIm1l+xmlcexc/hcml;q0,9,Cexc/p1 
HTTP_ACCEPT_CHARSETn"ISO-8859-1vuct-8:q0.7，77qn0.7” 

HTTP_ACCEPT_ENCODING" "gzip，dczlace"” 

HTTP_ACCEPT_LANGUAGE="en-us,enIq"0.5” 

HTTP_CONNECTION= "Keep-alzVe" 

HTTP_HOST="127.0.0.1” 愉 
HTTP_KEEP_ALIVE="300"” 

HTTP_USER_AGENT "ozilje/5.0D (Windovs: 0: Windovs NT 5.1: enr0US: FrVI1.8.1.3) Gecko/ 
HRTTP 外 用 m 一 一 一 一 一 
PATH="C:VACciVvePerlVsiceVbiniC:VAceivePperlVbiniC:YPROCGRA~1VPerlEdiciC:VProgrearm File 
PATHEXT=" .CON; ,EXE; .5AT;: .CHMD; .V83; .VBE; .JS3; .JS3E; ,USF; .VSH; .py .py 








RENOTE_ApDR="127.0.0.1” 

RENOTE_PORT "4784” 

REQUEST_KETHOD= "GET” 

REQUEST_URI="/cgi-binyprincenV.p17namemE11Ies20QuLGLey” 

SCRIPT_FILENANE="C:7Vwamp/Apache2/cgi-bin/princenV ,pl 

SCRIPT_NANE="/COt-bin/princenv .pl 

SERVER_ADDR="127.0.0.1"” 

SERVER_ADNIN "vebmazcerehocalbhosc” 

SERVER_NANE= ”127.0D.0.1” 

SERVER_PORT="680" 

SERVER_PROTOCOL="HTTP/1.1" 

SERVER_SIGNATURE="<address>Apache/2.0.55 (Win32) PHP/5.1.4 SerVer &C 127.0.0.1 porc 
和 














图 16-9 _ QUERY _ STRING 环境 变量 现在 有 了 值 





在 HTML 文档 中 ， 字 符 串 here 和 URL http:/localhostycgi- 
bin/printenv.pl 位 于 标签 <A href></A> 之 间 。 如 果 用 户 没 有 点 击 该 热 链接 ， 浏 览 器 
档 内 容 。 


会 显示 其 余 文 
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示例 16.10 


EN 和 ED 有 有 ET 

ai 这 

和 head> 

<titlLe>TESTING ENV VARIABLES</tit1Le> 

</head> 

<boqQqy> 

4 9 
RS 
< 胜 EECUORLRIRSEECORSSS SS 是 避 页 和 让 局 EeS 委 Si 
bsanmogisasssdonoy 王 Ne 本 See 证 扯 天 性 

吕 <a href="http://LIocalhost/cgi-bin/Printenv.P1LI">here</a> 
<P>text continues here... 
sea 
ET 


| 号 训 | 二 一 


| 
训 


. < 厅 7WMZ> 标签 表明 该 文档 使 用 的 是 HTML 协议 。 

.<FF4D> 标签 含有 标题 以 及 实际 文档 外 显示 的 信息 。 

在 浏览 右 窗 口 的 顶 栏 〈top bar) 中 显示 <777ZE> 标签 。 

.<P> 表明 段 的 开始 。<BR> 标签 负责 分 隔行 。 

. 把 <4> 标签 赋值 为 服务 器 localhost 上 CGI 脚本 printenv.pl 的 路 径 。 浏 览 器 会 以 带 有 蓝 色 下 
划 线 的 字母 显示 单词 nere。 如 果 用 户 点 击 该 单词 的 话 ,服务 器 便 会 执行 CGI 脚本 。 脚 本 将 打 
印 出 由 服务 器 传递 给 脚本 的 所 有 环境 变量 。 这 是 Web 服务 器 向 CGI 脚本 传递 信息 的 一 种 途 
径 。 实 际 的 CGI 脚本 如 示例 16.9 所 示 。 











由 太一 


16.6 CGI 和 表单 


处 理 用 户 输入 是 使 用 CGI 脚本 最 常见 的 原因 。 这 项 工作 往往 通过 表单 来 完成 。 表 单 会 提供 一 
列 称 作 虚拟 输入 设备 〈virtual input device) 的 方法 ， 并 由 它们 负责 接受 用 户 输入 。 它 们 包括 单 选 
按钮 、 复 选 框 、 弹 出 菜单 和 文本 框 等 。 所 有 表单 都 位 于 HIML 中 ， 以 一 个 <form> 标签 开头 ， 并 以 
</form> 标签 结尾 。 用 户 可 以 指定 方法 的 属性 。 方 法 属性 表示 如 何 处 理 表 单 。 其 默认 方法 是 GET， 
而 POST 方法 则 提供 了 最 为 常用 的 替代 途径 双 9。 如 果 不 想 让 操作 影响 到 服务 器 的 状态 ， 璧 如 执行 简 
单 的 文档 搜索 或 数据 库 查 询 操作 ， 则 应 首选 GET 方法 。 如 果 操 作 会 影响 到 服务 器 的 状态 ， 和 譬如 添 
加 或 删除 数据 库 记 录 时 ， 则 应 选用 POST 方法 。 本 书 将 在 下 面 一 节 详 细 介绍 这 两 种 方法 。 当 用 户 点 
击 提交 按钮 以 提交 数据 时 ，ACTION 属性 便 会 赋值 为 指向 待 执行 CGI 脚本 的 URL 。 

浏览 器 通过 显示 可 编辑 的 字段 来 从 用 户 获 取 输 入 信息 。 这 些 字 段 均 由 HTML 的 <INPUT 
TYPE=key/value> 标签 创建 ， 其 形式 可 以 包括 复 选 框 、 文本 框 单 选 按钮 等 。 用 户 输入 表单 的 数据 
将 以 名 称 / 值 Cname/value) 形式 编码 为 一 个 字符 串 ， 然 后 发 送 到 服务 器 。 这 里 的 值 表达 了 用 户 实 
际 输入 的 值 。CGI 程序 必须 理解 这 些 输 入 的 编码 方式 ， 以 便 能 分 析 和 使 用 它们 。 我 们 先 来 看 看 如 何 
在 浏览 器 中 提供 输入 , 为 此 需要 查看 一 个 简单 的 文档 , 以 及 负责 生成 该 文档 的 HTML 代码 。 这 个 示 
例 将 不 处 理 输入 的 内 容 ， 因 此 当 用 户 按 下 Submit 按钮 时 ， 程 序 会 将 一 个 出 错 消息 发 送 给 服务 器 的 

































































台 HTML 标签 和 表单 属性 都 不 是 大 小 写 敏感 的 。 
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错误 日 志 。 浏 览 器 将 什么 都 不 显示 。 
生成 表单 的 所 有 步骤 如 下 所 示 : 
1. START: 以 HTML 的 <form> 标签 

<body></body> 标签 之 间 。 


标识 表单 的 开始 。<form> 标签 


其 获得 输入 的 默认 方法 是 GET。 


必须 骨 套 在 HITML 的 





2. ACTION: <form> 标签 的 action 属性 提供 了 负责 处 理 表 单 输入 数据 的 CGI 脚本 的 URL。 
3. METHOD: 负责 提供 输入 数据 的 方法 。 默 认 方 法 是 GET。 
4. CREATE: 创建 一 个 带 有 按钮 和 框 的 表单 ， 并 可 利用 HTML 标签 与 字段 任意 美化 它 。 





5. SUBMIT: 创建 一 个 








submit 按钮 ， 用 于 处 理 整个 表单 。 


该 按钮 将 启动 ACTION 属性 中 列 出 











































































































的 CGI 脚本 。 
6. END: 终止 表单 和 HTML 文档 。 
16.6.1 ”表单 输入 类 型 
表 16-7 ”表单 输入 类 型 
输入 类 型 属性 描述 
显示 可 以 复 选 的 方 框 。 根据 用 户 输入 创建 相应 名 称 / 值 
CHECKBOX N4ME,TM4TUE 对 ， 可 选 多 个 民 
四 9 规定 上 传 到 服务 器 的 文件 。 其 MIME 类 型 必需 是 
multipart/form-data 
DIDDPN N4ME, 4ZLUE 提供 名 称 / 值 对 ， 同 时 不 在 屏幕 上 显示 对 象 
7TM4GE SRC,T4LEUE,4LTGN 人 
7 AME JEU “与 文本 框 相同 ， 但 它 是 隐藏 的 。 在 框 中 显示 星 号 代替 
输入 的 字符 
R4D71O N4ME, TIALEUE 与 复 选 框 类 似 ， 但 它 一 次 只 能 选取 一 个 框 
RESET N4ME, 4LUE 将 表单 重 置 为 初始 情况 ， 清 除 所 有 输入 的 字段 
提供 弹出 菜单 和 滚动 列表 。 一 次 只 能 选择 其 中 之 一 。 属 
SELECT N4ME,OPTTON S1ZF MULTIPL 性 MULTIPLE 能 创建 可 见 的 滚动 列表 。 若 SIZE 为 1, 则 
创建 只 含 单个 可 见 框 的 弹出 菜单 
SUBMITT N4MFE, TELUE 在 按 下 时 执行 表单 ， 启 动 CGI 
四 ME SIZE MLLENG7T 创建 可 供用 户 答 入 的 文本 框 * MAXLENGTH 规定 其 人 
许 的 最 大 字符 数 
创建 可 跨越 多 行内 容 获 取 输 入 的 文本 区 。ROWS 和 
TEXT4RE4 N4ME,S1ZEROJSCOLS CoLS 负责 规定 它 的 大 小 
16.6.2 创建 HTML 表单 
含有 文本 字段 、 单 选 按钮 、 复 选 框 和 弹出 菜单 的 简单 表单 。 首 先 通过 一 个 简单 文档 以 及 产生 它 





的 HTMEL 代码 来 看 一 下 用 户 输入 是 如 何 进 入 浏览 器 的 。 用 户 可 以 点 击 按钮 ,或 者 在 文本 框 中 填 人 数 





据 。 这 个 示例 将 不 处 理 输 入 的 内 容 ， 
给 服务 
子 目 孙 中 。 如 果 HITML 文件 是 




















器 的 错误 日 志 。 浏 览 器 不 显示 任何 内 容 。 
企 本 机 上 创建 的 话 ， 





因此 当 用 户 按 下 Submit 按钮 时 ， 程 序 会 将 一 个 出 错 消 息 发 送 
HTML 文件 一 般 都 保存 在 服务 





器 根 目 录 下 的 htdocs 


则 可 在 地 址 栏 中 使 用 file:// 协议 ， 该 协议 含有 
HTML 文件 的 全 路 径 ， 一 般 都 带 有 扩展 名 .html 或 .htm。 
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9 First CGI Form - Mozilla Firefox 


CGIGwwww 下 本 [ET 吉 | 








图 16-10 ”最初 显示 的 表单 


》 First CGI Form - Mozilla Firefox - 
胸 怠 Wemw Hgory Booknads ITIoos Hep 


REG 下 本 同 





TI was born in Sweden，IT love beling in San ?Francisco 
and TI love my dog 











图 16-11 填 入 用 户 输入 的 表单 


(The HTIMI Eorm Source Eile) 
灿 <html><heaaQ> 
区 <title>Eirst CGI ERorm</title></head> 


socqy 是 oogeOOEE 站 9999 

3 和 站 性 必 是 相 玖 和 昌 帮 竹本 
全 

4 EECUnnamse 汪 STEEL 
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写 <inpPut tyPe="text" name="namestring"” size=50> 
SOURCESELTEEEENEEE De 
及 <textarea name="comments" rows=5 cols=50>I was born... 
< /teXxtarea> 
过 儿 世 过 
过 机 王 > 


8 IE 

多 <inPut tyPe="zadio" name="choice" value="burder"/>HamburgeL 
<input type="radio" name="choice" value="ish"/>FEish 
<input type="radio" name="choice" value="steak"/>Steak 
<input type="radqion" name="choice" value="yogurtn/>Yogurt 
二 hx 
< 之 


10 <input tyPe="checkbox'" name="place" value="1la"/>Los Angeles 


> 

<input type="checkbox" name="place" value="sj"/>San Jose 

去 感 工 

<input type="checkbox" name="place" Value="sf" checkedq/>San Francisco 
过 1g 芝 


<b>Cchoose a vacation spot:</b> 
11 <select name="1Llocation"> <option selectedq value="hawaiin"/> Hawaii 
<option Value="bali"/>Bali 
<option value="maine"/>Maine 
RE 三 全 司 下 有 全 RS 
<ASIETIESE 


<input type="submit" value="submit"> 
<1input typPe="reset" Value="cleac"> 
和 CQ 

过 个 GE 过 

En 


解释 

1. 该 标签 说 明 HIML 文档 的 开始 。 

2. <7777 有 > 标签 : 标题 出 现在 浏览 右 的 主 窗口 外 面 。 

3. <FORM> 标签 的 起 始 位 置 , 规定 浏览 绒 在 何 处 发 送 输入 数据 ,以 及 如 何 处 理 输 入 数据 。 默 认 
的 方法 是 GET。 在 提交 数据 时 , 服务 器 会 执行 CGI 脚本 。CGI 脚本 位 于 服务 器 根 目 孙 下 的 
cgi-bin 目录 中 ,CGI 脚本 一 般 都 保存 在 这 里 。 在 本 例 中 , cgi 脚本 位 于 bookstu 华 下 的 cgi-bin 
目录 中 。 

4. <P> 标签 表明 开始 新 段 。<B8> 标签 表明 随后 的 文本 是 粗 体 。 要 求 用 户 提供 输入 。 

5. 输入 类 型 是 一 个 可 放 50 个 字符 的 文本 框 。 当 用 户 在 文本 框 中 输入 文本 时 ， 文 本 内 容 就 保存 
在 用 户 定 义 的 W4NM 值 namestring 中 。 例 如 ， 如 果 用 户 输 入 Louise Cederstrom， 则 辛 览 器 
会 将 字符 串 namestring=Louise Cederstrom 赋予 查询 字符 串 。 如 果 指 定 了 MUE 属性 ， 则 
文本 字段 也 可 取 默 认 值 ; 即 ， 训 览 器 刚 显 示 它 时 出 现在 文本 框 中 的 文本 。 

6. 要 求 用 户 输入 。 

7. 文本 区 〈text area) 类 似 于 文本 字段 〈text field)， 但 它 允 许 扫描 多 行 输入 内 容 。<textarea> 
标签 会 生成 一 个 方 框 《名 叫 comments )， 其 大 小 由 行 数 和 列 数 决定 〈35 行 乘 以 15 列 )， 并 带 
有 一 个 可 选 的 默认 值 CI was born.… ) 。 

8. 要 求 用 户 从 一 系列 菜单 中 选择 。 

9. 第 一 个 输入 控件 的 类 型 是 一 组 单 选 按钮 。 用 户 只 能 从 中 选择 一 个 按钮 。 该 输入 类 型 拥有 两 个 
属性 : type 和 name。 例 如 ,如 果 用 户 选择 了 Hamburger 这 一 项 的 话 , 则 会 把 name 的 choice 
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属性 赋值 为 burger, 并 将 choice=burger 传递 给 CGI 程序 。 如 果 用 户 选 择 了 Fish, 则 会 把 choice=fhish 
赋予 查询 字符 串 ， 依 此 类 推 。 在 点 击 Submit 按钮 后 ， 这 些 键 / 值 对 将 用 于 传递 给 CGI 程序 的 查 
询 字符 串 中 。 

10. 这 次 的 输入 类 型 是 复 选 框 。 用 户 可 以 同时 选择 多 个 复 选 框 。 这 里 已 经 选 定 了 其 可 选 的 默认 
值 。 当 用 户 选 择 某 个 复 选 框 时 ， 会 将 VALUE 属性 的 一 个 值 赋予 NAME 属性 。 例 如 ， 如 果 
选择 了 Los Angles， 则 place =LA。 

11. <select> 标签 用 于 生成 弹出 菜单 〈 又 称 作 下 拉 列 表 ) 或 秘 动 列表 。 它 必须 提供 name 选项 ， 
用 于 定义 选项 组 的 名 字 。 对 于 弹出 菜单 而 言 ，size 属性 并 不 是 必需 的 ， 其 默认 值 为 1。 弹出 
菜单 最 初 上 只 显示 一 项 , 在 单 击 该 项 时 才 会 展开 菜单 。 用 户 只 能 在 汪 单 中 选择 一 项 内 容 。 如 果 给 出 
了 size 属性 , 则 可 同时 显示 多 个 选项 。 如 果 指 定 了 multiple 属性 (例如 selectmultiple name=whatever )， 
则 汪 单 会 成 为 滚动 列表 的 形式 ， 显 示 其 所 有 选项 。 

12. 如 果 用 户 单 击 Submit 按钮 ， 就 会 运行 表单 ACTION 属性 中 列 出 的 CGI 脚本 。 在 本 例 中 并 
没有 编写 该 脚本 程序 ， 因 此 会 将 出 错 信息 发 送 到 服务 器 的 错误 上 日志 中 和 浏览 器 上 。 

13. 如 果 单 击 Clear 按钮 ， 便 会 把 所 有 的 输入 框 重 置 为 其 默认 值 。 














16.6.3 GET 方法 


用 户 可 以 通过 称 作 GET 的 方法 来 创建 类 型 最 为 简单 的 表单 。 每 当 浏 览 器 请 求 文档 时 ,都 会 用 到 
这 个 方法 。 如 果 没 有 指定 其 他 方法 的 话 ，GET 方法 就 是 默认 的 方法 。 它 是 用 于 检索 静态 HTML 文 
件 与 图 像 的 惟一 方法 。 

HTML 是 一 种 面向 对 象 的 语言 ， 读 者 应 当知 道 ， 面 向 对 象 的 子 例 程 又 称 作 方法 。 为 了 把 数据 传 
递 给 CGI 程序 ，GET 方法 会 将 输入 追加 到 程序 的 URL 中 ， 这 些 输入 往往 是 一 个 URL 编码 的 字符 
串 。 环 境 变量 QUERY_STRING 将 赋值 为 这 种 编码 字符 串 ， 正 如 示例 16.12 所 示 。 

服务 器 往往 会 对 URL 的 长 度 有 所 限制 。 例 如 ，UNIX 的 长 度 限制 为 1024 字 节 。 如 果 需 要 向 服 
务 器 发 送 更 多 的 信息 ， 则 应 使 用 POST 方法 。 












































i) First CGI Form - Mozilla Firefox 


Be EdK View History Bookmarks Toos Help 





夫 - - 他 合唱 heyWcywamphwmwwlileform'htmllzj 区 | |G-|e 





[] Customize Links 鲍 file' CDocuments，， 巴 Free Hotmail | RealPlayer L 了 Windows M 








[GIR6asFfefox50 帮 Lve 5earch 口 FrstcGIForm 器 Firstcl 





Please entef YouUt hatne: 


Please Enter your bhone humbet 


SubmitQuery | Clear | 

















图 16-12 “示例 16.12 中 创建 的 HTML 表单 
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示例 16.12 


HIMIL Source Bile with a Eorm Tag andq ACTION ALttrzibute 


号 


6 


解释 
1 


2 
3 


有 IE 过 
ES ETIERH 下 二 蕊 和 GT 和 及 志和 用 EDIEIIE 王 有 和 抽 aa 
<boaQy bgcolor=silVez> 
<fEorm action="/cgi-bin/1Littleform.cgi" method=get> 
< 三 业 WienUESTE RESSSSE Emo EOEESEEEaIEOEES 
iaesse 汪 me 二 二 
Please enter Your Dame: <bz> 
<input 七 YPe="text" size=50 name="Name"> 
<P/> 
Please enter Your phone numbezr : <DT> 
<input 七 YPpe="text"n size=30 name="Phone"> 
支 可 / 汪 
<input 七 YPe=Submit> 
<input 七 YPpe=ieset Value="Cleaz"> 
RCIE 
EC 


表单 创建 在 HIML 文档 的 <body> 标签 内 。<form> 标签 规定 了 URL 和 用 于 处 理 表 单 的 方法 。 
当 用 户 提交 表单 时 , 浏 览 器 会 将 它 获得 的 所 有 数据 发 送 到 Web 服务 器 。action 属性 告诉 服务 
器 在 URL 指定 的 位 置 调用 CGI 脚本 , 并 将 所 有 数据 传递 给 该 程序 进行 处 理 。method 属性 告 
诉 训 览 器 如 何 把 输入 的 数据 发 送 到 服务 器 。GET 方法 是 其 默认 的 方法 ,因此 无 需 在 这 里 指定 。 
CGI 程序 可 以 对 数据 进行 任何 必要 的 处 理 , 并 在 完成 后 将 其 发 送 回 服务 器 。 然 后 由 服务 器 将 
信息 反馈 给 浏览 右 显 示 出 来 。 

要 求 用 户 提 供 输入 。 

输入 类 型 可 以 是 一 个 持 有 50 个 字符 的 文本 框 。 将 NAME 属性 赋值 为 Name。 这 是 键 / 值 对 
的 键 。 用 户 应 在 文本 框 中 输入 一 些 内 容 。 用 户 输 入 的 值 将 赋予 NAME 键 。 浏 览 器 将 以 这 种 格 
式 把 name=value 键 值 对 发 送 给 CGI 脚本 ， 壁 如 Name=Christian 。 





4. 输入 类 型 的 name 属性 为 Phone。 浏览 器 会 把 用 户 在 文本 框 中 的 输入 内 容 以 Phone=value 的 


MD) First CGI Form - Mozilla Firefox 





File Edit Wew History ， Bookmarks Tools Help 
捍 - 史 -多 思 省 


面 | Customize Links 】 Pile WEGDocuments，， 巴 Free Hotmail CD RealPlayer | 

















Piozila Firefox 5，， 下 Live 5earch [First CGI Form 








Please enter youUr hatme: 


|christain Scot Dobbins 


Please enter youUr bhone hutmbet: 
543-123-4567 


Submit Query | Glear | 








守 








16-13 ”填充 示例 16.13 提供 的 表单 
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格式 发 送 给 CGI 程序。 例如 ，Ehone=543-123-4567。 

5. 输入 类 型 中 的 supmit 属性 使 得 出 现 一 个 Supmit 按钮 ， 按 钮 上 默认 写 着 字符 串 Send Query 。 
一 旦 用 户 选 择 该 按钮 框 , 就 会 执行 CGI 程序 。reset 属性 使 得 用 户 能 够 通过 点 击 Clear 按钮 清 
空 所 有 的 输入 设备 。 

6. </form> 标记 终止 该 表单 。 


CGI 脚本 


示例 16.13 
人 EC 
1 #!c:/ActivePer1l/bin/Per1l .exe 
# 了 pe CGI SCcrIPL that Wi Process the 革 orm inFormatzon Sent 
# Erom the Server 


2 Print "Content-type: 七 ext/htmlNnNnnz 


ETOEEOCSSSTOOEESETEROTmENNTO 
四 NEEDELE 六 2 下 < 


while((S$Skey，S$value)=each ($ENV) ) { 
ETGO<NS SRAEI 和 SEESSERES 攻 页 二 人 记 三 要 
IE $key ed "QUERY_STRING":， 

】} 


1. shpang 行 告诉 服务 器 在 哪里 可 以 找到 Perl 解释 器 。 它 必须 位 于 程序 最 顶部 的 第 一 行 ,并 含 
有 指向 CGI 脚本 的 精确 路 径 。 该 行 如 果 出 错 , 就 会 造成 “Internal Server Error” 错 误 。 在 调 
试 程序 时 ， 请 读者 牢记 检查 该 行内 容 。 

2. Perl 的 输出 内 容 会 发 送 到 浏览 器 而 不 是 屏幕 上 。 其 内 容 类 型 又 称 作 MIME 首部 ) 是 text/ 
html1， 因 为 其 文本 中 含有 HIML 标签 。 

3. Perl 的 输入 来 自 于 服务 器 。 使 用 while 循环 迭代 遍历 %ENYVY 散 列 中 的 所 有 环境 变量 。 这 些 
量 将 从 Web 服务 器 传人 Perl 脚本 中 。 

4. 只 有 找到 环境 变量 QUERY_ STRING 的 值 时 , 才 会 打印 该 行内 容 。 不 过 这 并 不 需要 返 代 遍历 
整个 列表 。 用 户 只 需 键 入 print "98ENV{QUERY STRING}<BR>" 就 足够 了 。 





灌 


生 Mozilla Firefox 





B 色 加 ”ww Htory sookmaks ITIoos Hep 


必 到 了 他 伪 LU lxtp:j1ocahosticohbinj/teform.pPName=Christan+Scot+DobbinstFhonen543-123-4567 


L] CustompsUnks 多 后:WCJDocument5 思 Fee humadl 吕 ReaFlayer Lj Windows Markekplsce Lj Windows Meda 局 
[Cozss FeefoxStart Page -一 嫩 Uveseah 器 LijFrxcGiFom 








Brocessmg CGI form 


QUERY STRING = azjie=CHfzzystuxtji+ScottDODDZSRPHRONHe=5A3-I23-A5S67 

















图 16-14 CGI 脚本 输出 





416 第 16 章 





16.6.4 ”处理 编 码 数据 


编码 查询 字符 串 。 当 使 用 GET 方法 时 ， 会 将 信息 放 在 环境 变量 QUERY_STRING 中 发 送 
给 CGI 程序 8。 该 字符 串 是 一 段 URL 编码 。 事 实 上， 位 于 HTML 表单 中 的 所 有 数据 都 是 以 这 种 
编码 格式 从 浏览 器 发 送 到 服务 器 的 。 在 使 用 GET 方法 时 ， 读 者 可 以 在 浏 览 器 上 看 到 这 些 编码 字 
符 串 ,在 它 前 面 有 一 个 问号 。 位 于 问号 ? 后 面 的 字符 串 将 在 环境 变量 QUERY_STRING 中 发 送 给 
CGI 程序 。 其 每 个 键 / 值 对 都 由 多 符号 隔 开 ， 而 空格 则 以 加 号 〈 十 ) 来 代替 。 此 外 还 应 当 把 所 有 
非 字 母 和 数字 的 字符 值 替 换 为 与 之 相等 的 十 六 进 制 值 ， 并 在 其 前 面 加 上 百 分 号 〈%)。 在 前 面 的 
示例 中 ， 当 用 户 按 下 Submit 按钮 之 后 ， 便 可 在 浏览 器 的 Location 框 (Netscape) 中 观察 到 输 
入 字符 串 。 这 些 输 入 字符 串 已 经 附加 到 URL 上 ,其 前 面 带 有 一 个 问号 。 下 面 示例 中 的 突出 部 分 
则 是 赋值 给 环境 变量 QUERY_STRING 的 内 容 。 环 境 变 量 QUERY_STRING 将 在 散 列 %ENYV 
中 传递 给 Perl 脚本 。 如 要 访问 Perl 脚本 中 的 键 / 值 对 ， 读 者 不 妨 话 加 一 个 print 语句 : print 
$ENV{QUERY STRING};。 


示例 16.14 


册 What vcuseseannenocaon oox cotene orewsei 

















http://servername/cgi-pin/ 
forml .cgoi?Name=Chrzistian+Dobbins&sPhone=543-123-4567 


忆 What the server Sendqs to the browser in the ENV hash Valuey 
四 WURE SWEETNSD 


WURRYESRRNNEENSWE 三 吕 症 和 站 过 让 下 有 半 让 人 区 交 TS 生生 人 和 人 三 直下 玫 二 革 区 太 





多 彝 Wow Htory Bookmarks IIooz bep 


人 . 字 : 爸 售 | 口 mtpynocshoajco-bnyueform,pPNamenchraain+5cott+DobbinaaPhone=543-123-4567 


口 Customize Unks 网 fi:jlicJDocumentsg,， 思 Free Hotmal 可 Reaplayer L] Wndows Marketplce [] WindowsMeda [| 
[Cj Mozas Firefox Stert Page RUve seerdh 吕 Fes cGI Form 





Brocesstmg CGI form 


QUERY _ STRING = Vaxojae=Cjrzgtat1i+ScoHDoppzhiSRPHo1ie=543-T23-5S67 











图 16-15 示例 16.14 中 CGI 脚本 的 输出 


借助 Perl 解码 查询 字符 串 。 对 查询 字符 串 进行 解码 并 不 困难 ， 因 为 Perl 已 经 提供 了 很 多 字符 
串 操作 国 数 ， 如 t、s、split、substr、pack 等 等 。 当 用 户 从 服务 器 获得 查询 字符 串 并 将 它 传 人 Perl 
程序 之 后 ， 便 可 对 它 进 行 解析 ， 并 随心 所 欲 地 处 理 所 得 数据 。 为 了 从 查询 字符 串 中 剔除 &、+ 和 = 
符号 ， 可 使 用 杰 换 命令 s、split 国 数 或 翻译 国 数 tf。 为 了 对 前 面 带 有 %% 符 号 的 字符 进行 从 十 六 进 制 
值 到 字符 的 转换 , 一般 可 使 用 pack 函数 。 表 16-8 和 表 16-9 列举 了 查询 字符 串 中 的 编码 符号 和 URL 
十 六 进 制 编码 字符 。 



































全 ” 当 使 用 POST 方法 时 ， 会 把 输入 从 STDIN 赋值 给 一 个 变量 ， 并 以 同样 的 方式 编码 。 
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表 16-8 查询 字符 串 中 的 编码 符号 





符号 切 能 
& 分 隔 键 / 值 对 
+ 替换 空格 


代表 其 十 六 进 制 值 小 于 21〈 即 十 进 制 33) 或 大 于 7f〈( 即 十 进 制 127) 的 ASCII 字符 和 特殊 字 
%xy 符 ? 、 文 、%、+ 和 =。 这 些 字 符 的 开头 必须 出 现 一 个 %， 甚 后 是 与 该 字符 值 相 等 的 十 六 进 制 值 。 
如 ，%2F 代表 正 斜 枉 ，%2c 则 代表 过 号 








最 





表 16-9 URL 十 六 进 制 编码 字符 





汪 值 字符 值 
制 表 符 〈Tab ) 2%09 << o%63C 
空格 (Space ) 9%20 芋 o%3D 
! %21 > %3E 
%22 ? %3F 
%23 四 %40 
的 2 和 4 [ %5B 
% %25 \ %5C 
K %20 ] %5D 
《 %28 ^ o%5E 
) %29 %60 
%2C { %7B 
2% 2 | %7C 
%2F } %7D 
%%3A 总 %7E 

%3B 





使 用 Perl 解析 表单 输入 。 当 Perl CGI 脚本 从 表单 获得 输入 内 容 后 ， 就 对 它 进 行 解码 。 在 该 过 
程 中 ， 脚 本 会 负责 拆 分 其 键 / 值 对 ， 并 以 常规 文本 替换 其 中 的 特殊 字符 。 解 析 完 毕 后 ， 便 可 使 用 这 
些 信息 来 创建 客户 登记 本 、 数 据 、 向 用 户 发 送 电子 邮件 等 等 。 

用 于 解析 编码 字符 串 的 例 程 可 以 放 在 子 例 程 中 ， 并 保存 到 读者 自己 的 库 里 面 。 或 者 也 可 利用 
CGI.pm 库 模 块 进行 解析 。 该 模块 是 Perl 标准 发 布 版 的 一 部 分 ， 它 避免 了 所 有 的 麻烦 。 

解码 查询 字符 串 。 解 码 的 各 个 步骤 均 由 了 Perl 国 数 进行 处 理 。 下 面 显 示 了 一 个 赋值 给 
$ENV{QUERY _ STRING } 的 URL 编码 字符 串 。 
































Name=Christian+Dobbins&gPhone=543-456-1234 


甚 键 / 值 对 表明 该 URL 由 三 段 信息 组 成 : Name、Phone 和 Sign， 这 些 信息 都 由 文 号 隔 开 。 
Name=Christian+Dobbins&gPhone=543-456-1234 
首先 要 做 的 是 拆 分 该 行 信息 并 创建 数组 〈 详 见 下 面 的 步骤 1)。 当 基于 & 拆 分 完毕 字符 串 后 , 便 


可 使 用 灵 或 s 然后 ， 以 = 作为 拆 分 定 界 符 《〈 详 见 步 又 2)， 使 用 split 国 数 把 其 余 
的 字符 串 继 续 拆 分 为 键 / 值 对 。 
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了 Qkey_value = SP1Lit(/&/， SENV{QUERY_ STRING] ) ; 
Print "QQkey ValueNn" 
人 井下 蕊 杞 记 二 和 


Name=ChrIistian+Dobpbpins Phone=543-456- 了 1234 


拆 分 查询 字符 串 ， 创 建 @key_value 数组 。 


区 


4. 


foreach Spair ( key value) { 
Spair =~ trV/+/ /1; 
($key，S$Svalue) = SP1LiLt(/=/，Spair); 


Print "NtS$Skey: S$valueNnn"; 
} 


Name=Christian+Dobbins Phone=543-456-1234 


忆 1 七 条 妈 七 
Name: Christian DopbIins 
Phone: 543-456-1234 


(RnaoenesreEURSRTCoqosaosGcnogE assioneocosENVLIOURRYESTIRINGI) 


下 
多 
引 


$inPut="string=Joe+Smithg3RAS5245052c000g853RA0252ER0352ER77" 7; 


$inpPut=~s/%s (..)/Pack("c"，hex($1) ) /ge: 
IE 


[Bipaalenie 
string=Joe+Smith:S50,000:02/03X77 


1. 该 字符 串 中 含有 小 于 十 进 制 33 和 大 于 127 的 ASCII 字符 、 冒 号 、 美 元 符号 、 喜 号 和 正 斜 杠 。 
2. 使 用 pack 国 数 将 十 六 进 制 编码 格式 的 字符 转换 回 字 符 格 式 。 


3. 替换 操作 的 搜索 端 /%(..)/ 是 一 个 正则 表达 式 , 含 有 百 分 


号 实 量 和 位 于 括号 中 的 两 个 字符 “〈 其 


中 每 个 点 号 代表 一 个 字符 )。 这 里 使 用 了 小 括号 ， 以 便 让 Perl 将 找到 的 两 个 字符 保存 到 特殊 
标量 $1 中 。 

















在 替换 端 , 首先 使 用 pack 函数 将 保存 在 $1 中 的 两 个 十 六 进 制 字符 值 转换 为 其 相应 的 十 进 制 值 ， 


然后 再 把 得 到 的 十 进 制 值 转换 为 无 符号 的 字符 。 最 后 把 结果 赋值 给 标量 $input。 








16x6.5 


现在 则 必须 删除 + 符号 。 


总 结 


GET 方法。 现在 可 以 总 结 一 下 Perl CGI 通过 GET 方 法 可 以 处 理 的 表单 。 当 用 户 填 充 了 表单 并 
按 下 Submit 按钮 后 ，CGI 会 解码 查询 字符 串 ， 并 将 最 终结 果 显 示 到 返回 的 HIML 页 面 上 。 




















下 看 


ij 的 示例 将 展示 : 


1. 填充 好 的 HTML 表单 。 
2. 生成 表单 的 HTML 源 文件 。 

3. CGI 处 理 后 的 表单 。 

4. 负责 处 理 表 单 的 Perl CGI 脚本 。 
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示例 16.16 


(The HIML source 了 file) 


4 


号 


<htm1l><headq><title>cgi form</tit1le></head><bodqy> 

过 | 员 引 和合 

<form action="httP://127.0.0.1/cgi-bin/getmethod.cgi" method=get> 
snsnewssroeesesssaecomac eg ee ES 天 王 包 古 ESDESesss 本 nn 和 二 
Please enter Your name: <BR> 

<1input typPe="textn" size=50 name=Dname> 

<PE/> 

Plese enter YOUuULT Salary (号 间 ## 井 井 . 井 #) : < 孔 R> 

<INEBUT TYPE="text" SI2E=30 NAMBEB=Salaczy> 

< BA 

Plese enter your birth date (mm/dd/yy) : <BR> 

<1input type="text" size=30 name=b1izthaate> 

<PE/> 

<inPut tyPe=submit value="Submit Quezry"> 

<INPUT 了 TYPERE=RESET VALUE="Reset"> 

</Eorm> 

证 庆 


1. 表单 是 从 <form> 标签 开始 的 。 用 户 在 表单 上 点 击 Submit 按钮 后 ，action 属性 会 触发 本 机 


改 上 iP 


( 永 地 主机 耳 地 焉 为 127.0.0.1) 上 的 HITP 服务器 启动 其 根 目 录 下 cgi-bin 目录 中 的 getmethod. 
cgi 脚本 。 

. 要 求 用 户 提 供 输 入 信息 。 

. 用 户 在 文本 框 中 填 入 自己 的 名 字 、 薪 金 等 。 

. 当 用 户 按 下 Submit 按钮 时 ， 激 话 action 属性 指定 的 CGI 脚本 。 

. 这 里 是 表单 标签 的 结束 位 置 。 








File Edit Wew History Bookmarks Tools Help 


区 他 个 加 JWCywampfawwigetformhtml 








[ Customize Links 给 fie WEJVDocuments，,， 巴 Free Hotmail 节 2 Realplayd 





LJ cgiform 回 i lcgiform 











了 Please enter yout hatme: 


[Leuise Cederstrom 


Please Etntef YOUt Slaty (共生 玫 
$250.000 


Please entef yout bttth date (tmntnyddyyr: 


[oz 6/51 














图 16-16 “示例 16.16 中 的 HIML 表单 
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示例 16.17 


#!c:/VPer1l/bin/Vper1l 
# Thpe CGIT script that Processes the form Shown ID ExampIJe 8.12. 
有 ET 
2 NM 
<htm1l><title>Decoding the Input Data</tit1le> 
<bodqy bgcolor="1lavenaer"> 
<ftont face="VerzQana" Size=" 二 "> 
且 TMEL 
全 
# Gettin9 the InPut 
村 Sinputstzing=SENV{OUERY STRING}T 7; 
TREEEEaecedegR 有 得 写 
本 这 生生 区区 
乾 五 xtractIzn9 the + ana & anaq creatin9 Key/valIue Pairs 
4 key value=split(/&/，,Sinputstring) 





foreach Spair ( Qkey value) { 
($Skey，$value) = spPLit(/=/，S$SPaizr) ; 
6 S$value=~s/s(..)/Pack("Cc"，hex($1))/ge: 
Svalue =~ S/NAn/ /g; 
S$value =~ S/NAE//G; 
Svalue =~ S/N\cM//G:; 
了 了 S$input{S$key}j=$value ) # Creating a hash 


】} 
# after aecoazin9 
这 让 开交 二 全 及 二 全 
下 有 让 NEEEEOEESOEOGOEEY 和 EE 光 
8 while(($key，S$value)=each(gsinput) ) { 
人 
】} 
人 二 性 和 生 ER 
过 遇 天 全 
<P>Now what do we want to aqo with this information? </P> 
IE 
</body> 
ET 
了 TMP 





1. MIME 首部 行 表明 由 该 程序 返回 的 数据 格式 为 HIMEL 文本。 在 首部 信息 后 面 必 须 提 供 两 个 
换行 符 〈 这 是 必需 的 ! )。 

2. 散 列 %ENYVY 中 售 有 Web 服务 器 发 送 给 该 Perl 程序 的 键 / 值 对 。 将 环境 变量 QUERY_STRING 
的 值 研 予 标量 $inputstring。 

.tf 国 数 将 所 有 的 + 转换 为 空格 。 

.pack 国 数 将 十 六 进 制 数字 转换 为 其 对 应 的 ASCII 字符 。 

. 将 标量 $inputstring 的 值 从 Perl 脚本 发 送 给 服务 妖 ， 然 后 再 返回 给 浏览 器 。 

. 依据 及 符 吕 拆 分 标量 $inputstring。 将 获得 的 键 / 值 对 保存 到 含有 三 个 元 素 的 数组 @Kkey_value 
中 ， 其 内 容 是 : 
Name=Louise CederstromwsSalary=$200,000& Birthday=7/16/51 

7. 使 用 foreach 循环 运 代 遍历 数组 @key_value。 以 = 符号 拆 分 每 个 数组 元 素 , 创建 并 返回 键 / 值 对 。 

8. 使 用 相应 的 键 / 值 对 创建 一 个 新 散 列 %inpnut 。 

9. 使 用 while 循环 运 代 遍历 散 列 。 


仆 Wi 上 
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10. 打印 新 的 键 值 对 , 并 将 它 发 送 回 Web 服务 器 。 浏 览 器 将 显示 这 些 输出 内 容 。 当 Perl 脚本 解 
析 并 保存 好 来 自 表 单 的 输入 后 ， 程 序 员 可 以 自由 决定 如 何 使 用 这 些 数据 。 他 可 以 向 用 户 回复 
电子 邮件 ， 将 数据 保存 到 数据 库 中 ， 或 者 创建 地 址 敌 ， 等 等 。 真 正 的 工作 就 是 这 些 ! 
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Decoding the query string 





Before decoding'; 
Name"LoujiserCederstromR&Salaryr9%242009%2C000&PBirthdate"07962F16902FS1 


After decoding %xy- 
Name=Louise Cederstrom&Salary=S200,000&Birthdate=07/16/51 


After decoding + and &: 
Salary: 3200.000 
Birthdate: 07X6[3T 
Names [oowise Cederstro 


Now what do we want to do with this information7 





图 16-17 “示例 16.17 中 CGIPerl 处 理 后 的 输出 
16.6.6 POST 方法 


GET 方法 和 POST 方法 之 间 的 惟一 区 别 是 二 者 从 服务 器 把 输入 传送 到 CGI 程序 的 方式 。 当 使 

用 GET 方法 时 ， 服 务 器 将 把 输入 放 入 环境 变量 QUERY_STRING 中 ， 然 后 发 送 给 CGI 程序 。 
当 使 用 POST 方法 时 ，CGI 程序 将 从 标准 输入 STDIN 中 获取 输入 。 这 两 种 方式 的 输入 编码 格 
式 完 全 相同 。 使 用 POST 方法 的 原因 之 一 是 有 的 浏览 器 限制 了 保存 到 环境 变量 QUERY_STRING 中 
的 数据 总 量 。 而 POST 方法 是 不 会 将 其 数据 存储 到 查询 字符 串 中 的 。 另 外 ，GET 方法 会 在 浏览 器 
Location 框 内 的 URL 中 显示 所 有 输入 数据 ， 而 POST 方法 则 能 隐藏 这 些 数据 。 由 于 POST 方法 不 
会 把 输入 附加 到 URL 上 ， 因 此 常用 于 处 理 那 些 需 要 填 入 很 多 数据 的 表单 。 
在 HIML 文档 中 ，<FORM> 标签 表明 表单 的 起 始 位 置 。ACTION 属性 告诉 浏览 器 将 用 户 选 
定 的 数据 发 送 到 哪里 ，Method 方法 则 告诉 浏览 器 如 何 去 发 送 。 如 果 使 用 POST 方法 的 话 ， 会 把 济 
览 器 的 输出 发 送 到 服务 器 ， 然 后 再 到 CGI 程序 的 标准 输入 STDIN。 数 据 总 量 将 保存 在 环境 变量 
CONTENT_LENGTH 中 ， 表 示 用 户 提 供 的 输入 内 容 字 节 数 。 

浏览 器 不 会 把 输入 内 容 赋 了 予 环境 变量 QUERY_STRING， 而 是 在 消息 体 中 发 送 到 服务 器 的 ， 这 
[电子 邮件 的 发 送 方式 较为 类 似 。 然 后 由 服务 器 负责 填充 所 有 数据 ， 并 转发 给 CGI 程序 。 
Perl 的 read 国 数 会 读 取 CONTENT_LENGTH 字 节 数 ， 将 输入 保存 到 标量 中 ， 然 后 通过 与 处 
理 查询 字符 串 相 同 的 方法 来 处 理 它 。 这 里 改变 的 并 不 是 输入 的 格式 ， 而 是 进入 程序 的 方式 。 请 注 
意 ， 在 使 用 POST 方法 后 ， 浏 览 右 的 Location 框 中 不 再 像 GET 方法 时 那样 在 URL 中 含有 输入 内 
容 了 。 
































RN 
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示例 16.18 


(The HIMIL source 五 le) 














<HTIMEL> 
< 了 PEAD> 
省 
ER 
下 <EORM RARCTION="httpP://127.0.0.1/cgi-bin/Postmethod.cgi" METHOD=POST> 
Wiisnauwsee esssESOSUSmE ESEOES EPE 和 届 和 马 是 ESeSSS 汪 证 
刘 Blieaseuenmeer your name BR> 
悦 <INPUT TYPE="textn SI2E=50 NAME=Name> 
<P> 
Please entezr YOULT SalaryYy (号 大井 # 井 # 。 井 井 ) : < 了 BR> 
<TNEUT TYPE="textn" SI2ZE=30 NAME=Salazy> 
<P> 
Please enter Your birth date (mm/dd/yy) : <BR> 
<INPUT TYPE="text" SI2E=30 NAME=Bizthaate> 
<P> 
4 <INPEUT TYPE=SUBMIT VALUE="Submit Query"> 
<INPUT 了 TYPE=RESET VALUE="Reset"> 
电 </EORM> 
ET 





1. <FORM> 标签 表示 表单 在 这 里 开始 。 将 ACTION 属性 赋值 为 CGI 脚本 postmethod.cgi 的 URL。 
该 脚本 将 在 用 户 点 击 Submit 按钮 时 执行 。 这 里 还 将 METHOD 属性 赋值 为 POST, 表明 如 何 
处 理 来 自 表单 的 数据 。 

. 要 求 用 户 输 入 。 

. 创建 文本 字段 〈Text field)， 用 于 保存 用 户 姓名 、 薪 金 和 生日 。 

. 创建 Submit 按钮 。 

. 结束 表单 。 


示例 16.19 


EC GETEIEDTTEE 瑟 和 
# 7Tpe CGIT script that Processes the form Shown ID ExampIJe 8.12. 
由 且 六 站 和 全 性 三 让 放生 二 六 本 TEN 
2 
ET 区 
<pboaQy bgcolor="1aVenaQeEz"> 
<font face="VeLrzQana" S1IZze=" 二 17"> 
卫 工 ME 
ES 
# Gettin9 the InPut 
3 Sinputstzing=SENV{OUERY STRING1} 1 7; 
SEEEEScSadamneR 过 外 二 于 
局 区 让 
# 五 xtractIin9 the + ana & ana creatin9 Key/valIue Pairs 
4 @key Value=split(/&/，Sinputstring) : 
foreach Spairz ( Qkey value) { 
豆 ($Skey，S$value) = sPLit(/=/，S$paiz) ; 
6 S$value=~s/s (..)/Pack("Cc"，hex($1) ) /ge: 
S$value =~ S/NXn/ /g7; 
S$value =~ S/ 人 NE//g; 
S$value =~ S/ 人 AcM//g; 
也 S$Sinput{fSkey}j=$value ) # Creating a hash 
】 
# after aecoazin9 
本 





惟 上 
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Co 


解释 


j 


下 世人 生 ES 下 过 < 人 

while(($key，S$Svalue)=each (gs$inpPut) ) { 
ni 

1 

NE 

<P>Now what do we want to aqo with this information? </P> 

ET 

区 人 sy 

</htm1> 

也 了 ME 


.这 个 MIME 首部 行 表明 ,该 程序 返回 的 数据 格式 将 是 一 段 HTML 文本 。 在 首部 信息 后 面 必 


须 提 供 两 个 换行 符 《〈 这 是 必需 的 ! )。 


2. here 文档 用 于 生成 HIML 页 面 的 开头 部 分 。 
3. %ENYV 散 列 中 含有 Web 服务 器 发 送 给 Perl 程序 的 键 / 值 对 。 环 境 变量 QUERY_STRING 的 


(LA 


CN 


内 容 将 会 赋值 给 标量 $inputstring。 


. 根据 区 符号 拆 分 标量 Sinputstring。 将 其 返回 值 保存 到 一 个 含有 三 个 元 素 的 数组 @key_value 


中 ， 形 如 : 
Name=Louise+Cederstrom Salary=$200,000 Birthdate=7/16/51 
$key_value[0] $key _ value[1] $key_value[2] 


. foreach 循环 会 逐一 读 取 数 组 中 的 每 个 元 素 。 首 先 将 每 个 元 素 通过 “=” 号 拆 分 , 从 而 生成 两 个 


值 ， 第 一 个 值 名 叫 $key， 表 示 来 自 HIML 表单 的 输入 设备 名 称 ， 如 “Name”; 第 二 个 值 名 为 
$value， 含 有 用 户 键 入 到 输入 设备 中 的 数据 ， 璧 如 “Louise+Caderstorm ”。 





. 现在 通过 Perl 的 pack 国 数 将 二 六 进 制 值 解码 为 各 自 对 应 的 ASCII 字符 值 。 


7. 通过 加 码 键 / 值 对 ， 创 建 一 个 新 的 散 列 %input。 


Co 


. 使 用 while 循环 迭代 遍历 散 列 。 打 印 新 的 键 值 对 ， 并 将 它们 发 送 回 Web 服务 器 。 浏 览 右 将 显示 这 





些 和 输出 。 当 Pen 脚本 解析 并 保存 好 来 自 表 单 的 输入 后 ， 程 序 员 可 以 自由 决定 如 何 使 用 这 些 数 据 。 他 
可 以 向 用 户 回 复 电子 邮件 ,将 数据 保存 到 数据 库 中 , 或 者 创建 地 址 短 , 等 等 。 真 正 的 工作 就 是 这 些 ! 





MD) cgi form - Mozilla Firefox 





File Edit Wewm History Bookmarks Tools Help 





~ 落 仑 ( 侍 | 口 Pile NACaampjwwwygetForm,html 





品 Customize Links 失 File: 避 ECJDocuments,,， 巴 Free Hotmail 9 ES 划 








LU ceiform lcgiform 











了 Please enter yout hatme: 


Louise Cederstrom 


Please ehtet youUt salaty 仙 反 晤 开 扩 : 
$250.000 


Please entet yout bitth date (tntnyddyr7: 
0771651 





ely Reset | 


图 16-18 示例 16.18 中 的 HTML 输入 表单 
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多 Decodng the input Data - Mozila Firefox 
钱 卫 Wew Histoy Bodkmas Iookg bp 





夫人 僵 | 口 np:miz7oo.tokrbmowmahoi pFane-toueeHCedestrom8alaryw%e24250Y%2CDO0BBithdanen073 


L] ceiomkueUns >】 :cypocuments. 。 思 mcenhoenal 可 Reaipleycr Lj wpndow Merketploce _j windom Meio jj wedovs 
全 SMWTPmsirelyy zervel - wkhenkcske Lj CGI Fom [UpecodngtheinpKpyas 





Decodinq the query string 
Before decoding: 


Name=Louise+Cederstrom&Ssalary=%24250%2C000&Birthdate=07%2Fl6%h2F51 


After decoding: 
Salary; %250.000 


Birthdate: O7ZAI6/5L 
Name: LouUise+Cederstrom 


Now what do we want to do with this information? 











图 16-19 ”示例 16.19 中 CGI 脚本 的 输出 
16.6.7 ”处 理 电子 邮件 


SMTP 服务 器 。 在 处 理 表单 时 ,经常 需 要 在 退出 前 发 送 电子 邮件 。 读 者 可 以 通过 电子 邮件 将 提 
交 的 表单 数据 发 送 给 用 户 和 /或 自己 。 如 果 没 有 有 效 的 SMTP (简单 邮件 传输 协议 ) 服务 器 的话 ， 
就 不 能 在 Internet 上 发 送 电 子 邮件 。 

SMTP 服务 器 是 一 种 邮件 daemon 程序 的 实例 , 它 能 在 端口 25 处 监听 到 来 的 邮件 。SMTP 是 一 
种 基于 TCP 协议 的 客户 端 /服务 器 协议 ， 其 客户 端 发 送 销 息 到 服务 器 。UNIX 系统 一 般 都 使 用 一 种 
名 叫 sendmail 的 邮件 程序 来 作为 SMTP 服务 器 ， 负 责 监听 到 达 的 邮件 。 读 者 通常 可 以 在 命令 行 中 
运行 sndmail， 并 以 接收 者 的 名 字 作 为 参数 。 如 要 终止 一 个 电子 邮件 消息 ， 可 把 一 个 点 号 放 在 单独 
一 行 即 可 。CGI 脚本 中 是 不 能 交互 发 送 邮件 的 , 因此 读者 可 能 需要 通过 sendmail 的 选项 来 控制 这 些 
特性 。 详 见 表 16-10。 








表 16-10 sendmail 选项 












































用 
-0 表示 其 后 是 sendmail 选项 
上， 从 消息 体 中 读 取 To、From、Cc 和 Becc 首部 信息 
-f "email address" 消息 来 自 这 个 电子 邮件 地 址 
-F "namen 消息 来 自 这 个 人 名 
-i 如 果 在 行内 ， 忽 略 其 点 号 
-0dq 将 多 个 电子 邮件 消息 放 入 队列 ， 以 便 实 现 异 步 传递 


对 于 Windwos, 也 有 两 个 类 似 于 sendmail 的 程序 。 首 先是 Blat, 它 是 一 个 得 到 广泛 使 用 的 公共 





号 ”Iternet 邮件 销 息 的 格式 由 RFC822 定义 。 
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Win32 控制 台 实用 程序 ， 可 通过 SMTP 协议 发 送 电 子 邮件 〈 详 见 www.interlog.com/~tcharron/blat. 
html)。 另 一 个 是 wSendmail， 这 是 一 种 小 型 的 电子 邮件 实用 程序 ， 可 以 从 程序 、 命 令 行 或 直接 在 
HTML 表单 中 发 送 电 子 邮件 〈 详 见 http:/www.scriptarchive.com/Internet/E Mail/E Mail Tools 或 
http:/www.developertutorials.comy/tutorial/cgi-Perlemail-with-Perl-2/page4.html)。 读 者 亦 可 访问 
CPAN， 并 从 中 搜索 MailFolder 包 。 该 包含 有 诸如 Mail::Folder、Mail::Internet 和 Net::SMTP 之 类 
的 模块 ， 从 而 可 以 进一步 简化 邮件 的 发 送 和 接收 工作 。 


示例 16.20 


(From the HTMIL form where the e-mail information is collected) 
ET 
<head><title>Register NowI</title></nhead> 
caieaecie 二 ec 和 让 GOD 

Eee 世人 王八 雹 二 攻 和 直 臣下 人 亲王 全 全 二 世人 攻 下 全 全 全 本 人 < 全 汪 下 二 
用 川 clti 本 有 二 se 二 9 和 全 olel[i0UOIEUIIEEEDE LEEE 员 图 尼 人 











aue=welazagetnuaeiaeqsccme > 
<input tyPe="hiadaadaen" name="xsub]jext7 
Value="course registration"> 
<inpu typss=" nadqenn name=7" 芭 gocadloye7" 
Value Era you Eco egLE 世 ED R 之 





妆 癌 之 
ssemame= sgSsEESIEEEGOD 
<table cellspacing=5 cellpadaing=3> 


性 
Sa 证 SG 全 村人 ELE 王 世 es 区 全 三 二 必 基 人 amENISS ESamEC 
Value=""></td> 
> 
/之 
证 轴 肌 三 下 和 辐 本 全 下 二 下 5 有 站 有 NG 三 且 放生 二 雪 生 二 
Sa 是 SEE 三 二 人 TESTECS 
Value=""></td> 





全 
二 下 于 全 
有 
<td align=left><input type=text size=30 name="companyx"n></td> 
E 
安 丰 下 之 
二 
<tQ align=1Left><input 七 YPe=text Size=30 name="adqadazess1x7" 
天 亲 开 省 区 三 出 由 当下 二 
AR 
安 七 玫 之 
< 星人 三 下 下 本 雪人 人 疝 攻克 有 全 q 
<tQ align=1Left><input 七 YPe=text S1Lze=30 name="Cciyx7 
天 关 下 帮 攻 三 下 下 二 妥 7 下 站 
全 
站 玉 公 
雪 世 Q 居 三 可 有 亲 三 天 人 相 用 有 3 和 莹 和 
<EdaliuognE=TeEEE> 
< sellecaname= statEeT SEE2zS > 
和 广大 有 和 攻克 ER 
<option value="AK">Alaska</option> 
<option value="A2">Arizona</option> 
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<option value="RR">ATKkansas</option> 
<option value="CA">California</option> 
<option value="Co">Colorado</option> 
<option value="CcT">Connecticut</option> 

sinueneEe 本 = 一 
<option value="WA">Washington</option> 
<option value="WV">West Virginia</option> 
<option value="WI">Wisconsin</option> 
<option value="WY">Wyoming</option> 
</select> 
富有 用 区 和 用 可 本 甩 有 有 有 仆 站 和 汪 
<Edlalogn=LeEE><nbue Eye=te 关 suZze=LOnamne 三 "ziD” 
Value=""></td> 
人 
</tab1le> 
5 总 有 
<input type=submit value="Register nowl"></td> 
<input typPpe=Treset></td> 
这 从 而 s 
< 
</body> 
EYE 


WDRegister Nowl - Mozilla Firefox 


Ble 5 如 WwW Hitory Bookmarks Ioos Bep 


。 - 他 僵 [日 peicmamplwwwiregstration him 





总 绷 乓 CUDoaumeng ， 瓯 RS 可 Reaplayer 上 RAE 同 


Rirst name: [| 
Iast Narme: | | 
Compar: [| 
Address: | | 
City/Tom [| 
StatejProvince: [Aabama 司 


Registernowl | Reset | 





了 PostalZip code: 




















图 16-20 “示例 16.20 中 的 部 分 HTML 注册 表单 


世 








示例 16.21 


eeGnscernoEe ecEHaGES 本 ai 二 CE EOETECEEEEIEESCEmah 

# AD 万 TMT Form was 丰 rst createa ana Processea to 9et the name of the 
# user Who WII receive the er-maiJ，， the Person Itr's from ana the 

# supbyect IIzne， 

S$mailLProgram="/usr/1Lib/sendmailL": # Your mazl Pro9ram 9oes here 
SSsendto="S$Sinput{Xxemali1lXxj07; # MaiIin9 aaaress 9oe5 Pere 
号 WE 人 放 直 本 这 全 

$subject="S$input{xsubjextln"7 


SR OO 开 F 
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D 站 “CD 


已 


太一 


Do = 


OoPen (MRIEL， "|1$mailLProgram -七 -oi") 11 qie "Can't open mail 
egramaSTTD 

# = 上 OptIon takes5 the heaaQers Erom the JInes FioI7IowIzn9 tpe 画 a727 

# Commana -oi options Prevent a Perioa at the be9innina9 of 

# IIznpe From meanin9 ena of InPUt 

Print MRIIL "To: $SsendtoNn" ; 

TENMRTOD REOmS SEERSTNOL 

TENMATTESDIECER SEE NIS 


PILEiInt MARAIL <<EORE # Start a "here aocument7" 


REgmwsenatonatornmatcnEc 是 np SSsEEname》 
Se ea 共 NEEDEUU 有 
Date of Registration: S$today 


Fizst Name: Sinput{Sfizst name } 
East Names Sinput{S$SLast _ name } 
Street Address : $input{lSadaressl 
ED SOUREHESGHEDS 
ESEESIARTEOWITHCEE SOUESEEaEE 


<Rest of message goes hetre> 


也 OR 
ES 


. 本 例 使 用 的 电子 邮件 程序 名 为 sendmail， 位 于 UNIX 的 /usrlib 子 目 孙 中 。 

. 将 本 行内 容 赋值 给 电子 邮件 中 的 To: 首部 。 

. 将 本 行内 容 赋值 给 电子 邮件 中 的 From: 首部 。 

. 本 行内 容 是 电子 邮件 中 的 Subject: 首部 。 

. Perl 准备 打开 MAIL 过 站 器 ,以便 将 用 户 的 电子 邮件 销 息 发 送 到 sendmail 程序 。- 选项 告诉 





sendmail 在 电子 邮件 文档 中 《而 不 是 从 命令 行 中 ) 扫描 To:、From: 和 Subject: 行 ; -ii 选项 则 
告诉 电子 邮件 程序 忽略 在 行 中 发 现 的 点 号 。 





. 这 是 首部 行 ， 负责 说 明 邮 件 将 发 送 给 谁 、 从 何 处 而 来 、 以 及 邮件 的 主题 。 这 些 值 均 取 自 表单 。 
. 开始 here 文档 。 将 位 于 EOF 和 EOF 之 间 的 文本 内 容 通过 MAIL 过 着 器 发 送 到 sendmail 程序 。 
.EOF 标记 表明 here 文档 到 此 结束 。 

.关闭 MAIL 过 滤器 。 





16.7 CGIl.pm 模块 


16.7.1 简介 





在 编写 动态 CGI 程序 〈 如 客户 端 、 页 面 计 数 器 、 反 馈 表 单 等 ) 时 ， 最 为 常用 的 Perl 5 模块 莫 过 











于 由 Lincoln Stein 编写 的 CGI.pm 模块 ; 该 模块 最 开始 出 现在 版 本 5.004 的 标准 Perl 库 中 。 读 者 可 
以 在 www.Perl.com/CPAN 处 找到 最 新 版 本 的 CGI.pm 模块 。CGI.pm 不 仅 利用 了 Perl 5 开始 引入 的 














ij 向 对 象 特 性 , 还 提供 了 专门 解释 查询 字符 串 的 方法 (GET 和 了 POST), 并 屏蔽 了 HIML 语法 细节 。 
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忆 


Lincoln Stein 还 扎 写 了 Official Guide to Programming with CGI.pm 日 (Www.wWiley.comy 
compbook/stein)。 这 是 一 个 易于 阅读 的 优秀 指导 文档 ， 提 供 了 如 下 信息 。 





16.7.2 ”优点 


1. CGI.pm 区 许 程序 员 维护 填 好 的 表单 (HTML ) 和 负责 解析 它 的 脚本 , 它们 都 位 于 cgi-bin 目 
录 下 的 同一 个 文件 中 。 通 过 这 种 方式 , HIML 文件 《含有 表单 ) 和 CGI 脚本 〈 和 负责 读 取 / 解析 处 理 
表单 数据 ) 就 不 再 分 离 了 。 

2. 当 用 户 填 充 了 表单 之 后 ， 结 果 将 出 现在 同一 页 面 上 。 换 而 言 之 ， 用 户 无 需 向 后 翻 页 查看 表 
单 上 的 内 容 ， 并 且 填 好 的 表单 也 不 会 丢失 数据 ， 即 维护 了 状态 。 这 种 数据 不 会 消失 的 特性 称 作 “ 粘 
性 ?。 如 要 禁止 该 特性 ， 请 参阅 “参数 覆盖 ”一 节 。 

3. 对 表单 数据 的 所 有 读 取 和 解析 工作 都 由 模块 负责 处 理 。 

4. 方法 用 于 代替 HIML 标签 ， 负 责 创 建文 本 框 、 单 选 按钮 、 莱 单 等 ， 以 便 创 建 表 单 或 指定 标 
准 标签 ， 如 首部 、 标 题 、 分 段 和 水 平 标尺 等 。 

5. 如 要 查看 CGI.pm 生成 的 HIML 标签 ,可 在 表单 显示 之 后 在 View 菜单 中 选择 Source(Internet 
Explorer 中 ) 。 

6. 接受 上 传 的 文件 ， 管 理 cookie。 这 样 使 用 CGI.pm 模块 会 更 容易 。 














16.7.3 使 用 CGIl.pm 编程 的 两 种 形式 


面向 对 象 的 样式 。 借助 面向 对 象 的 样式 ， 读 者 可 以 创建 一 个 或 多 个 CGI 对 象 ， 并 使 用 这 些 对 
象 方法 来 创建 页 面 的 各 个 元 素 。 每 个 CGI 对 象 对 以 服务 器 传 给 CGI 脚本 的 命令 参数 列表 开头 。 用 
户 可 以 修改 这 些 对象 ， 并 将 它们 发 送 到 文件 或 数据 库 中 。 每 一 个 对 象 都 是 独立 的 ， 拥 有 自己 的 参数 
列表 。 当 填写 完 表 单 后 ， 其 表单 内 容 将 可 以 从 一 个 脚本 运行 维持 到 下 一 个 脚本 ， 即 实现 了 状态 的 维 
护 〈 一 般 HTML 是 无 状态 的 ， 即 在 退出 页 面 时 所 有 的 内 容 均 会 消失 )。 


示例 16.22 


也 se CGI 











盟 $obj=new CGI; # Create the CGT obyject 
急 Print $obJjJj=>heaaQezr/ # Use Functions to Create the RTMTI Da9e 
4 Se 区 福 SEE3 二 EmoOieeEESEIIENEEOSEEE 却 天 
5 人 三 这 NE ES 起 全 二 
全 加 可 三 汐 站 和 人 和 同 0 全 十 二 全 下 全 避让 是 大 
ENSESDES 汪 和 ES 
6 So6]JE>end html7 
解释 


通过 从 六 览 器 窗口 中 碍 看 源 文件 , 便 可 看 到 如 下 输出 。 它 表明 了 CGI.pm 模块 生成 的 HIMEL 输 
出 内 容 。 本 例 中 面向 对 象 的 CGI 脚本 输出 内 容 如 图 16-21 所 示 。 


GUOERETETmi 
属 加 局 下 人 十 人 本 下 加 大 2 三 


日 Stein, 站 .,， Official Guide to Programming with CGI.pm: The Standard for Building Web Script，Wiley 
Computer Publishing，1998. 
全 Ibid。 
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二 本 让 

<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US"> 
<head><title>opbject orientedqd syntax</title></head><bodqy> 
| 关上 罗 册 大 二 下 让 三 下 人 折 让 

2 

区 

</pboqdy 

用 宙 二 而 让 芝 


object oriented syntax - Mozilla Firefox 








FEile Edit Wew History Bookmarks Tools Help 








夫人 相公 人 全 | 口 htp:127.0.0.1cgrbiniobjcgil 





[ Customize Links 给 fileWCEWDocuments，， 巴 Free Hotmail 2 Realplay 





This is a test... 


This is a test... 


TIhis is a test... 











图 16-21 示例 16.22 中 面向 对 象 的 CGI 脚本 输出 内 容 








面向 国 数 的 样式 。 面向 函数 的 样式 要 比 面向 对 象 的 样式 更 容易 使 用 ， 因 为 它 可 以 直接 创建 或 
操纵 CGI 对 象 。 模 块 将 创建 一 个 默认 的 CGI 对 象 。 用 户 可 以 使 用 统一 的 内 建国 数 来 操作 对 象 、 向 
国 数 传递 参数 、 创 建 HTML 标签 或 者 检索 传人 表单 的 信息 。 

尽管 面向 国 数 的 样式 能 够 提供 更 为 简明 的 编程 接口 ， 但 它 一 次 只 能 使 用 一 个 CGI 对 象 。 

下 面 的 示例 使 用 了 面向 函数 的 接口 。 其 中 主要 的 区 别 在 于 必须 将 :standard 国 数 导入 到 程序 的 命 
名 空间 中 。 读 者 无 需 为 它 创建 CGI 对 象 , 它 会 自动 创建 8。 示 例 16.23 的 输入 内 容 如 图 16-22 所 示 。 
































ES 
开 use CGI qw(:standard) : # Function-orientea styIe uses a Set ofFf 
# stanaara Functions 
区 SSGSTE 
SiEaEEmEOERUIISC EECSEEEEQ 本 SEES 站 半 
4 全 了 0 人 全 > 和 于 > 和 时- 丽 和 4 和 
RS) 
Eve 本 Se SEN) 
与 Sme 央 man 


(LO 


机 











个 ”默认 创建 的 对 象 是 $SCGI::Q。 用 户 可 以 在 需要 时 直接 访问 它 。 
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tk9Function oriented syntag - Mozilla Firefox 








Ele Ed 昌 Ew History ， Bookmarks Tools Help 








只 ” 司 > > 他 防 企 | 口 http: 几 127.0.0,1cgi-binjfunccgi,pl 











面 Customize Links 给 Pie WECWVDocuments，， 





This is a test... 


This is a test... 


TIhis is a test... 





区 Fres Hotmail Realplay 











图 16-22 ”示例 16.23 中 面向 函数 的 CGI 脚本 输出 内 容 
16.7.4 重要 警 


Perl 的 print 国 数 用 于 将 输出 内 容 从 脚本 发 送 给 服务 器 。 不 过 在 很 多 示例 中 ， 
别 使 用 不 同 的 print 语句 , 而 是 可 以 向 print 函数 传递 由 逗号 晤 开 的 多 个 字符 串 。 
文档 中 ， 类 似 于 示例 16.23 的 脚本 会 以 一 个 print 函数 连续 输出 超过 30 行内 容 ， 











并 不 是 对 每 一 行 分 
事实 上 , 在 CGI.pm 
并 最 终 以 一 个 分 号 





结尾 。 这 里 很 容易 多 写 一 个 分 扎 ， 并 因此 错误 地 提前 结束 输出 。 这 样 做 会 造成 该 程序 中 断 执行 ， 并 





CGI - Simple Common Gateway Interface Class 


YNOPSIS 


坟 CGI script that creates a fill-out form 
# and echoes back its values . 


Use CGI qw-:standard~i 
Print headgrn 
start_~html("A_SimPle,ExamPle")， 
hli('A SimPle ExamPle')， 
startTform， 
at TS your name? " ,textfield(C'name'),P， 
"What 7:s the combinat ien3" P 
checkbox_groupP(-name=>， uerds 
-values=>['eenjie'， ， meenie' ， 
inie: ,moe']， 


) -defaults=>['eenie','minie'] 


，P， 
"NMNhat's your favorite color? ie 洒 
PoPuP_menu(-name=>， celor 


-values=>[， green' ,blue' 
hartreuse'])， 


suwbmit ， 


end_form， 
hr; 
if (Param()) 《 
my $name 二 Param( name ) 
my $keywords = join Param( words '); 
my $coler = _Param《 1 12 
Print "Your name is" an 535 5 RTMECShane7 P 
"The keywords are: ",em(escapeHTML($ke 
ywords)),P， 
"Your favorite color ls ",em(escapPeHTM 
($color))， 
hr; 
】 
BSTRACT 





his Perl library uses PerlS5 objects to make it eas 





图 16-23 CGILpm 文档 页 
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发 送 一 个 “Internet Server Error” 消 息 给 浏览 器 。 

另 一 个 常见 的 错误 是 不 恰当 地 终止 了 某 个 here 文档 。 为 了 避免 使 用 多 行 print 语句 ， 常 常会 
到 here 文档 〈 详 见 第 4 章 )。here 文档 的 终止 字 必 须 位 于 单独 的 行 并 紧 靠 其 左 侧 边界 ， 其 两 边 不 应 
出 现 空格 ， 并 以 回 车 符 结尾 。 


非 1 /万 斌 二 /De 羡 1 


# Thpe FTMT ta9s are embeaaea in the here aocument to avoia UsIn9 
# muItipIe Print statements 


再 PILEiInt <<EOE : # Pere aocument in a CGIT ScrIPpt 

区 Content-type: 七 exXt/nhtml 

3 

4 <HTMIL><HERAD><TITILE>Town Crier</TITLE></HEAD> 
<H1><CENTER>Hear ye hear ye Sir Richard comethlI!</CENTER></H1> 
</HTML> 

己 卫 OR 


# 7Tpe FEORP in Jine 5 cannot have SUrrounaina9 spaces ana must De 
# terminatea with aa nemwIine. 


16.7.5 HTML 表单 方法 


一 个 CGI 脚本 由 两 个 部 分 组 成 : 一 部 分 负责 创建 在 浏览 器 中 显示 的 表单 ， 另 一 部 分 则 负责 从 表 
单 获 取 输 入 ， 解 析 输 入 ， 并 通过 将 其 发 送 回 浏览 器 、 数 据 库 、 电 子 邮件 等 方式 来 处 理 这 些 信息 。 

创建 HTML 表单 。 模 块 简化 了 HTML 表单 的 创建 流程 。 譬 如， 其 中 有 的 方法 负责 起 始 或 终止 
HTML 表单 ， 有 的 则 用 于 创建 首部 、 复 选 框 、 弹 出 沫 单 、 单 选 按钮 、Subpmit 与 Reset 按钮 等 组 件 。 
表 16.11 列 出 了 GCI.pm 模块 提供 的 最 为 常用 的 HTML 方法 。 

当 向 CGI.pm 中 的 方法 传递 参数 时 ， 可 以 使 用 两 种 形式 : 

命名 参数 (Named arguments ) 一 一 以 键 / 值 对 的 形式 传递 ,其 参数 名 前 面 有 短 横 线 ,并 且 是 大 
小 写 敏 感 的 。 














示例 16.24 


(Namedaq Acguments) 

山 Eee onms 量 和 ET TSGILSE DSS 

三 朋克 的 王 光 | 二 让 ，EE 放 训 是 上 DNSGIOLEL RCISEN II 

-qdqefault=>'"Hawaii'y， 

) 

妥 IaaaDeCSieSOENENIEE 汪 9 直人 
-values=> N\Qcountriesy， 
-qdqefault=>'"HawaiLir'y 
) 


解释 
1. 要 传递 给 popup_menu 方法 的 参数 又 称 为 命名 参数 或 参数 列表 。 本 例 中 的 参数 名 分 别 是 -name、 
-value 和 -default。 这 些 参数 前 面 都 带 有 短 横 线 ， 并 且 是 大 小 写 敏 感 的 。 如 果 参 数 名 可 能 与 内 
建 的 Perl 函数 名 或 保留 字 冲 突 的 话 , 就 应 当 给 参数 加 上 引号 。 请 注意 , 这 里 的 参数 是 作为 键 / 值 
对 传递 给 方法 的 。-value 键 对 应 的 值 是 一 个 由 国家 组 成 的 匿名 数组 。 
2. 与 前 面 一 个 示例 完全 相同 , 只 不 过 甚 -value 的 值 是 指向 国家 数组 的 一 个 引用 。 在 程序 的 其 他 
位 置 创建 数组 @contries 并 给 它 赋 值 。 


位 置 参 数 (Positional arguments) 一 一 以 字符 串 形式 传递 ， 它 们 直接 代表 了 值 ， 用 于 简单 的 
HITML 标签 。 例 如 ，CGI.pm 提供 了 hl10) 方法 ,负责 生成 HIML 标签 <H1> 和 </HI>。hl0) 的 参数 
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则 是 插入 到 两 个 标签 之 间 的 文本 字符 串 。 其 调用 方法 如 下 : 
Print hl("This is a Positional argument ")， 
它 会 翻译 为: 
<H1> This is a positional argument </H1L> 
如 果 使 用 了 HIML 属性 5， 则 其 第 一 个 参数 是 指向 匿名 散 列 的 引用 ， 该 属性 及 其 值 都 将 在 前 导 
标签 之 前 插入 到 列表 中 。 例 如 : 
Pint hl({-align=>CENTER} ， "This heading is centered"n) ; 
它 会 翻译 为 : 
<H1 ALIGN="CENTER"> This heading is centered </H1> 
如 果 参 数 是 指向 匿名 列表 的 引用 ， 则 列表 中 的 每 一 项 都 会 以 恰当 的 方式 分 配 到 各 个 标签 中 去 。 例 如 : 
print 11(["apples'，'Ppears'，'peaches']):; 
将 翻译 为 三 个 列表 项 : 
<LI>apples</LI><LI>pears</LI><LI>'peaches'</ILI> 
而 : 
Print 11('apples'， "pears'，'Peaches'): 
则 会 翻译 为 : 


<LI>apples Pears peaches</LI> 


示例 16.25 


IE 人 全 
!c:/ActivePer1lL/bin/pPper1l .exe 
GPS 人 ES 





























1 use CGI qw(:standqard); 井 Function-orientea styIe Print heaaer 
2 ETESaSQSE7 

# Note that the fol1Jowin9 Eunctions are al1 empbedaaea as 

# comma-separatea Jist oF ar9uments in one Print statement. 


二 
-bgcolor=>"#99FFE66")， 
全 
(Na 
DSS SS 
全 
全 玫 三 症候 二 全 ES 内 环 
Ed 三 SceEcEE SSE SNWOeERUMOETEEneads 


\ oo ~]QOO 心 


训 


1. 使 用 CGI.pm 模块 的 面向 函 数 的 样式 。 
2. header 图 数 会 生成 首部 信息 《〈 即 "Context-type: text/htmln\n" )。 














外 ”属性 前 面 不 要 求 出 现 前 导 短 横 线 。 
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3. start_html 国 数 表明 开始 HIME 文档， 包括 了 页 面 标题 和 背景 颜色 〈 灰 绿色 )。 

4.b 函数 负责 生成 <b> 标签 ， 以 便 创 建 粗 体 字 歼 果 ; 而 font 函数 则 能 让 字体 增 大 两 号 ， 并 将 字 
体 上 颜色 设置 为 识 绿色 。 

5.p 国 数 负责 生成 一 个 段落 标签 ， 它 不 带 任何 参数 ， 只 是 一 个 起 始 标签 。 

6. 这 个 p 函数 则 以 一 个 字符 串 为 参数 ， 并 将 它 打 印 为 单独 的 一 段 。 

7.p 国 数 的 第 一 个 参数 将 让 整个 段落 位 于 页 面 中 央 。 在 浏览 器 中 , 该 段 文本 将 显示 为 一 行内 容 


red green yellow。 

8. 这 个 段落 标签 负责 在 单独 的 一 行 靠 左 显示 每 个 单词 。 它 含有 一 个 起 始 标签 ， 并 对 列表 中 的 每 
一 个 参数 都 设 定 了 靠 左 排列 的 属性 。 其 参数 是 一 个 指向 匿名 数组 的 引用 。 

9. 本 行 代码 将 创建 结尾 的 </body> 和 </html> 标签 。 


示例 16.26 


En 
EUBIRE 和 人 全 人 全 下 证 
局内 全 人 靖 旺 入 本 是 二 
<htm1l xmlns="http://www.wW3.org/1999/xhtml" 1ang="en-USn" 
Xmang=7en=US" > 
<headq> 
<title>Testing arguments</tit1le> 
<meta http-edqduiv="Ccontent-Type" content="text/htmlrcharset=iso- 
SBS9= 二 
</head> 
<boaQy bgcolor=" 乾 99FRRER66"> 
6 有 全 关 RomEEEC OO HG ES 三 2 全 冯 5 殉 全 
攻 人 2 
<P align="center">red green Yel1low</P> 
<P align="left">red</p> <P align="left">green</pP> <P 
align="left">yel1ow</P> 
人 eq 
ET 








AD)Testing arguments - Mozilla Firefox 





Ble ENE WEw History Bookmarks  Iooks Help 
俐 - - 人 @| 贷 日 htp:/i27.0.0,lcorbn | 到 区 | IIGacoo。 医 





口 Gustomzelinks 网 且 几 E:JDocuments ，， 思 Fes Hotmail Realplayer 





This is a string 

red greeln yellow 
red 
green 


yellow 




















图 16-24 CGIpm 国 数 产生 的 输出 内 容 


- 立 - 
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为 了 避免 冲突 情况 和 警告 信息 〈-w 开关 )， 读 者 可 以 将 所 有 参数 放 到 引号 中 去 。 下 表 16-11 列 
出 了 GCIpm 模块 提供 的 一 些 最 为 常用 的 HITML 方法 。 














表 16-11 HTML 方法 











方 ”法 用 途 属 性 
销 标 签 ， 
<4> - 
7 示例 -jjre 丰 -101ie，-O71CUic 矿 -Oo14oySseOve7 
《六 员 % : 
brint al({-href://google. 5 
Com/'}，"m"Go Searchnl:; 
粗 体 文本 ,<B> 
汪 示例 
在 天 生 责 七 玫 人 (下 开 玉宇 吉 ， 二 已 基 世 ”二 8 
bold") ; 
设置 基本 字体 的 大 小 ，<FON7> 
Dase1omptO (Pt11113) 示例 : -S1Ze (Size 7-71/) 


Print basefont ({-sSize=7)})， 
增加 文本 字体 的 大 小 ，<B7G> 
Digf7aetscape grOUD) 示例 : 
Pint "Large，big("and Larger") 
创建 行 中 断 ，<BR> 
示例 : 

Pint "Break 1ine here"yv 
DIE， "New Line starts here."; 
在 表 上 方 插入 标题 ，<C4P77ON> 

Print table(caption(b (Table 
Caption))，TF(_ continue 廿 able 


brO) 


capD1O72( ALI131) -GUIg1，-VGLig1 





























here...) 
ce1terOCaetlscape grouD) 文本 居中 ,<CENTER> 似乎 不 起 作用 , 请 使 用 <CEN7ER> 标签 
citel) 以 适当 的 斜体 字 创 建文 本 ，<CI7TE> 
局 创建 单独 命名 的 复 选 框 和 标记 -cpec 扩 -Selected -01，-VapDpe/，-7Q711e， 
-O11CVUic 乒 -Override, -Jorce, -VaLue 
-COUU111S，-COLS，-COUeade1s，-dejau 由 
5 -dejaul1is，-1apel1s，-1i0eprea[，-71a1101e， 
- 单个 名 称 链接 的 一 组 复 
chpeckboox_ Srotp() 创建 由 单个 名 称 链接 的 一 组 复 选 杠 -10OUapDel1s，-O7CUick，- Override，-jforce， 
-1701WS，-1OWAeade1rs，-VGLUe，-VGUUesS 
codel/) 以 等 宽 字 体 创 建文 本 ，<CODE> 
da/ 定义 列表 的 定义 项 ，<DD> 
0 为 首次 提交 表单 操作 创建 提交 按钮 ; 
同时 清除 旧 的 参数 列表 
dl 创建 定义 列表 ，<DZL>; 详 见 dd0 -CO1IDaCT 
at) 定义 列表 的 词汇 部 分 ，<D7> 
e11 人 重 〈 和 斜体 ) 的 文本 
e11d_Jorma0,end1orm 人 0) 结束 表单 ，</FORM> 
e110_N1121O) 结束 HIML 文档 , </BODJZ</FTMZE> 





Jo1tO(Cetscape groUD) 更 改 字体 -CO1o7 -Jace, -8ize 
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〈 续 ) 
方 ”法 用 途 属 性 
0 定义 一 个 框架 -II01Sg1121eighnt - 01718170WIGLA，-71G11e， 


Jrameset( etycape 
S1OLDJ) 


170 1610) 
1iddez0) 
P7O 

10 

z718() 


iage_Dution 人 ) 
jbd0 

20 

0L0/ 

PWO 


PassWwo1a_Jieldl0) 


DoPpUD_71e12af) 


Prel/) 


1adio_S1rouPDWO) 


1eset 人 ) 


SCFOULiS 711810) 


Selectl) 


S1110L10(11etscaPpe SrOUD) 
Start_1orm( Startforml0) 


Start_1I2UltiDple_ Jora0) 


St1ro11g() 
SUD12ZLO) 


SUD( 扩 (elscape S1OUDJ) 





创建 一 个 框架 ，<FR4MESET7> 


创建 标题 级 别 1-6 
<EI1>,< 厅 2> … < 有 6> 





[下 


| 建 一 个 隐藏 、 不 可 见 的 且 用 户 不 能 
编辑 的 文本 字段 
创建 水 平 标 尺 ，<ER> 


创建 斜体 文本 








创建 行内 图 像 ，<7MCG> 











生成 一 个 行内 图 像 ， 并 作为 提交 按钮 

图 像 
使 用 键盘 样式 创建 文本 

创建 有 序 或 无 序列 表 的 列表 项 

开始 一 个 有 序列 表 

创建 段 ，<P> 


创建 口令 字段 ; 输入 的 文本 将 显示 为 
星 号 























创建 弹出 菜单 , <SELEC7><OPTTON> 





只 


创建 预先 格式 化 的 打字 机 文本 ， 用 了 
保持 行 中 断 ，<PRE> 











创建 一 组 链接 到 同一 名 字 上 的 单 选 
按钮 





创建 表单 的 Reset 按钮 








控制 滚动 列表 框 的 表单 元 素 





创建 选择 标签 ， 注意 必须 大 写 “S”， 
以 免 和 Perl 内 建 的 select 国 数 钟 突 ， 
<SELFCT> 


减 小 文本 大 小 

开始 HTML 表单 ，<FORIM> 

与 start_form0 一 样 , 但 它 用 于 上 传 文件 
粗 体 文 本 

















创建 表单 的 提交 按钮 
上 标 文 本 





-11O1esize，-SC1O1IS，-S7C 


-COLS，-1oOW58 


-QUig1，-110SH1ade， -Si7e，-Widtp 


-QUig1，-G1 -porde7 -peigHti -WidtA， 
-jsSDace，-18110D，-S17C，-1oW3SFrc，-V1SDaCe， 
-1USe111GD 


-QUig1，-G1 -HeigHt -1G1Ie，-S7C，-Wid17 


- 力 Pe，-yGLUe 
-CO11DaQCE -8S1Q71 -1De 


-QULig1，-CLaSS 


-dejaxli -1apel1s，-71011e，-071 有 1 
-0O1CHha1ge，-oO1FoclS，-OVerride，-jorce， 
-VGLUe，-VaLUesS 


-COUU111S，-COLS，-COUjeade1s，-dejau 由 
-Lapel1s，-1i1epreak[，-1011e，-10OUaDely， 
-0O1CUic[，-oVverride，-Jforce，-FrowWay， 
-1OWAeade1s，-VvQLUe，-yVGLUes 


-dejaulh -defaxlt，-1apels，-71ULD1e， 
-11011e，-O11BIUP -OACHa1ge，-O7FoclS， 
-0OVe7ide, -1jofce, -817e,，-VGLUe，-VQLUey 


-11011e，-O1CUic 扩 -VG1Ue，-1ape! 
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方 法 用 





属 性 
-Lig1，-Dgcolon -porde -pordercol1or 
1ap1eOCHt1a13 grozD) 创建 表 -pordercolor-dark， -pordercolor-1igjb 
-CelLpaddi1g， -1sPace,， -VSDPace， -Widtjn 





-411g1，-pDgcolor，-pordercolo 疙 
大 条 讽 奈 交 0 创建 表单 元 ，<TD> -Dordercolor-1igAnt -pordercolor dr 
-CO1SDa1，-1OWFaD，-70WSPa1，-VG1ig7， 
-WOIG1 

-COL8S，-COUU1I1S，-11011e，-O71CHa1ge， 
textareal() 创建 多 行文 本 框 -OH1Focus，o1B1U， -o11yelect -override， 
-force, -vaLUe,， -dejazh -WapP 











出 


-1I0XZLe1gt1n，-11011e，-01CHAa1ge， 
textieldl) 生成 单行 文本 字段 -O1Focus，-o1B1UP -o1z1Select -override， 
-Jorce, -Size,，-VGLUe，-dejazHt 








1100711013 grozD) 创建 表 的 标题 ，<7Z> 
0 -01181，pDSgcolor，-pDordercol1on， 
定义 表 行 ; 注意 其 大 写字 母 “T”， 以 
T70O01t1L03 grouD) 免 与 Perl 的 内 建国 数 冲突 ，<7TR> ee -pordercolor1igAt 
11O) Typewriter 字体 
140/ 开始 一 个 无 序列 表 





16.7.6 CGIl.pm 如 何 处 理 表 单 


CGI.pm 使 得 用 户 能 够 在 一 个 脚本 内 创建 并 处 理 表单 。( 读 者 也 可 创建 单独 的 一 个 HIML 表单 ， 
同时 只 使 用 CGI.pm 的 表单 处 理 部 分 。 不 过 这 里 的 示例 只 介绍 了 如 何 把 整个 处 理 流 程 集成 到 一 个 脚 
本 中 去 。) 该 模块 提供 了 许多 方法 和 国 数 ， 能 够 处 理 Web 页 面 创 建 工 作 的 每 一 个 方面 ， 从 新 建 一 个 
HTML 文档 , 一 直到 创建 表单 和 用 于 解析 和 解码 其 输入 数据 的 输入 设备 。 用 户 将 会 在 同一 个 页 面 中 
实现 表单 的 生成 和 其 输入 的 处 理 。 这 些 脚本 都 是 自 处 理 〈self-processing) 的 ， 也 就 是 说 当 用 户 点 
击 Submit 按钮 时 ， 会 激 话 ACTION 属性 中 之 前 负责 打印 表单 内 容 的 那个 脚本 。 该 脚本 只 需 简 单 地 
进行 一 些 判 断 ， 就 能 保证 该 表单 已 经 提交 完毕 了 。 读 者 将 在 后 面 看 到 这 些 都 是 如 何 做 到 的 。 

start_html 方 法。 在 创建 HITP 首部 后 ,大 多 数 CGI 脚本 都 会 直接 开始 HIML 文档 。start_html0) 
方法 负责 创建 页 面 顶部 内 容 , 并 通过 各 种 选项 规定 页 面 的 外 观 和 行为 ， 辟 如 其 背景 色 、 标 题 、 DID、 
作者 等 。 它 会 创建 一 个 首部 行 “Contect-type”)， 此 外 还 会 为 该 文档 开始 一 个 <body> 标签 。 

start_form 方法 。 表 单 是 通过 start_form 方法 及 其 参数 而 创建 的 。 甚 中 每 种 域 类 型 (field type ) 
也 都 是 一 种 由 模块 提供 的 方法 ， 璧 如 textfield、popup_menu、submit， 等 等 。 这 些 方法 都 列举 在 表 
6.11 中 。 本 章 后 面 将 详细 介绍 其 中 的 每 一 种 方法 。 

submit 方法 。 当 然 ,为 了 处 理 一 个 表单 ， 必 须 首 先 提交 (submit) 它 。submit 方法 能 够 提供 表 
单 上 的 Submit 按钮 。 

param 方法 。 这 是 CGIpm 中 非常 重要 的 一 个 组 件 。 当 用 户 填 写 完 表 单 后 , CGI.pm 便 会 从 表单 
中 获取 输入 ， 进 行 解码 ， 并 将 它们 保存 到 键 / 值 对 中 。 这 些 工作 都 是 对 用 户 透 明 的 。 其 键 名 和 值 都 
可 以 通过 param() 国 数 了 予以 检索 。 在 调用 param() 时 ， 如 果 返 回 值 为 null， 就 说 明 用 户 还 没有 填 好 
表单 。 如 果 param() 国 数 返 回 true〈 非 null)， 则 该 表单 肯定 已 经 填写 完毕 ， 此 时 param() 了 国 数 还 可 
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用 于 检索 表单 信息 。 如 果 用 户 想 获得 某 个 值 ， 则 可 使 用 param0) 函数 根据 其 名 称 来 检索 ， 即 根据 表 
单 中 输入 设备 的 名 称 。 

下 面 这 个 示例 展示 了 CGI 程序 的 两 个 组 成 部 分 : HIML 表单 ， 以 及 如 何 通过 param() 国 数 得 到 
信息 。 若 想 了 解 其 他 用 于 处 理 参数 的 函数 列表 ， 请 参阅 表 16-13 。 


示例 16.27 


#!c:/ActivePerlV/bin/pPer1l.exe 
ESEEEIESUIG SG AR 
NSECIESC 
ES 
-BGCOLOR=>'yYyellow')， 
TI 人 区 下 全 全 向 二 本 可 人 用 本 可 亲本 和 三村 站 帮 三 过 让 ER 让 于 

















站 ES 
2507DOmnanEerestEedqR IT) 区 
号 Sa 本 Sm 
6 Was 旺 XeOUEENSme LEEENETICILSS 坝 玉 
Pv 
ENETEEEOeEmOaEDICET ESEEielaieosny 
Pv 
这 SEE 
-name=>'pPplace'yv 
写 SEE 三 ISSUEOBEEONMEOICOOA OSISmD 友 
人 
Pv 
8 Eee Da EeeSEIT oOER ERient oz 
Checkbox (=-name=>'" choice' -Label=>"If yes，check this box")， 
Pv 
Subpmait ("Pzess hezce")， 
和 ema 昌 em 
[ie 
开 示 工本 ( 必 记 Si 人 天 册 攻 八 7 下 年 人 本 让利 放 本 记 ES 矶 本 让 EC 让 
# 上 there are Parameters 
了 Ramanmenss SESSIONTSTES 寺 天 且 
Pv 
OUR EETIOS SEOLSISDN 动 太 
Pv 
LearnESRCEEESOR ES STONE SLS ES 及 
P7 
非 3 二 osEULSINeec ED 


DEint "You Will zeceive aa green balloon Short1lLylI7m 
】 
slsel 

PEint "Green may not be the best Color for you ."; 


解释 
1. use 指示 符 表 明正 在 载 入 CGIpm 模块 ， 并 导入 国 数 调用 的 :standard 集合 ， 该 集合 使 用 了 版 
本 1.21 及 其 后 版 本 库 的 新 语法 。 该 语法 允许 调用 方法 , 而 不 必 显 式 地 使 用 new 构造 国 数 方 
法 创建 对 象 , 即 由 模块 创建 对 象 。Lincoln Stein 的 Official Guide to programming with CGI 
pm 中 提供 了 快捷 方式 的 完整 列表 。 
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2. 首部 方法 header 返回 Content-type: header。 读 者 可 以 另外 选 定 自 己 的 MIME 类 型 ， 如 果 不 
选 的 话 ， 则 默认 为 text/html。 

3. 返回 HIMEL 首部 ， 并 打开 <BOD 产 标签 。 其 参数 是 可 选 的 ， 其 格式 包括 -title、-author、base 
等 。 用 户 还 可 以 将 额外 的 参数 (如 Netscape 提供 的 非 官方 的 BGCOLOR 属性 ) 附 加 到 <B8OD 产 
标签 上 ;， 例如，BGCOLOR=>yellow。 

4. img 方法 用 于 加 载 图 像 。GIF 图 像 存储 在 文档 根 目 录 的 Images 子 目 录 中 。 它 在 文本 中 是 左 对 
齐 的 。 请 广 意 ,print 国 数 直 到 第 11 行 才 结束 。 所 有 的 CGI 函数 都 通过 以 有 逗 号 隔 开 的 参数 列 
表 传 递 给 print 国 数 。 

. 本 行 会 生成 一 级 标题 标签 。 这 是 产生 < 太 7> 标签 的 快捷 方式 。 

. 该 方法 开始 表单 。 表单 默认 的 ACTION 属性 负责 指定 该 脚本 的 URL ,而 METHOD 属性 则 
区 二 oil 元 2 

. textfield 方法 负责 创建 文本 字段 框 。 其 第 一 个 参数 是 字段 的 NAME, 第 二 个 参数 表示 字段 的 
VALUE， 后 者 是 可 选 的 。 这 里 给 NAME 赋值 为 name， 而 把 VALUE 赋值 为 “”。 

.p 是 段 标 记 <P> 的 快捷 方式 。 

9. popup_mennu 方法 负责 创建 菜单 。 其 要 求 的 第 一 个 参数 是 菜单 名 称 (-name )。 第 二 个 参数 -value 

则 是 表示 菜单 项 的 数组 ， 它 可 以 是 命名 的 ， 也 可 以 是 匿名 的 。 

10. submit 方法 能 创建 Submit 按钮 。 

11. 该 行 表 示 结 束 表单 。 

12. 如 果 param 方法 返回 非 空 值 ， 则 会 打印 每 个 关联 到 参数 上 的 值 。 

13. param 方法 返回 与 name 关联 的 值 ， 也 就 是 用 户 针 对 该 参数 输入 的 内 容 。 


iuUsing the Function-Oriented syntax = Mozilla FirefoX 


Ele EdKE wew History Bookmarks Tools Help 




















人 


~ 


Co 





< 公 ~ ~ 人 党 口 http:127.0.0.1jcgi-binjtalksboutyou,pl 





[1 Customize Links 角 外: 届 EJVDocuments,， 巴 Free Hotrmiail CD RealpPlayer | ] Windows U| 


Tet's Hear From Youl! 


TI'm interested. 


Whats your name? 
Whats your occupation? | 
Select a Vacatton spot | Hawaii =| 


Do you want a green balloon? 
厂 下 yes, check thts box 


Press here | 











图 16-25 ”示例 16.27 中 填充 表单 前 的 1-11 行 输出 内 容 
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KUsing the Function-Oriented 5yntax =- Mozilla Firefox 





Ele Edit Wew History Bookmarks  Iooks Help 








< 作 ~ 胸 > 爷 证 | | 口 htp:jilz7.0.0.1jcgibinitalkaboutyou,pl 








面 | Customize Links 纵 hfile:)C:)Documents,， 巴 Free Hotrmail ED Realplayer | Windows M 





Tet's Hear From YouUl 





Tim interested. 


Whats your name? |kimberly Savage 
Whats your occupation? [Sudent 
Select a vacation spot | Europe 了 | 


Do you want a green balloon? 
[下 yes, check this box 


Press here | 


Your name 1s 天 zzperzay Sayage 





Your occupaton ls Stzzaezt 
Your wacathon spotls Birope 


You wwlltreceive a green balloon shortlyl 








在 命令 行 中 检查 表单 。 





图 16-26 ”完整 的 表单 和 CGIpm 处 理 结 果 





直接 运行 脚本 。 不 过 这 样 做 读者 可 能 只 会 看 到 如 下 错误 消息 : 


(Offline moade: 


enter name=vValue pairs on standqara input) 


读者 如 果 想 要 查看 CGI.pm 表单 生成 的 HTML 标签 ， 可 以 在 命令 行 中 





为 了 处 理 这 种 错误 ,读者 可 以 在 键入 键 / 值 对 后 按 下 <Ctrl>-dCUNIX ) 或 <Ctrl>-z (Windows )， 


也 可 传递 一 个 空 的 参数 列表 。 当 参数 列表 为 空 时 , 读者 便 可 在 输 吕 








标签 。 详 见 示例 16.28 。 


示例 16.28 


(At the_ Command Line) 
也 $ Perzl talLkaboutyou.P1IL 
(Offine moae: enter name=Vvalue Palirs on stanaarQ 1nput) 


Dame=DaDm 


JoPp=RPatpher 
PPJace=HamwazII 
New ESSS 基 CE 双生 已 天 而 生 三 二 三 二 


Ce 


上 中 看 到 没有 赋值 而 生成 的 HTML 
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Content=Type: text/nhEml 


机 镍 CGO 的 人 汪 本 全 放生 光 和 且 人 交 汪 记 是 三 

去 万 也 M 万 > 去 万 性 只 万 > 二 了 了 三 下 > 加 Sn 上 phe FnCctIonp OF7TenteQ 3937 七 a 广 <[T 工 克也 玉 > 

</HPFAD><BODY BGCOTOR="yeJJIomw"> 

有 区 

<H2>T'm internestea.</H2> 

<FORM METHFOD="POST" 了 ENCTYPRE="appIicatIionAx-www-Eorm-urIencoaqea"> 
Jpatr's your name? <TNPUT TYPR="text"”NaMRE="name7" 
所 遇 可 二 全国 三 有人 13 直人 人 
NAMPE="7opPp7 VAUPB=" Father"><P>SeJect a vacatIon Spot. 
<SETRCD NAMPB="PJace7> 

<OPTTON 5S 万 三 玉 CTD TVATUER= "amwaiI"> 万 amwaII 

<OPTTON  VADUE= "Europe">Rurope 

<OPTTON  VATUE="MexIico">MexIco 

<OPTTON VarUE="uapan">vapaDn 

多 厅 且 ECY 

<P><TNPUT TYPR=supmItw NaAME=". SubmzIt"></ FORM> 
<HR>Your name Is <EM>DPan</EM><P>Your occupation Is <EM>Fatpher 
</EM><P>Your vacation spot Is <PM> 厅 amwazII</BEM>< 万 R> 


(At the Commanad Line) 
习 $S Per1l talkaboutyou.P1LI < /dev/nul1l or Perl talLlkaboutyou.PL ' ! 
人 信访 二 
人 三) 
二 过 王后 攻读 区 移交 网 辣 玫 册 2 克 和 
MT 过 记 有 册 有 妥 了 丰 天 由 让 区 功 5 亲 林 生 有 二 本 册页 丰 有 77C 人 7 
</HPFAD><BODY BGCOTOR="yeJIJIomw"> 
过 
ER 
五 VCTYPE="appJIicationAx-mwmwmwform-urlencoadead"> 
Jpatr's your name? <TNPUT TYPR="text"” NAME="name7" 
人 Eee ie 二 Re 全 oo 站 2 人 着 扒 后 2 汪 三 22 
NAMRE= "Top7" Van0UE=""><P>SeJect a 7acatlion Spot. 
<SPETRCD NANMPB=7"PJace7> 
<OPTTON  VATDUE="HamazI">FamaII 
<OPTTON  VAaADURE= "RUrope">Rurope 
<OPTTON  VATDUE="MexIico">MexIco 
<OPTTON VarDUE="uvapan">vJapaDn 
全 而 本 9 
<P><TNPUT TYPR=supmzItw NAME=".SubmIit"></ FORM><HFR>7our name 工 S 
有 


1. 当 在 离线 模式 下 运行 时 ， 可 以 将 键 / 值 对 作为 标准 输入 。 这 里 读者 需要 先 检查 表单 ， 然 后 才 
能 获得 正确 的 键 ， 并 自行 提供 相应 的 值 。 在 本 示例 中 ， 用 户 提供 的 是 name=Dan,job=Father， 
place=Hawaii。 当 用 户 按 下 <Ctrl>-d (UNIX) 或 <Ctrl>-z (Windows) 之 后 ， 将 由 CGIpm 负 
责 处 理 输入 。 

2. 通过 传递 一 个 空 参数 列表 , 便 能 看 到 其 EIML 输出 是 没有 赋值 的 .在 UNIX 系统 中 ,/dev/null 
是 UNIX 的 比特 存储 器 〈 墨 筒 )， 从 该 目录 读 取 的 效果 等 价 于 读 取 空 文件 。 此 外 也 可 提供 一 组 
空 引号 作为 参数 ， 其 效果 也 是 一 样 的 。 
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16.7.7 CGIl.pm 表单 元 素 
表 16-12 CGI 方法 








方 ”法 示 例 用 途 
GDDE1Q SUery->QPDDPe1d(-1G11e=> GUNUe 小 将 值 附 加 到 参数 上 
89gUe 有 一 >cPeckKpoxf-na11e=>'cHneckpox 7a1ie2 
CjhecKbox -cjhecked=>r'cphecked'，-yalae=>'o10， 创建 单独 的 复 选 框 





-Lapel=>' cl1icKie 小 
3S9qUery->cneckpox_ groupDf-7a71e=> 
CH1eckpoxr 81oP groUD_1a1e， -Values=>1/ 118L 1 -dejaxlt=>/ SUDLiSL 创建 一 组 复 选 框 
/1 -1ieprea[=> WUe -ape1s=>1201a8H) 
8qgUery->cookFief-1a1e=>' essio717D 


出 | 





[ 泣 
二 


COOKie -VGNUe=> WAatever， -expDires=> ' 二 31 -Da1A=> 建 一 个 Netscape cookie 


-Go11011 三 > WUCSC.edU -SeCUFe=> 7 
































dejazlts SI9Ue1J->dejazlts， 创建 一 个 能 把 表单 重 置 为 默认 值 的 按钮 
delete 89Uery->deletefPara11n 小 从 参数 

delete _a11 query->delete 除 所 有 参数 ;清空 Squery， 对 象 
e11C1o771a 8que1J->e11d1or111; 结束 <FORM> 标签 

jeader 8qgueJy->Hpeader(-cookie=>'cookFie1a1ae 洲 把 一 个 cookie 放 入 HTTP 首部 

Je 人 -Gdejaxlt=>/ 创建 隐藏 的 文本 字段 

太古 0 全 8SqgUery-> 17108ge_Dutton (-1a1e 一 > DUO1 创建 可 点 击 的 图 像 按钮 














-S1C=> VsoU1Cce/URL -a1ign1=>7MIDD7E 淮 



























































172DOFL_71G1N1IeES 89Ue1y-> 171DOrt_ 11011eS(TG1IeSDGCe 小 将 变量 导入 命名 空间 
Isindex 获取 解释 后 的 关键 字 ， 并 ij 
Ke)Wwords @Feyworas = 89gUe1Jy->He)nO1ds， ， 所 获取 解释 后 的 关键 字 ， 并 返回 
jew 8query ->mnew CGF: 解析 输入 ， 并 将 其 放 入 GET 和 POST 方 
， 法 的 $query 对 象 
gdguery->mnew CGIWNPUTFTEB) 从 前 面 打开 的 文件 句柄 中 读 取 表单 内 容 
7 CQPOI415 94060740 ame > "me 返回 传人 脚本 的 参数 名 数组 
-VGLUe=> TVGLUe 小 
运 回 传递 参 妆 局 二 去 
Sva1ue = gguery >rarg 小 参数 中 对 应 于 @value = $query 
8qgUery->PassWwWord eldf-na1e=>' ecret' 人 
6380 -VQLUe= 一 > ta1t -size 一 >00， -110XUe1gS1t1=>80) 创建 口令 字段 
8qgUery-->PoPpUP_ eaf-7na1e=> 711e12I 
DoPp2UP _7rae11t -ya1Ues=>@ite1as，-dejfax11s=> ma1ie -1aDe1s=>1 创建 弹出 汪 单 





2610SH) 


SUer 一 >7radio_SgroUD(-H1a11e 一 > groOUD_7Ha1Ie 0 
7adio_S1roUD -Valley=> 1 1，-defax1t=> 11471e ， 人 
-1i71eDreak[=> TUe -LaDe1s=>120108yH) 





一 组 单 选 按钮 

















FeSet SUery->7ese 访 创建 Reset 按钮 ， 负 页 清除 表单 
人 复 为 前 一 个 值 





THI 
当 
这 




















SaVe 8qguer->save(FILED4NDZLD) 将 表单 状态 保存 到 文件 
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〈 续 ) 
方 ”法 示 例 用 途 
89qUer]) 一 >Scro1ing 11(-a1e=> 101910011e 
SC1OLLig List -values=>/ 1isL 1，-defax1t=> /SUD1SL 1)， 创建 一 个 滚动 列表 
-1IUL1DLe 三 > "1Ue -1aDe1=>1261asj) 
本 8qgUery->startformf-methnod=> -actio7=>， 返回 一 个 <FORM> 标签 ， 使 用 可 选 的 方 
-e11coOdi118) 法 、 操 作 和 编码 
人 DULLO7 ， 为 表单 创建 Submit 按钮 
-VGLUe=> QULUe 小 
extarea 与 文本 字段 〈textfield) 类 似 , 但 它 可 以 
含有 多 行文 本 输入 框 
39gUery-> textreld (-1a1e=> 万 e1d 1 请 一 术 全 区 
0 -de1talt=> tart -8i7e=>30， -11GXUe11gt 雪 =>090)， 创建 一 个 文本 字段 杠 
表 16-13 CGI 参数 方法 
方 二 法 用 途 示 例 
D1->deletefyoe 小 
从 参数 列表 中 删除 一 个 命名 参数 。 在 使 用 So/ 410oee ie 
delete,Deletel) 面向 函数 方式 的 CGIpm 时 , 必须 使 用 Delete 17 sy ， 
方法 Deletef yoe 小 
Delete(-na1ie=> Joe 小 
delete_a110,Delete_a110 删除 所 有 CGI 参数 8opj->delete_al10Delete_a110 
172Dort_11011es 人 ) 将 所 有 CGI 参数 导入 到 指定 命名 空间 中 





PDFint 8opj->Pa7ra110 人 0 
以 键 / 值 对 的 形式 从 填 好 的 表单 中 检索 参 QU 本 gop1->DPara 有 al 
Da7a1a0) 数 。 能 返回 一 个 列表 或 标量 DTi2L Da1a1N( Joe 小 
S1a11e=gopD1j->PGFa1I(-1G111e 王 > .TOe 小 























16.7.8 生成 表单 输入 字段 的 方法 


下 面 的 几 个 示例 将 使 用 面向 对 象 的 样式 ， 读 者 也 可 很 容易 地 通过 删除 所 有 对 象 引用 来 把 它 转换 
为 面向 国 数 的 样式 。 子 例 程 print_form 能 在 浏览 器 窗口 中 显示 表单 ， 而 do_work 子 例 程 将 在 param 
方法 返回 真 值 时 负责 生成 输出 内 容 ， 这 就 意味 着 完成 表单 的 填写 和 处 理 。 

textfield() 方法 。 textfiled 方法 能 创建 一 个 文本 字段 。 文 本 字段 组 件 允 许 用 户 在 一 个 殉 形 框 中 
输入 单行 文本 内 容 。 用 户 可 使 用 -size 参数 规定 框 的 大 小 , 其 单位 是 字符 宽 订 也 可 使 用 -length 〈 正 
整数 ) 来 设置 可 以 输入 的 字符 数 上 限 。 如 果 没 有 规定 -maxlength, 则 默认 可 以 输入 任意 数量 的 字符 。 
当 使 用 -value 时 ， 便 可 规定 该 字段 的 默认 值 ， 即 第 一 次 显示 时 出 现在 框 内 的 文本 。 















































格式 


EnESeDJE>EE 人 clanamegcEEextnela 元 
Pint S$obj->textfield( 
ae > mnSmE 攻 二 eeEiFeer 
saliue=2 asEaEESEaeEOEE 受 加 丰 
-Size=>7601"， 井 MIzatp in characters 
-max1length=>'90!)， # UPPer wiath 了 ImzIt 
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示例 16.29 


#! 
于 
包 


下 
4 


自卫 


多 
荆 吕 


14 
下 
了 


和 


由 8 


Te 


/usr/bin/per1l 
ECGIE5 
S$dquery = new CGI 
# _ Create a CGIT obyject 
Print $query->headqer 
Pint $dquerYy->start_htm1l ("FRorms and Text Fields") ; 
Fin SSgusry=>n2(7Pxanmnple Te Eeelq nethnoad7" 


SPint_ form($query) : 
&do_work ($query) if ($query->Param) : 
Pint $dquery->end_html: 


SuUb Pint_formf{ 
myisousry) 有 三 QQ 师 - 
的 2 市 宙 本 本 Sei 作 生 省 三 二 二 
ONWITS EUENSIEE 
Pint $Squery->textfield('name'): 二 SImpIe text 石 elIda 
nEO 全 于 
jn 间 几 EoLENESUS aineeiee osiEsEein 


Pint $dquery->textfield(-name=>'occupPation'， # GIvin9 values 
-defaulLt=>'Retired'， :+# to tphe 
-Size=>60， # 上 ext 五 eIa 


-max1length=>120， 
) 
上 下 请 区 和 三 区 仙 束 
疝 汪 亲人 羡 二 全 生 玫 三 汪 辣 则 人 让 有 人 作 二 和 让 
Pint $aquery->treset () 
Pint S$Saquery->enadaform; 
TESTeDULS 三 光 放 天仙 于 


Sub do_workti 

WSI 大 三 4 

my (Qvalues，S$Skey) ; 

ESOUERVYEDS 2 二 SREeSSEERSSS 2 元 

foreach $key ($query->Param) 1{ 
ia Nm 
Qvalues=$dquery->Param(Skey) : 
Ta 鸭 0 人 肌 和 交 生计 谎 全 辣 ) 且 时 人 晤 有 


覃 
下 wm D 一 攻 9 


(LA 


. 加 载 CGI.pm 模块 。 它 是 一 种 面向 对 象 的 模块 。 

. 调用 CGI 构造 国 数 方法 new， 返 回 指 向 CGI 对 象 的 引用 。 
.打印 HTML 首部 信息 ;例如 ，Content-type: textyhtml。 

. start_html 方法 负责 产生 HIMEL 标签 ， 从 而 开始 HIMEL 文档 。 此 外 还 生成 标题 Forms and 





Textfields， 以 及 body 标签 。 


.h2 方法 负责 生成 <H2> 标签 ， 即 二 级 标题 。 


6. 调用 用 户 定义 的 print_form 函数 ， 并 通过 参数 传递 指向 CGI 对 象 的 引用 。 
7. 以 指向 CGI 对 象 的 引用 作为 参数 调用 do_work 函数 。 这 是 用 户 自 定义 的 函数, 只 有 当 param 


国 数 返回 真 值 时 才 了 予以 调用 。 而 param 函数 只 有 在 填充 好 表单 后 才 会 返回 真 。 








.定义 print form 国 数 。 
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9. 第 一 个 参数 是 一 个 指向 CGI 对 象 的 引用 。 


10. 
IE 
| 也 
外 


14. 
SS 
10. 
下 访 


由 


startform 方法 产生 HIMEL 的 <FORM> 标签 。 
textfield 方法 使 用 参数 name 来 生成 文本 框 ， 并 把 填 和 文本 框 的 内 容 赋值 给 name。 


. 要 求 用 户 在 文本 框 中 提供 输入 。 


向 textfield 方法 传递 散 列 键 / 值 对 参数 ， 以 便 进 一 步 定义 文本 字段 。 框 中 将 显示 其 默认 值 。 
参见 图 16-27 中 显示 的 该 示例 输出 内 容 。 

submit 方法 能 创建 提交 按钮 ， 按 钮 上 的 文本 内 容 是 Enter。 

reset 方法 负责 创建 重 置 按 钮 ， 该 按钮 上 的 文本 内 容 是 Reset。 

endform 方法 负责 创建 HTML 的 </FORM> 标签 。 

这 是 用 户 自 定义 的 do_work 函数 ， 当 用 户 填 好 表单 并 按 下 提交 〈Enter) 按钮 后 ， 程 序 就 会 
调用 该 方法 。 它 使 用 param 函数 来 处 理 表单 提交 的 内 容 。 

param 国 数 能 返回 一 个 键 以 及 关联 到 这 个 键 的 值 列 表 。 这 里 的 键 是 输入 表单 的 参数 名 , 值 则 
是 用 户 或 表单 赋予 它 的 内 容 。 例 如 ， 用 户 会 把 键 occupation 的 对 应 值 填 入 为 jack ofall trades ; 
而 在 表单 处 理 之 前 ， 提 交 按 钮 中 action 键 的 相应 值 为 Enter。 


六 Forms and Texllields - Netscape 


El 5 Von Go Commuricatot_ Hep 
引 训 名 ”Bookmaks 了 [IE [7 AM1127001/cgHbaycgpm3stuffjiotm1CGLcgi 司 


Example: The textfield method 


What ES your name? ‖ 
Whats your occupahon? [Eestirea 
Enter | Reset | 














图 16-27 ”示例 16.29， 文 本 字段 表单 的 输出 











汪 Forms and Textfields - Netscape 


Ele Ed Yiew Go Communicatof Help 


3 JRo27001cgbVcopmsulMomiCG1cg 司 
Example; The textfield method 
Whatls your name? Flie Quigley 


Whatls your occupation2? 


acx OF 311 5rade3 
Enter | Res 时 | 








Here are the settings 


name: Elie Quilgley 
cccupaNorn jack of al trades 
action: Enter 








IDocumeniE Dene 于 2 到 


图 16-28 示例 16.29， 填 充 并 处 理 表单 后 的 输出 
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六 Semce ol MIip /1127 0 0 17cg SoVcgogm yivern1C51 cg -Nearege 






<1p0CTYFE HTML PUBLIC “~//IETE/ADTD HTMLAAEN'> 
<HTIMIL><MEAD7><TITLE7TOrms and Texcrields</TITLE7 

<1MEAD><B0DY7><M27>FxampIe:i Tbe cexcrield pecbodC/N2Z>CFO METHOD- OCT NHKCTTPE-"applicaxci0s/X-wwwrormucliencoded> 下 
Warc 13 790OUE pase7y <IN9WT TYFPE=-"cexc” NAME=25cc” VALUE="”"><6R7>Waxc 45 了 OoUr COccupacl1087 <INMPUT TIFE=-”ex5c” JANE=OcCWIAC 


下 加 











到 16-29 CGI.pm 生成 的 HTML 源 代 码 


checkbox0) 方法 。 checkbox0) 方法 用 于 创建 以 yes 或 no〈 布 尔 值 ) 响应 的 简单 复 选 框 。 复 选 
框 具有 NAME 和 VALUE 属性 ， 其 中 -name 负责 给 CGI 参数 命名 ， 而 -value 则 含有 单个 项 或 者 一 
个 指向 可 选 列表 项 的 引用 。 如 果 指 定 -checked 为 1， 则 复 选 框 在 开始 时 就 是 选中 的 。 如 有 果 给 -label 
赋 了 值 ， 则 在 复 选 框 下 面 打 印 其 内 容 ; 否则 就 打印 复 选 框 的 -name 值 。 如 果 设 有 选 定 该 复 选 枉 ， 它 
就 舍 有 空 参 数 。 

checkbox_group() 方法 负责 创建 一 组 复 选 框 ， 并 将 它们 链接 到 同一 个 名 字 上 。 各 个 选项 之 间 并 
不 相互 排斥 ， 即 ， 用 户 可 以 同时 选择 其 中 一 项 或 多 项 。 如 果 把 -linebreak 赋值 为 非 零 数 字 的 话 ， 就 
表明 垂直 排列 其 选项 。 一 般 情况 下 则 把 选项 显示 为 水 平 的 一 行 〈 详 见 示 例 16.30 )。 



































格式 


PLint $obj->checkbox(-name=>'name of checkbox'"， 
三 ES 
三 YE 有 攻 三 罗 的 向 
siaoelE>OCICREOREmESD 
) ; 


芭 本 间 区 es 和 三 湖人 EnoEee 了 三 3 全 可 下 
Chomce2 > blues 7 
"choice3 "=>"yYyellow'， 
本 
PEint $obj->checkbox groupP (-name=>'name of checkbox'v 


=ValueS=>I ccceel 7 echoDee2 7 
GE 
三 电 e 本 = EChomcel oem 


-1Linebreak => 1， 
-Labels=>N\g%s1lLabels 
页 


示例 16.30 


#!1V/usr/pin/pe1 

use CGI 

Saquery = new CGI; 

Print S$query->heaaer:; 

ES OSIEcEEOEESTESOE GETEESmQEERSETmET NE 
Pint "<H2>EXamPple Using Eorms with Checkboxes</H2>N\n" 


1 全 语 人 攻 呈 攻 天 叉 ) 访 
CoWeFRaUe (本 sm 
TESTSEY 三 之 人 各 古本 ml 卫 
SU 三 omE EDGE 
my(Sdquerzy) = QQ :; 
开 人 


TEST ES STTEC 
Pint S$Sdquezy=>textfielada('name") ; # 屋 SimpJIe text 态 e1a 





好 
446 黎 16 章 
站 下 臣民 
EEC 局 民 > 由 人 
2 Pint $quezy->checkbox (-name=> 'Martied'， 


三 直 且 DelLE>I TEARAOLCRCJCR me > 


# SIimpIe cphecKPbox 
证 和 六 和 间 革 


ET WasageEoesUENOSE SOURCE 全 忆 民 和 
司 Print $query->checkbox_ grouP (-name=> 'age_grouP '， 
-Values=>[ '!12-18'，'19-38'， 
3 导 汪 区 交 罗 多 三 开元 


=QeEalt=[ 
=】 nebreak=> 
站 

4 证 轴 站 疙 SG 作 区 况 本人 站 本 和 有 

本 下 和 二 EC 


ETInt S$SqUuery=>enaftorm: 
人 


6 Sub do worki 
msauery) 三 GE 
my (Gevalues，S$key) ; 
二 


思 foreach S$key ($querzy->Param) { 
1 

8 Qvalues=$dquery->param(Skey) ; 
PEzInEEIJICEIOODLAGVTaLaeS) 有 PRE 


王者 
二 


. Startform 方法 产生 HIMEL 的 <FORM> 标签 。 





1 
2. 这 是 最 简单 的 一 种 复 选 框 。 如 果 用 户 尚 未 婚配 ， 就 应 当 点 击 该 框 。 该 复 选 框 的 名 字 是 Single; 
程序 会 在 复 选 框 下 显示 标记 Iftnot, click me。 如 果 把 -checked 赋值 为 1 的话, 则 该 复 选 框 在 








第 一 次 出 现时 就 处 于 选中 状态 。 


LD 











. 这 是 复 选 框 组 的 一 个 示例 。 一 组 相关 复 选 框 通过 公用 的 名 字 age_group 链接 起 来 。 将 -value 


赋值 为 指向 选项 列表 的 引用 ， 这 些 选项 将 出 现 于 复 选 框 的 右 侧 。 如 果 用 到 了 -label， 它 将 含 
有 一 个 由 键 / 值 对 组 成 的 散 列 , 该 散 列 用 于 规定 每 一 个 复 选 框 的 标记 内 容 。-default 参数 负 
责 决定 第 一 次 出 现时 应 当选 中 哪个 复 选 框 。 如 果 将 -linebreak 赋 为 非 零 值 〈 真 ) 的 话 ， 就 表 





明 把 选项 以 垂直 列表 形式 显示 出 来 。 复 选 框 的 输出 内 容 如 
4. 当 用 户 按 下 标记 内 容 为 Select 的 按钮 时 ， 处 理 表 单 。 
5. Reset 按钮 只 能 在 用 户 尚未 提交 表单 时 用 于 清空 屏幕 内 容 。 
置 为 原始 的 默认 值 ， 则 可 将 -override 参数 设 定 为 非 零 值 。 





图 16-30 所 示 。 


如 要 克服 “粘性 ”即将 复 选 框 设 


6. 在 提交 表单 时 调用 do_work 国 数 。 该 国 数 负 责 处 理 表 单 输入 数据 的 读 取 和 解析 工作 。 填 写 并 





处 理 完 表单 后 的 输出 内 容 如 图 16-31 所 示 。 
7. 打印 来 自 表 单 〈 键 / 值 对 ) 的 每 一 个 参数 。 





radio_group(0 和 popup_menu() 方法 。 如 需 从 一 组 相互 排斥 的 选项 中 进行 选择 , 可 使 用 单 选 按 
钮 (radio button ) 或 者 弹出 菜单 (pop-up menu)。 单 选 按钮 使 得 用 户 能 把 少量 的 选项 组 织 在 一 起 ， 
并 置 于 表单 中 ; 不 过 对 于 大 量 的 选项 ， 还 是 使 用 弹出 茉 单 更 好 。 它 们 都 接受 由 键 / 值 对 组 成 的 参数 。 
由 于 其 参数 值 可 以 由 多 个 选项 构成 ， 因 此 这 里 得 到 的 是 指向 数组 的 引用 。-default 参数 负责 指定 菜 
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SC The Object Oriented CGI and Forms - Netscape 二 =|ejx|j 


Fle 多 Wew GO Commurwxaor Hep 人 和 2 
吉之 也 人 和 
FE Secuwmy ”Shop 2 


二 8cokmsrks SEE WharsRelaed 
| 号 rasrrMetaooe 园 webyal 团 Caksndy 国 Rodo 国 People 国 YelwPoges 国 Domiood 嘻 chonek 


| 











必 4 


了 EXxample using Forms with Checkboxes 


Whats your name7 | 


re you Tinarmied7 
厂 rou chick me 


What age govp(s) do you hang ovt wh? 

















太 12-18 
区 19-38 
太 33-58 
矿 59-100 
Saad| ca| 
图 16-30 示例 16.30 中 复 选 框 的 输出 
6 加 
File E 隐 WwW G0 Comrurk&or Hep 
昌 证 司 全 aa 甸 地 丰 性 
Beck Forcd Resd Home Sesrch Netscape Panl Seculy Shop Sep 
避 和 ”8cokmas chocVEheSRVEOEYVehREKEORR 司 圭 : WhesRelaed 





员 InasntMessaoe 团 webMal 团 Cndw 团 heado 国 Peope 团 Yaonpoon 固 bomioad 中 Chenel 





Example using Forms with Checkboxes 


Whatis your name7 [caacies 


Are yoU Dayied7 
F 严 Ifnot cbck me 


What age goup(3) do you hang out with? 
厂 12-18 


惨 19-38 
F 39-358 
厂 39-100 


Select | Clear | 


Here are the settings 








Tame: Charies 
Smneje on 
Bee_group: 19-38. 39-58 
认 6oK Seect 
友 Fo JRRDo 





图 16-31 示例 16.30， 填 写 并 处 理 表 单 后 的 输出 


单 第 一 次 出 现时 所 显示 的 值 。 如 果 要 在 单 选 组 或 弹出 菜单 中 使 用 不 同 的 用 户 可 见 标记 值 ,， 不 妨 提供 
可 选 参数 -label， 并 将 其 值 返 回 给 脚本 。 这 是 一 个 指向 关联 数组 的 指针 ， 负 责 把 莱 单 值 关 联 到 相应 
的 用 户 可 见 的 标记 上 。 如 果 没 有 提供 默认 值 ， 一 开始 便 会 选中 弹出 菜单 的 第 一 项 。 








格式 


glLabels = ('choicel'=>'redqr'y 
Cheee2 三 >JDIIDELY 
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"choice3 "=>"yYyellow'， 
) 
EEC oeme>ame 且 oO 本 Oo 
三 TGS 三 > Ce Eee ChCLCe2 
Eee 二 WE 
三 SEE=> cncoee ES<sm | 
-Linebreak => 1， 
-1Labels=>Ng%glabels 
站 


和 Labels = ('"choice1l1'=>Ired'yv 
"choice2'=>'blue'y 
"choice3 '=>'"yellow'， 
有 
PintESeDuE>popuoEmena(Ename 三 nams 且 OA iDEEmenD 
=Vales=>Tcreodleel choece227 eroleeS 
Te 用 以 ss0 二 | 于 
三 GE 二 纺 三 之 员 cODEcSSTSEmUL RE 
-1Linebpreak => 1， 
-1abels=>\Ng%glabels 
哲 


示例 16.31 


#!1V/bin/pPer1 
由 ES 
S$dquery = new CGI:; 
Pint S$Saquery->header 
ESE 和 OODjseesOrienNEEOEECETEESmOGNRSTmESOI 
Print "<H2>Example using Eorms with Radio Buttons</H2>Nn"; 
全 RE) 且 
cdcoEwerRosauery ) 人 EUsouseyspaeam) 有 
EneESGUsEYE>snoEEmil 


PCSEEO 人 全 | 

my(Squezy) = Q@ ; 

Print $query->Sst 上 atfEform: 

ENSIGNSTmESS 

PEint S$Squezy=->textfield('name')” # ASimpIe text 五 eJa 

Re 

FneasScsiseGV CawoFIIEESET 所 民 半 和 

加 Pint $dquery->radio_ groupP (-name=>'color '， 
-Values=>[ 'LTed'， 'green'， 
"blue'，'YellLlow' ]， 

-daefault=>'g9reen'， 
- 工 nebzeak=>'t 上 rue'， 

生 
和 
REHEESOUSEYE SECTIESEDN) 克 
Print $query->endfEorm:; 

RN 
】 
SeeleEwenislsil 
my (Souszy) = Ga 
my (evalues，S$Skey) ; 
Pint "<H2>Here are the Settings</H2>"; 


马 Eoreach S$key ($dquery=>param) { 
TEST 
4 GQvalues=$dquery->param(S$Skey) ; 


1 


解释 
1. 加 载 CGI.pm 模块 。 
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2. 以 参数 调用 radio_gourp 方法 , 在 表单 中 创建 一 个 单 选 按钮 组 radio g”zroup )。 每 个 单 选 按钮 
的 值 都 出 现在 按钮 右 侧 。 在 第 一 次 显示 时 , 表单 默认 选 定 的 按钮 是 green。-linebreak 参数 将 
在 屏幕 上 以 垂直 方式 放置 按钮 ， 而 不 是 水 平方 式 。 用 户 只 能 选择 其 中 一 个 按钮 。 单 选 按钮 组 
的 输出 内 容 如 图 16-32 所 示 。 

3. 当 用 户 填写 好 表单 并 按 下 提交 按钮 后 ，param 方法 将 返回 发 送 到 CGI 脚本 的 键 和 值 。 

4. 显示 键 / 值 对 。 填 入 并 处 理 完 表单 后 的 输出 内 容 如 图 16-33 所 示 。 





让 The 0biect 0riented CGI and Forms - Netscape | 口 | 又 | 
File Edkt Wew Go Communicator Help 
习 电台 Bookmaks 罗 Locaior[ OPOOOOTETTTRTTTEGIET 















Example using Forms with Radio Buttons 


Whatils your natme? | 


Select your favotite color? 
Cred 

他 green 

广 blue 

C yellow 


submit | Clear | 











图 16-32 ”示例 16.31， 单 选 按钮 表单 的 输出 内 容 








FExample using Forms with Radio Buttons 


Whatisyourname?[Eiliie 
Select your favotitte colot? 

Cred 

Cgreehn 

全 blue 

C yellow 


Submit | Clear | 


Here are the settings 


natne: 了 也 e 
color blue 
acttom Subrmit 


夺 记 Doonetome 
图 16-33 ”示例 16.31， 填 写 并 处 理 表单 后 的 输出 








到 
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标记 。 标 记 使 按钮 拥有 对 用 户 友好 的 名 字 ， 并 在 程序 中 关联 到 不 同 的 对 应 值 。 下 面 的 示例 中 ， 


标记 stop 、go 和 warn 将 分 别 出 现 在 浏 


|[ 太 bB 


蜗 纶 


是 red、green 和 yellow。 


示例 16.32 


窗口 中 单 选 按钮 的 旁边 。 由 param 方法 返回 的 值 将 分 别 


( The -Labels Parametez -- Segment from CGI SczIRt) 
二 ES 
Twinaaie NS 人 和 TESE 
EEiInL SSdquezy=->textfelod('name') : 井 马 SimpJe text 三 ea 
避 卫 证 天 区 国 号 
ne 二 3 本 ECEEEEEECnSEIESS Ga 本 和 攻 民 二 六 
由 Print $query->Lradio grouP (-name=>'color'， 
名 -Values=>[ 'LTed'，'green'， "yellow' ]， 
- 工 nebzeak=>'t 上 rue' 
国 -abelLs=>{zed=>'stoP'， 
green=> 'go'， 
YelL1Low=>'warn'， 
厅 
4 -default=>'g9reen'， 


| 汪 市 忆 
王 十 克 记 
Sebtnaie 
】} 


| 原 
站 
S$duery->treset('Clear')， 
$dquery->endform; 


ET 于 


上 
2. 由 


泣 The DObiect 0riented CGI and Forms - Netscape 
File Edit wiew Go Communicator Help 


同 品 RL 


网 奉 


以 参数 调用 radio_gourp 方法 。 用 户 一 次 只 能 选择 其 中 一 个 值 。 
param 方法 返回 的 值 分 别 是 red、green 和 yellow。 
3. 标记 实际 将 出 现在 每 个 单 选 按钮 的 旁边 。 用 户 在 六 


窗口 中 可 以 看 到 stop 、go 和 warn， 
画 回 区 





忌 允 "bookmaks 友 [LEEai6f hup:127.0.017cgibinycgipmstufflabels CGI 司 加 


Example using Fommns with Radgio Buttons 


了 hat is your natme? Fiie 


ETe 坦 3a cross Sectton Pick youtr leht. 
全 stob 
C watm 


submit | Clear | 


and Labels 





Here are the Settings 


hatme: Eltie 
Color &Xeen 
acttotn: Subtmntt 


三 Document Done 三 汗 

















图 16-34 示例 16.32， 填 写 并 处 理 表 自 


后 的 输出 
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不 过 和 这 些 标记 相关 联 的 CGI 参数 则 是 red、green 和 yellow。 例 如 ， 如 果 用 户 单 击 stop 按 


钮 ， 则 传递 给 CGI 脚本 的 键 / 值 对 将 是 color=>red。 
4. 默认 按钮 是 标记 为 go 的 按钮 。 


popup_menu0) 方法 。 弹出 菜单 又 称 作 下 拉 菜 单 (drop-down menu)。 它 是 太 











E 用 户 单 击 文本 碳 





侧 的 滚动 条 图 标 时 显示 出 来 的 选项 列表 。 一 次 只 允许 作 一 项 选择 。 图 16-35 和 图 16-36 分 别 显示 了 











示例 16.33 中 弹出 单 的 输出 内 容 ， 以 及 填 和 人 并 处 理 完 表单 后 的 输出 情况 。 





示例 16.33 


#!Vusr/Vpbin/per1l 

司 E CGI 

S$Sdquery = new CGI:; 

Pint $query->header:， 

antieDeEV SSES 避 EnISEEASEEOSJIESEEORTEEESSEECGTESDO 靖 emesig 下 
Pint "<H2>ExamPple using Eorms with PopP-uP Menus</H2>N\n"; 

Ce ESEY) 

cocortleauery) nsousey= 二 paream) 有 

1 全 肌 必 本 是 :ice Sie 国 ar 了 


Sb 三 EEEmSED 全 全 | 

my(S$dquery) = Q@ : 

疝 玫 放 本 是 攻 和 玫 二 攻 

IO NTST ONSITEER 

PEint S$Squezcy=>textfieldq('name") 二 SimplIe text 态 eJa 

1 

Essence 二 已 R 人 

Pint $dquery->PoPuP_menu(-name=>'color'， 
-Values=>[ 'Ied'， 'green'，'blue'， 

"YelLlLow' ]， 

-defaulLt=>'g9reen ' ， 
-1Labels=>'\%s1Labels' ， 
) 琵 

EECEEOICmOEESSUISITURE 和 于 

Pint S$Saquery->reset ('ClLlear'): 

Pint S$Saquery->enadaform/” 

TY 

} 


Sub dqo_ worki{ 
my(SSusry) 屿 三 (6 呈 7 
my (Gevalues，S$Skey) ; 
IE 
foreach S$SKey (3$query=>pacam) { 
ER 
Qvalues=$dquery->param(Skey) ; 
1 





submitO 和 reset() 方法 。 submit() 方法 能 创建 一 个 按钮 ， 当 按 下 它 时 ， 便 会 将 表单 输入 发 送 
到 CGI 脚本 。 如 果 提 供 了 相应 参数 ， 用 户 还 可 为 该 按钮 提供 标记 《〈label)， 以 便 在 同时 使 用 多 个 提 





交 按 钮 时 进行 区 分 。 
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泊 The 0bliect 0riented CGI and Forms - Netscape | 口 | 广 | 
Fle Ed View Go Communicatof 日 elp 
; 局 允 ”Bookmarks 天 [Location|http: 交 127.001,cgi-binyAcgpm-stuffyform5CGl.cgl 











Example using Forms with Pop-up Menus 


Whatis your name? | 


Select youtr favoritte color? 


[ereen =| submit CE1| 
ed | 




















Example using Forms with Pop-up Menus 


Whatls yout hatmey? Filliie 


Select yout favottte color? 


[bus =| submit | Clear | 












Here are the settings 






hatme: Elte 
colof' blue 
actton: subtntt 


夯 站 oemerbme 让 避 

图 16-36 “示例 16.33， 填 写 并 处 理 表 单 后 ， 弹 出 菜单 表单 的 输出 

reset() 方法 则 用 于 清除 表单 中 的 所 有 项 。 它 会 把 表单 恢复 到 上 一 次 加 载 时 的 状态 ， 而 不 是 默认 
的 状态 〈 详 见 下 面 的 “defaults 方法 ”一 节 )。 

清除 字段 

Override 参数 

请 注意 ， 如 果 按 下 Reset 按钮 或 重新 启动 一 个 表单 ， 则 之 前 填 和 的 信息 还 将 粘 在 里 面 ， 也 就 是 说 ， 
输入 框 并 疫 有 得 以 清空 。 这 时 用 户 可 通过 使 用 非 零 的 -override 或 -force 参数 来 强制 清空 这 些 项 。 例 如 


七 exXtfield (-name=> 'name' ， -overriade=>1) ; 
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defaults 方法 
defaults() 方法 能 将 表单 中 所 有 的 项 目 清空 为 训 览 器 窗口 第 一 次 显示 时 的 状态 ， 即 清空 参数 列 
表 。 如 要 创建 用 户 可 读 的 按钮 ， 也 可 调用 defaults 方法 ， 例 如 ， 


Pint qdqefaults( -name=>'" Clear AL1 Entries'):， 


16.7.9 ”错误 处 理 


当 CGI.pm 脚本 中 出 现 错误 时 ， 服 务 器 一 般 会 把 错误 信息 发 送 到 配置 在 服务 器 根 目 录 下 的 错误 
日 志文 件 中 。 如 果 程 序 退 出 执行 ， 服 务 器 会 显示 “Document contains no data” 或 “Server Error”。 
这 些 信息 都 没有 什么 用 处 。 

carpout 和 fatalsToBrowser 方法 。 CGI.pm 提供 了 一 种 方法 ,不 但 能 将 错误 信息 保存 到 日 志文 
件 中 ， 还 可 以 在 浏览 器 窗口 中 看 到 致命 错误 消息 的 内 容 。carponut 方法 就 是 为 了 这 个 目的 而 提供 的 。 
在 默认 情况 下 ， 程 序 不 会 自动 导入 该 方法 ， 因 此 读者 必须 显 式 地 导入 它 ， 即 输入 : 

Se CGI2CaEE G9W (CaEDPCU 上 7 

carpout 函数 接受 一 个 参数 ， 即 一 个 指向 用 户 自 定义 的 文件 句柄 的 引用 ， 错 误 销 息 都 将 发 送 到 
该 文件 句柄 中 。 读 者 应 当 在 CGI 应 用 程序 顶部 的 BEGIN 代码 块 中 调用 它 ， 以 便 能 够 捕获 编译 器 


错误 。 如 要 让 来 自 die、croak 和 confess 的 致命 错误 信息 也 出 现在 浏览 器 窗口 的 话 ， 还 应 当 导入 
fatalsToBrowser 国 数 。 


示例 16.34 


So 全 工 














孔 Use CGI7 

2 BEGIN{ use CGI: :CarP gw (fatalsToBrowser CarPout) ， 

习 RE OBE 二 ESOCSRESOO RICE EEC IENEE 
4 Eap GE 


} 
S$auery = mew CGI; 
BOgam 古 ComEnESS 本 RS 过 


解释 

1. 加 载 CGI.pm 模块 。 

2. 加 载 CGI::Carp 模块 。 这 个 Carp 模块 接受 两 个 参数 : fatalsToBrowser 和 carpout。 第 一 个 参 
数 fatalsToBrowser 会 将 Perl 错误 消息 发 送 到 浏览 带 而 carpout 则 能 将 标准 错误 信息 从 屏幕 
重 定向 到 浏览 器 和 错误 日 志 中 。 其 效果 如 图 16-37 所 示 。 

3. 打开 文件 errors.log, 以 便 执 行文 件 创建 /追加 操作 。 该 日 志文 件 所 含 错误 信息 也 将 发 送 到 浏 
览 右 中 。 

4. carpout 函数 会 把 错误 消息 发 送 到 error.log 文件 中 。 下 面 是 该 文件 中 的 某 一 行内 容 : 
[IThu Feb 8 18:59:04 2001] C:httpdCGI-BINNcarpout.pl: Testing error messages 位 om CGI script. 





更 改 默 认 消 息 。 在 默认 情况 下 ， 软 件 错误 背 息 后 面 都 会 跟着 一 段 面向 Web 管理 员 的 提示 信息 ， 
该 信息 附 有 发 生 错 误 的 日 期 和 时 间 , 可 通过 电子 邮件 的 方式 通知 管理 员 。 如 要 更 改 默认 消息 的 内 容 ， 
则 可 使 用 set _ message 方法 。 不 过 此 前 必须 将 该 方法 导入 到 程序 的 命名 空间 中 。 








































454 第 16 章 
Fie E 了 YAW G0 CorrmurKMor Hep 
二 
时 Back Seatch Neteocafae Pi Secusy Shop 
"8cckmsks 克 Locsior [ET =] "whasPealed 
交 IratsartMessapge 亲征 贺 caendx 国 hado 国 People 国 YelowPFeoes 国 Dowmkoad 项 Charnss 
Software error: 
Tesring error es3hge3s TXTrom CGI 3cripr， 
For belp, please send mal to this Sie's webrmaster BE ts error Inesiage and 雪 e bme and date of the error 
Fo=| Jecumenc Cone 3 加 到 
图 16-37 ”使 用 carpout 和 fatalsToBrowser 重 定向 错误 
格式 


use CGI: :CarP qw(fatalsToBrowser set_ message) ; 
set message ("EFEOF messagel") 7 
set_message (\reference to_subroutine) ; 


AN 
由 


示例 16.35 


于 


~ 呈 mW 


AD oo 


刷 


PD 一 


#!c:/RActivePer1l/pbin/pPer1l.exe 


BEGIN{ use CGI: :CarP qw (fatalsToBIowser CarPout set message) : 
DenTOE 同 EROTERTOST IOTE ROSEEESTSETEISS 生 人 
CarPout (LOG) ， 

Seoanwsamceie 昌 Secss 和 | 
my S$msg = Shiftt; 
和 
1 站 
TS 
】 


set_message(\shandle_errors) ; 
】} 
Dem(EHA mmYLLer JU 
qiereanee onRNETYNIESNTE SI 


shbang 行 告 诉 服务 右 Perl 解释 器 位 于 哪个 位 置 。 

在 BEGIN 代码 块 中 载 入 CGI.pm 模块 ， 以 便 立 刻 捕 获 任何 的 编译 器 错误 。 参 阅 BEGIN 一 
节 。 此 外 还 载 入 了 CGI:Carp 模块 。Carp.pm 模块 导入 了 三 个 国 数 fatalsToBrowser、carponut 
和 set message。 其 中 第 一 个 国 数 fatalsToBrowser 负责 将 Perl 错误 发 送 到 浏览 器 和 服务 器 的 
错误 目 志 中 。carpout 函数 用 于 把 标准 错误 消息 重 定向 到 用 户 自 定义 的 错误 目 志 中 。 而 set message 
方法 则 用 于 定制 发 送 到 浏览 器 的 默认 错误 销 息 。 该 函数 的 参数 可 以 是 一 个 待 打印 的 字符 串 , 也 
可 以 是 一 个 用 户 自 定义 的 国 数 。 





. 打开 文件 errors.log, 以 便 执 行文 件 创建 /追加 操作 。 该 日 志文 件 所 含 错 误 信 息 也 将 发 送 到 训 


览 器 中 


4. carpout 国 数 会 把 错误 销 息 发 送 到 errorlog 文件 中 。 


定义 一 个 名 叫 handle_errors 的 用 户 自 定义 子 例 程 。 它 将 在 训 览 器 窗口 中 生成 一 条 定制 的 错误 
信息 。handle_errors 函数 的 第 一 个 参数 是 来 自 die 或 croak 的 错误 销 息 。 在 本 示例 中 ， 除 非 
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6. 从 @_ 数 组 中 移出 错误 消息 ， 并 发 送 给 次 


行 的 die 语句 首先 执行 ,否则 第 
人 errors.log 中 。 


9 行 的 die 消息 将 会 赋值 为 Smsg。 该 消息 同样 会 发 送 到 


| 览 口 已 


浏览 器 。 


7. 调用 set _ message 国 数 ， 其 参数 是 一 个 指向 用 户 自 定 义 子 例 程 handle_errors 的 引用 ， 该 子 例 
程 中 含 有 定制 的 错误 消息 。 


8. die 力 


会 让 程序 退出 ， 并 将 其 错误 消息 通 


KMozilla Firefox 


过 set message 发 送 


给 handle_errors 子 例 程 。 








PEile 


Help 





候 : 


Edit Wew History Bookmarks Tools 
村 -全 5 明 眶 
吵 -全 [ 


| 蝇 http:j1127.0.0.1jcgi-binyerrorhanding.pl 








口 Customize Links 给 file:MEJDocuments，， 


巴 Free Hotmail 2 RealPlayer [了 Wind 





Softyvare 上 Pror Alert'1 


Your program sent this error: 
CGOPER “212 NO SEC FE 07 二 rec 妈 再 








图 16-38 示例 16.35 中 显示 的 错 


昔 误 消 息 


示例 16.36 
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SECeEaaimeeEeory 


16.7.10 HTTP 首部 方法 


前 














检索 信息 的 方法 。 





ij 的 示例 将 cookie 赋予 了 一 个 HITP 首部 。 表 16-14 列 出 了 其 他 能 够 


(The ApPpache 1og 了 玫 1le) 

EMas 划 2 OOIITEEEEESTEE TESTIEGRamoy 六 
ae 
PretedQ scripts have " 直 !" zst 工 ine 
[二 
le descriptor: qdqon't know how to spawn child Process: C:/wamp/RA 
pache2/cgi-bin/errorhandling.Pp1l 

加 IE 本 SFesReo he 三 EsEsawE 下 EDonEenasEEoEROVYEDE 本 aosnt 
下 1 林芝 七 贡 @ 责 站 

[MSG 庆生 瑟瑟 玫 册 SG 本 ES ESES 
adgss 本 和 senmCETmS 直 基 开 可 臣 二 
Ms 
NSS sseneY 

[0 性 EeoeRoecanaeioSn 归 NE 
IE Am RNECESWET ETESOT ES 上 TY 

大 下 Ma 证 写作 交 下 到 放下 LU 关 SEEnanmeuanngsoE Cam cemnaomyilie 





在 HITP 首 部 中 创建 和 
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表 16-14 HTTP 首部 方法 




















































































































HTTP 首部 方法 用 途 

acceptl) 列 出 MIME 类 型 或 者 类 型 

aat_DDel) 返回 当前 会 话 的 认证 类 型 

coojiel) 创建 和 检索 cookie 

jeader) 返回 有 效 的 HTTP 首部 和 MIME 类 型 

NttPs(/) 返回 有 关 一 个 会 话 的 SSL 信息 

Patj_injol) 设置 和 检索 附加 路 径 信息 

Patj_1ramslated) 返回 附加 路 径 信息 

guery stringO) 返回 URL 编码 的 查询 字符 串 

FaWw_coofiel) 返回 从 训 览 器 中 发 送 的 未 经 处 理 的 cookie 列表 
Tedirectf) 生成 HITP 首部 ， 含 有 对 浏 览 器 的 重 定向 请 求 ， 以 便 加 载 该 位 置 的 页 面 
7ejerer) 返回 在 脚本 开始 执行 前 浏览 器 所 显示 页 面 的 URL 
Treote_addrf) 返回 远程 主机 的 卫 地址 ， 有 可 能 是 代理 服务 器 地 址 
7emiote_jost() 返回 远程 主机 的 DNS 名 称 

remiote_identl) 如 果 激 活 了 身份 验证 Daemon， 则 返回 远程 用 户 的 登录 名 
Fe1aote_Mser 人 ) 返回 用 于 验证 口令 的 账号 名 








HTTP 方法 ，GET、POST 或 HEAD 


讽 


7Fe9gUest_11etjpodl/) 























SCFiDt_1a1ze 人 ) 返回 本 脚本 相对 于 服务 器 根 目 录 的 URL 

JU 返回 CGI 脚本 的 URL: 包括 协议 、 主 机 、 端 口 、 路 径 、 附 加 路 径 信息 和 参数 列表 ， 可 
5 用 于 再 次 调用 当前 的 脚本 
Se1Ver_110111el) 返回 Web 服务 器 的 名 称 






































serVer_Dort() 返回 当前 会 话 的 端口 号 〈 一 般 是 80) 

Se1Vver_Sojipare() 返回 Web 服务 器 的 名 称 和 版 本 

2ar1O 返回 当前 脚本 的 URL， 不 含 附 加 路 径 信息 和 查询 字符 串 
USer_adge1at) 返回 浏览 器 信息 

User_7a1nef) 如 果 可 以 的 话 ， 返 回 远程 用 户 的 名 称 

VirtaualL_jpostO) 返回 六 览 器 正在 访问 的 虚拟 主机 名 














示例 16.37 
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P， 

4 US oemnoers seerzgpoz 己 ( 八 下 
P， 

5 IE 本 SceneamesscrpEcEnamer 人 瑟 
P， 

6 EUFewscerEE USerEagenENFaOES 汪 CUEEESEEEcaeE 
P， 

电 EUETEESLEOEECSiss SEOEE DuezyEstzangi 才 克 
P， 

8 由 ) 
P， 

9 Cooknes 三 SEE REEawECooke) 


JOSE Sn 


名 Using header Methods - Mozila Firefox 














口 Customize Links 图 用 CE:JDocuments，， 思 Free Hotmail 加 RealPlayer [windows Marketplacq 


Let's find out about this session 


Your serveris called 127.0.0.1 
Your server port nuber is 80 
This script namme is: fcgi-binhttpheaders.pl 


Your browser is KMIozilla/S.0 (Windows; U; Windows NT S$.1; errUSi rv:1.8.1.3) 
Gecko7j20070309 Firefoxj2.0.0.3 and it's out of datel! 


The query sbing looks hke this: name=Joe9%o20Shome 
Where amI? Your URL is: http: 门 27.0.0.l/cgi-bimhttpheaders.pl 


Cookies set: 








图 16-39 ”示例 16.37 的 输出 
练习 16 ”为 Perls 冲浪 


第 一 部 分 
1. 环境 变量 和 CGI 
创建 一 个 CGI 脚本 ， 向 浏览 器 打印 如 下 内 容 : 
THpe 711ze oj1pe server 1 <PHt 11e yQUUes Here.> 
THpe gateWay Protocol 13- 
7He client acji1eS 7P aadaresyy: 
7He cliemt 110cH1i11e' 110111e: 
THpe docu1ae11t 1001 13: 
7H1e CGO sc1riPL HG1Ie 13: 
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(提示 : 不 妨 使 用 %ENYVY 散 列 ) 

2. 生成 CGI 程序 
a. 编写 一 个 名 叫 towan_crier 的 CGI 脚本 ， 其 中 含有 HTML 文本 和 Perl 语句 。 
b. 该 脚本 含有 两 个 子 例 程 : 儿 welcome 和 廊 countem 。 


c. welcome 子 例 程 将 打印 Welcome Sir Richard ! ! ,并 以 监 色 字 体 链接 welcome (注意 ， 


Explorer 会 忽略 blink )。 该 子 程序 还 将 打印 当天 日 期 〈 使 用 ctime 库 国 数 )。 


d. 子 例 程 countem 位 于 一 个 名 叫 countem.pl 的 文件 中 。town_crier 脚本 将 调用 countem,， 并 将 自 
己 的 名 字 (town_crier) 作为 参数 传递 给 该 子 例 程 。 请 记 住 ,脚本 的 名 称 保存 在 变量 $0 中 , 例 





如 人 廊 countem($0); 。 该 子 例 程 将 返回 页 面 访问 次 数 。 


中 























. 参考 图 16-40， 考 虑 如 何 让 脚本 在 训 览 器 窗口 中 显示 这 些 输出 。 
. countem 国 数 应 当 设 计 为 : 
即 调用 它 的 文件 名 。 除 非 目 录 中 已 经 有 了 文件 town_citier.log， 创 建 该 文件 。 
后 以 读 写 模式 打开 该 文件 。( 如 果 从 其 他 脚本 调用 countem 国 数 ， 则 创建 的 日 志文 件 名 将 
， .log 扩展 名 )。 
。 如 果 新 的 日 志文 件 内 容 为 空 
行 应 当 含 有 一 个 数字 。 
town_citier 时 都 要 调用 该 函数 。 











”将 新 的 数字 发 送 回 文件 ， 并 覆盖 原 有 的 数字 。 
”关闭 日 志文 件 。 


。 countem 子 例 程 将 数字 值 返 回 给 调用 程序 〈 在 本 例 中 , 笔者 会 把 该 数字 放 入 HIML 表 的 单元 格 中 , 并 
回 到 town_citer。 如 果 读 者 没有 时 间 ， 也 可 不 创建 这 个 表 ， 而 是 直接 返回 该 数字 )。 
。 如 果 是 在 UNIX 系统 上 运行 的 话 ， 则 可 以 在 使 用 文件 之 前 通过 flock 国 数 加 上 一 个 排他 锁 ， 

并 在 处 理 完 毕 后 移 除 此 锁 。 


将 整个 字符 串 发 送 匠 














泣 Town Erier - Netscape | 口 | x| 
Eu Edit View Go Communicalor Help 到 
过 六 3 世人 世 三 玫 
习 F57V5d Reload Home Search Gude Phnt Secuny 555 

蛋 二 Bookmarks 总 [IE [7 /127.0.017cgibinAvisS_counLpl _ 了 ] 





国有 国 玉 | 国 贡 回国 5 加 WiR 





Todauy mwe celeprate Fiz4rg 23 23:06:03 PS 了 2007. 
Hear ye, Hear ye, Sir Richard Comethl!! 


We Welcome thee, Sir Richard. You are Visitor 
number: 


5 





辱 | [DC De 悦 3 洛 ia 已 P | 





图 16-40 ”练习 16 中 CGI 程序 的 输出 





，countem 将 把 值 1 写 入 该 文件 ， 否 则 就 从 文件 中 读 取 一 行 。 该 


读 取 该 数字 并 将 其 保存 到 变量 中 。 然 后 将 这 个 数字 递增 1。 每 次 执行 


JInternet 
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第 二 部 分 
1. 创建 表单 ， HTML 








a, 创建 一 个 名 叫 Stirbucks 的 Web 页 面 ， 其 中 含有 一 个 订购 咖啡 的 表单 ， 类 似 于 图 











订购 表单 。 


16-41 所 示 的 


b. 在 开始 的 <FORM> 标签 的 action 属性 中 , 指定 一 个 URL,， 以 便 将 服务 器 指向 使 用 默认 的 GET 


方法 的 CGI 脚本 。 
c. 在 浏览 器 中 检查 文件 。 
d. 这 段 CGI 脚本 将 打印 环境 变量 QUERY_STRING 的 值 。 
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STIRBUCKS COFFEE 
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Selecta coffec to 9o 
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厂 Cappuccino 
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Submit my ordernowl Reset 
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图 16-41 Stirbucks Web 页 面 上 的 订购 表单 





2. 处 理 表 单 : CGI 


a. 编写 一 段 CGI 脚本 ， 向 用 户 发 送 HTML 页 面 ， 感 谢 他 的 订购 ， 并 告诉 他 马上 会 把 他 所 选择 的 
咖啡 递送 到 他 提供 的 地 址 。 使 用 GET 方法 。 在 从 表单 中 得 到 信息 后 ， 请 读者 编写 自己 的 函数 





去 解析 输入 内 容 。 


b. 重新 设计 表单 ， 使 用 POST 方法 。 程 序 将 判断 该 使 用 什么 方法 ， 并 调用 合适 的 解析 函数 。 

c. 创建 DBM 文件 ， 其 中 含有 提交 的 电子 邮件 地 址 的 列表 。 当 用 户 提交 表单 时 ， 将 其 电子 邮件 信 
息 列 出 到 DBM 文件 中 。 请 确保 其 中 没有 重复 现象 。 请 设计 一 个 能 完成 这 项 任务 的 函数 。 

d. CGI 脚本 将 能 处 理 电子 邮件 。 给 自己 发 送 电子 邮件 , 确认 信息 提交 成 功 。 请 设计 另 一 个 负责 处 





理 电子 邮件 的 函数 。 





3. 重 写 Stirbucks 程序 ， 将 HIML 表单 和 CGI 脚本 放 入 同一 个 由 CGIpm 模块 创建 的 CGI 程序 中 。 





请 使 用 面向 国 数 的 样式 。 
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17.1 简介 


假设 用 户 已 经 在 表单 中 填 好 了 想 要 购买 的 东西 ， 然 后 提交 了 该 表单 。 此 时 ， 该 用 户 的 相关 信息 
就 会 保存 到 数据 库 里 一 个 名 叫 “customers” 的 表 上 。 读 者 可 能 需要 在 Perl 程序 中 打开 这 个 数据 库 
并 直接 添加 新 的 订单 。 此 外 ,还 可 能 需要 在 一 个 Perl 程序 中 检索 该 用 户 以 前 的 订单 和 产品 信息 ， 并 
对 数据 进行 格式 化 ,以 便 生 成 Web 页 面 、 电 子 邮件 销 息 、 或 者 发 送 到 电子 制 表 软件 〈spreadsheet ) 。 
有 了 Perl 和 Perl DBI 模块 , 这 些 都 是 可 以 实现 的 。Perl DBI 模块 是 一 种 面向 对 象 的 数据 库 接口 , 允 
许 用 户 连 接 到 任意 的 关系 型 数据 库 上 ,并 使 用 Perl 方法 执行 所 有 必需 的 操作 ， 璧 如 打开 和 关闭 数据 
库 , 发 送 用 于 创建 、 刷 新 和 删除 数据 表 的 SQL 查询 语句 , 检索 和 修改 记录 , 管理 事务 (transaction )， 
以 及 显示 结果 。 

本 章 将 专门 介绍 如 何在 Perl 中 访问 MYSQL 数据 库 ， 后 者 是 一 种 非常 流行 的 开源 、 全 功能 的 关 
系 型 数据 库 。 读 者 将 首先 学 习 如 何在 MySQL 客户 端 中 发 布 命令 , 然后 使 用 DBI 模块 在 一 段 Perl 脚 
本 中 发 布 相同 的 命令 。 最 后 ,本 书 将 把 这 些 内 容 结 合 到 一 起 ， 同 时 使 用 DBI 模块 和 CGI.pm 来 创建 
一 个 动态 Web 页 面 。 

与 数据 库 相 关 的 主题 非常 繁杂 。 本 章 的 目标 并 不 是 试图 教会 读者 如 何 正 确 地 设计 一 个 数据 库 
的 结构 ， 或 者 如 何 更 好 地 组 织 数据 。 这 些 内 容 又 可 以 占据 一 本 书 的 篇 幅 。 如 果 读 者 完全 是 一 个 新 
手 ， 从 来 没有 和 数据 库 打 过 交道 ， 也 不 了 解 它们 的 工作 原理 ， 那 么 可 以 阅读 一 下 Andy Oppel 撰写 
的 Databases Demystified， 这 是 一 本 非常 出 色 的 数据 库 入 门 书籍 8。 本 章 将 简要 介绍 一 下 使 用 Perl 
DBI 和 MySQL 时 必须 了 解 的 一 些 基 本 概念 和 专业 术语 。 




































































17.2 ”什么 是 关系 型 数据 库 


迄今 为 止 我 们 在 Perl 中 都 是 把 数据 保存 到 普通 文本 文件 中 的 , 并 为 此 创建 了 用 户 自 定 义 的 文件 
句柄 。 此 外 ， 我 们 还 了 解 了 Perl 的 DBM 机 制 ， 它 能 将 数据 以 简单 散 列 的 形式 保存 到 二 进 制 文件 
去 。 不 过 ， 当 用 户 需 要 高 效 地 存储 和 管理 大 量 数据 时 ， 上 述 文本 文件 和 DBM 文件 就 显得 力不从心 








忽 “Oppel, Andrew J. Databases Demystified. McGraw-Hil/Osbourne, Emeryville, CA, 2004. 
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了 : 例如 ， 维 护 一 个 商业 应 用 ， 如 医院 、 研 究 实验 室 、 银 行 、 学 校 或 Web 站 点 。 关 系 型 数据 库 系 统 
遵循 某 些 特定 的 标准 ， 并 提供 了 多 种 特性 ， 以 便 存 储 大 批量 的 数据 。 这 些 数 据 都 受到 很 好 的 管理 ， 
从 而 让 检索 、 更 新 、 插 入 和 删除 数据 操作 变 得 更 为 容易 ， 并 能 令 所 耗 时 间 达 到 最 得。 数据 库 管理 系 
统 必 须 在 存储 数据 时 保障 其 数据 完整 性 ， 即 保证 数据 是 正确 的 ， 并 且 避 免 未 经 授权 的 用 户 访 问 它 ， 
也 就 是 说 数据 是 安全 的 。 

关系 型 模型 出 现在 20 世纪 70 年 代 , 对 于 终端 用 户 而 言 , 它 能 让 数据 操作 变 得 更 容易 也 更 快速 
而 对 于 管理 员 来 说 , 它 能 让 数据 的 维护 工作 变 得 更 加 容易 。 该 模型 的 核心 概念 是 关系 (relation ), 它 
可 以 表现 为 一 个 数据 表 , 表 中 保存 了 所 有 的 数据 。 数 据 可 以 表达 为 不 同 的 类 型 ， 璧 如 字符 串 、 数 字 、 
日 期 等 等 。 每 一 个 数据 库 表 都 由 记录 (record) 或 域 (field) 组 成 ， 甚 横向 结构 称 之 为 行 (row )， 
纵向 则 称 为 列 〈column )， 类 似 于 一 个 二 维 数 组 。 数 据 库 内 的 数据 表 是 相互 关联 的 ; 譬如， 假定 有 
一 个 名 叫 “school” 的 数据 库 ， 它 可 能 由 数据 表 “student”“teacher”“course” 等 构成 。 一 个 学 
生 能 选择 一 个 老师 开设 的 课程 , 而 一 个 老师 则 可 以 开设 一 门 或 多 门 课程 。 用 户 可 对 student、teacher 
或 course 数据 表单 独 地 检索 和 操纵 数据 ,也 可 基于 某 些 公共 关键 域 (common key field) 把 它们 join 
起 来 。 结 构 化 查询 语言 〈Structured Query Language, 即 SQL) 用 于 和 关系 型 数据 库 “通话 ”, 从 而 
方便 对 数据 库 中 各 个 表 的 数据 进行 检索 、 插 入 、 更 新 和 删除 操作 。 

关系 型 数据 库 又 可 称 为 关系 型 数据 库 管 理 系统 (DBMS )， 是 当前 最 流行 的 数据 库 系统 。 目 前 
已 经 出 现 了 多 种 关系 型 数据 库 ， 其 中 包括 Oracle、Sybase、PostgreSQL Informix、SQL Server 以 及 
MyYSQL 。 























17.2.1 客户 端 /服务 器 型 数据 库 


关系 型 数据 库 用 到 了 所 谓 客户 端 /服务 器 〈Client/Server) 模型 。 目 前 ，MySQL 是 开源 社区 中 
最 为 流行 的 客户 端 / 服务 器 型 数据 系统 之 一 。 
图 17-1 展示 了 一 种 客户 端 /服务 器 架构 模型 。 用 户 可 以 进入 命令 行 界面 ,然后 启动 一 个 MySQL 
客户 端 ， 并 发 布 MYSQL 命令 。 客 户 端 会 生成 一 个 请 求 给 服务 器 ， 并 由 后 者 向 数据 库 发 送 查询 请 
求 。 数 据 库 会 把 查询 结果 发 回 给 服务 器 ， 这 些 结果 最 终 将 显示 在 客户 端 窗口 中 。 在 图 中 第 二 个 场景 
中 ， 向 数据 库 发 起 连接 的 并 不 是 命令 行 客户 端 ， 而 是 一 段 Perl 脚本 。 它 通过 一 种 数据 库 接口 发 起 连 
接 ， 其 效果 类 似 于 一 种 解释 器 。 如 果 Perl 脚本 中 含有 能 够 连接 某 种 数据 库 〈 这 里 就 是 MySQL ) 的 
指令 , 那么 在 发 起 连接 并 选 好 某 个 数据 库 之 后 ,Perl 程序 便 能 通过 MySQL 服务 器 访问 该 数据 库 了 。 
MySQL 服务 器 会 从 Perl 程序 接受 请 求 〈 又 称 查 询 ), 并 返回 从 数据 库 中 收集 到 的 信息 。 在 图 中 第 三 
个 示例 中 ， 用 户 从 浏览 器 《〈 客 户 端 ) 发 起 一 个 页 面 请 求 ， 浏览 器 向 Web 服务 器 〈Apache、ISS) 发 
起 一 个 HITP 连接 ， 并 由 后 者 负责 接受 和 处 理 这 些 请 求 。 如 果 需 要 启动 一 个 Perl 程序 ，Web 服务 
器 便 会 使 用 公共 网 关 接 口 〈《CGI) 去 启动 Perl 解释 器 , 然后 由 Perl 负责 处 理 来 自 HITP 服务 器 的 信 
息 。Perl 可 以 将 它们 格式 化 后 直接 发 送 回 Web 服务 器 , 或 者 也 可 在 对 数据 库 服务 器 发 起 请 求 时 实现 
各 项 功能 步骤 ,包括 连接 数据 库 、 查 询 数 据 库 、 从 数据 库 中 获取 结果 。 图 17-1 显示 了 MySQL 客户 
端 和 MySQL 服务 器 之 间 的 客户 端 / 服 务 器 型 关系 , 还 有 Web 浏览 器 、Web 服务 器 上 的 Perl 程序 和 
MySQL 数据 库 服务 器 之 间 的 客户 端 / 服 务 器 型 关系 。 学 完 本 章 内 容 后， 读者 将 能 够 把 信息 从 Web 
浏览 器 〈 客 户 端 ) 发 送 到 Web 服务 器 ， 再 从 Web 服务 器 转发 给 一 段 Perl CGI 程序 ， 并 由 后 者 连接 
到 一 个 数据 库 服务 器 上 ， 从 而 实现 在 MySQL 数据 库 中 检索 和 存储 信息 。 
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图 17-1 客户 端 /服务 器 模型 
17.2.2 ”关系 型 数据 库 的 组 成 部 分 


数据 库 是 由 什么 组 成 的 ? 组 成 一 个 关系 型 数据 库 管 理 系统 的 主要 部 分 包括 : 
。 数 据 库 服务 器 (Database Server) 

。 数 据 库 (Database) 

。 表 (Table) 

。 域 (Field) 

。 记 录 (Records ) 

。 主键 (Primary Key ) 

”样式 表 (Schema ) 

本 章 后 面部 分 将 详细 讨论 这 些 概念 。 图 17-2 说 明了 这 些 概念 的 相互 关系 。 


























图 17-2 数据库 服 务 器 、 数 据 库 和 表 


数据 库 服务 器 。 es 运行 数据 库 的 服务 器 进程 。 它 负责 管理 数据 的 存储 、 
为 用 户 提 供 访问 途径 、 更 新 和 删除 记录 ， 还 能 与 其 他 服务 器 进行 通信 。 数 据 库 服务 器 一 般 都 位 于 一 
人 台 专 用 主机 上 ， 人 负责 ; 不 过 它 也 可 部 署 为 本 地 主机 上 只 带 有 一 个 客户 端的 
独立 服务 器 ; 即 ， 该 客户 端 尖 直 接 使 用 位 于 本 地 计算 机 (往往 又 称 作 “localhost”) 上 的 MySQL 服务 
器 ， 而 不 必 经 过 任何 网 络 连接 ， 这 或 许 是 学 习 如 何 使 用 MySQL 的 最 佳 方式 。 
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如 果 读 者 正在 使 用 的 是 MySQL， 其 在 Windows 上 的 服务 器 进程 是 一 个 mysql 服务 ， 而 在 
Linux/UNIX 操作 系统 上 则 是 mysqld 进程 。 数 据 库 服务 器 一 般 都 遵循 客户 端 /服务 器 模型 。 其 前 端 
就 是 客户 端 ， 用 户 可 以 坐 在 工作 站 前 ， 发 起 数据 库 请 求 ， 并 等 待 返回 结果 ; 其 后 端 则 是 数据 库 服务 
器 ， 它 负责 为 用 户 提供 访问 权限 、 存 储 和 处 理 数据 、 执 行 数据 备份 、 乃 至 与 其 他 服务 器 进行 通信 。 
发 送 到 数据 库 服务 器 的 请 求 还 可 以 来 自 于 一 段 程序 , 该 程序 将 代表 用 户 从 Web 页 面 或 程序 中 发 起 请 
求 。 在 后 面 的 章节 里 ， 读 者 将 首先 学 习 如 何 从 MySQL 命令 行 客户 端 中 产生 请 求 ， 然 后 学 习 如 何 从 
一 段 Perl 程序 中 使 用 Perl 内 建 的 国 数 连接 数据 库 服务 器 , 这 些 内 建国 数 能 向 MySQL 数据 库 服 务 器 
生成 请 求 ， 最 后 还 将 学 习 如 何 从 一 个 Web 表单 中 生成 请 求 ， 并 将 该 请 求 发 送 到 Perl 程序 内 ， 进 而 
转发 给 MySQL 。 

数据 库 。 数据 库 是 一 组 相关 数据 元 素 的 集合 ， 一 般 会 与 某 种 特定 的 应 用 相关 联 。 一 个 公司 可 
以 为 它 的 HR 部 门 建立 一 个 数据 库 ， 也 可 为 销售 部 门 建立 另 一 个 数据 库 ， 并 为 其 电子 商务 应 用 程序 
建立 第 三 个 数据 库 , 等 等 。 图 17-3 列 出 了 某 一 版 MySQL 中 已 安装 的 数据 库 。 其 中 列 出 的 数据 库 包 
括 :“mysql”“northwind”“phpmyadmin” 和 “test”。 

表 。 每 个 数据 库 都 是 由 多 个 二 维 表 组 成 的 ， 这 些 表 各 自 拥 有 惟一 标识 它 的 名 字 。 事 实 上 ， 关 

系 型 数据 库 会 将 它 所 有 的 数据 存储 到 表 中 ， 一 点 也 不 能 少 。 所 有 操作 都 是 在 表 上 执行 的 ， 这 些 操作 
也 可 用 于 生成 其 他 的 表 ， 等 等 。 
在 设计 一 个 数据 库 时 ， 读 者 首先 要 做 的 决定 之 一 就 是 它 应 当 含 有 哪些 表 。 和 常见 的 为 某 个 组 织 提 
供 的 数据 库 可 能 会 由 顾客 表 、 订 单 表 和 产品 表 构 成 。 所 有 这 些 表 格 之 间 都 通过 某 种 方式 相互 关联 。 
例如 ， 顾 客 下 了 订单 ， 而 订单 又 分 很 多 项 目 。 尽 管 每 个 数据 库 都 是 独立 存在 的 ， 但 总 体 而 言 ， 这 些 
表 一 起 构成 了 一 个 数据 库 。 图 17-4 列 出 了 数据 库 “northwind”S 中 所 有 的 表 , 该 数据 库 是 Microsoft 
公司 提供 的 一 个 虚构 的 数据 库 ， 它 作为 一 个 模型 帮助 用 户 学 习 如 何 操纵 数据 库 。( 读 者 可 以 在 华章 
网 站 (www.hzbook.com) 中 找到 该 数据 库 。) 



























































十 
| Tables_in_northwind 1 


| categories 

| customercustomerdemo 

| customerdemographics 

| customers 

| emPloyees 

| emPloyeeterritories 
各 本 本 过 本 本 本 皖 二 本 本 到 本 中 | order_details 

| orders 

| Products 

| region 

| shipPPers 

| suPPLiers 

| territories 

| usstates 


| mysqgql | 
| northwind 1 
| Phpmyadmin 1 
| tes | 


图 17-3 MySQL 数据 库 图 17-4 northwind 数据 库 中 的 表 
记录 和 字段 。 表 拥 有 自己 的 名 字 ， 它 由 一 组 行 和 列 构 成 。 它 类 似 于 一 张 电子 表格 ， 其 每 一 行 
































全 ”Northwind Trader 这 个 示例 数据 库 本 来 是 随 Microsoft Access 提供 的 一 个 免费 示例 ， 不 过 它 一 样 适用 于 
MySQL， 可 参考 http:/www.flash-remoting.com/examples/。 
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又 称 作 一 个 记录 (record)， 由 多 个 垂直 的 列 组 成 ， 这 些 列 亦 可 称 为 字段 (field)。 来 自 同 一 个 表 的 所 有 
行 都 拥有 同样 的 一 组 列 。“northwind” 数 据 库 的 “shippers” 表 含有 三 个 列 与 三 个 行 ， 如 图 17-5 所 示 。 


一 一 一 一 一 一 一 一 一 一 二 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 二 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 十 
| ShipPPerID | CompanyName | Phone | 
一 一 一 ~ 一 -一 一 一 一 一 二 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 - 一 一 一 -- 一 -一 - 一 一 -一 一 一 + 
1 1 | Speedy Express | (So3) SSS-9831 1 
| 2 | United Package | ( ) So5=-3199 | 
| 马 1 Federal ShipPpinge | (503) SS55-9931 1 
二 一 一 一 一 一 一 一 一 一 一 一 二 一 一 一 一 一 一 一 ~~ 一 ~ 一 ~ 一 一 一 ~ 二 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 二 











村 


读者 可 以 对 关系 型 数据 库 执 行 两 种 基本 操作 。 一 种 是 检索 其 所 有 列 的 子 集 ， 另 一 种 则 是 检索 其 
所 有 行 的 子 集 。 图 17-6 和 17-7 展示 了 这 两 种 操作 的 示例 。 








myYsG1> select comPanyname from shiPPersi 


中 
| Speedy ExpPress | 
| DRitead Feckage | 
| Federal ShipPPing | 

二 


图 17-6 “检索 列 的 子 集 


mys9l> select xx from shiPPers where compPanyname='"Federal ShiPpPing'"; 


图 17-7 “检索 行 的 子 集 


记 住 : 关系 型 数据 库 只 能 操纵 表 ， 甚 任何 操作 的 执行 结果 也 都 是 表 ， 这 些 表 又 称 作 结果 集合 
Cresult set)。 表 也 是 一 种 集合 ， 它 们 自己 就 是 行 和 列 的 集合 。 而 数据 库 本 身 就 是 一 组 表 的 集合 。 

用 户 还 可 在 两 个 表 之 间 执 行 其 他 多 种 操作 , 并 将 它们 当成 集合 来 处 理 : 譬如 从 两 个 表 连 接 (join ) 
信息 ， 求 多 个 表 的 卡 笛 尔 乘积 ， 求 两 个 表 的 交集 ， 将 一 个 表 加 到 另 一 个 表 上 ， 等 等 。 本 章 后 面 将 介 
绍 如 何 使 用 SQL 语言 在 表 上 执行 操作 。 

列 / 字段 

列 是 任何 一 个 数据 库 表 都 会 提供 的 部 分 。 列 又 称 作 字段 ,或 者 属性 (attribute )。 字 段 负责 描述 数 
据 。 每 一 个 字段 都 拥有 自己 的 名 字 。 例 如 ,shippers ” 表 拥 有 几 个 名 叫 "ShipperID >”“CompanyName” 
和 “Phone” 的 字段 。 字 段 还 可 以 描述 其 所 含 数据 的 类 型 。 一 个 数据 的 类 型 可 以 是 数字 、 字 符 、 日 
期 、 时 间 惟 (time stamp) 等 等 。 在 图 17-8 中 ，ShipperID 是 字段 的 名 字 ， 其 数据 类 型 是 一 个 整数 ， 
并 且 该 托运 人 ID 的 长 度 不 全 超过 11 个 数字 。 数 据 类 型 有 很 多 种 , 但 有 的 时 候 某 些 数 据 类 型 是 指定 
数据 库 系 统 专 用 的 ; 警 如 ，MySQL 支持 的 数据 类 型 就 有 可 能 与 Oracle 不 同 。 读 者 将 在 后 面 学 到 更 
多 有 关 MySQL 数据 类 型 的 知识 。 























一 一 -~ 一 -一 ~ 一 一 所 一 一 一 一 一 一 一 一 一 一 一 一 一 + 一 一 一 一 一 一 二 一 一 一 一 一 坟 一 一 一 一 一 一 一 一 一 一 一 一 一 一 ~ 一 一 一 一 一 一 一 -一 一 一 
1 Field 1 TyPe | Null 1 Key 1 Default | Extra | 
中 一 m 一 人 机 一 一 一 一 一 一 一 一 一 一 一 一 一 中 一 一 一 一 一 一 中 一 一 一 一 一 才 一 一 一 一 一 一 一 一 一 相 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 中 
| ShippPerID | int(11) | | PRI 1 NULL | auto_increment | 
| CompanyName | varchar(40) | | | | | 

hone 1 varchar(24) | YES 1 1 NULL | | 


图 17-8 每 个 字段 都 拥有 一 个 名 字 及 其 所 保存 数据 的 描述 信息 
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行 /记录 
记录 是 表 中 的 一 个 行 。 它 在 产品 表 中 代表 一 个 产品 , 在 雇员 表 中 代表 一 个 雇员 记录 , 依 此 类 推 。 
每 个 表 都 含有 零 或 多 个 记录 。 图 17-9 表明 在 “shippers” 表 中 有 三 个 记录 。 


























和 一 一 一 一 一 一 一 一 一 一 一 直 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 中 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 十 
| ShiPPerID 1 ComPanyName | Phoene | 

一 一 一 一 - 一 = 一 一 十 一 一 一 一 一 一 - 一 一 一 - 一 一 一 -一 -一 ++- 一 -一 一 -一 一 -一 -一 一 一 一 一 + 
| 1 | Speedy ExPress | (S03) -9831 | 
| 2 | United Package | (S03) S955-3199 1 
| 3 1 Federal ShipPping | (5S03) S55S5-9931 1 
上 一 一 一 一 一 一 一 一 一 一 一 十 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 十 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 十 


3 rows in set (9.00 sec) 
图 17-9 在 “shippers” 表 中 有 三 个 记录 


主键 和 索引 

主键 (primary key) 是 每 个 记录 的 一 个 惟一 标识 。 例 如 , 美国 境内 的 每 一 位 雇员 都 拥有 一 个 社 
会 安全 号 〈S$ocial Security Number)， 每 个 驾驶 员 都 有 自己 的 构 驶 执照 ， 而 每 辆 汽车 都 有 一 个 车 牌 
号 。 这 些 标识 符 都 是 惟一 的 。 在 数据 库 的 世界 中 , 这 些 标识 符 又 称 作 主 键 。 虽 然 最 好 应 该 为 每 个 表 都 
提供 主键 ， 但 并 非 所 有 的 表 都 舍 有 主键 。 在 创建 一 张 表 时 ， 同 时 也 就 确定 了 其 主键 。 本 章 将 在 后 邓 
讨论 数据 库 设计 时 详细 介绍 它 。 在 图 17-10 中 ,“ShipperID ”是 “northwind” 数 据 库 中 “shippers” 
表 的 主键 。 它 是 由 一 个 数字 组 成 的 惟一 ID, 每 当 向 托运 人 列表 中 添加 一 个 新 的 公司 〈 记 录 ) 时 , 便 





























一 一 -一 一 -一 一 -一 一 -一 二 一 一 一 一 一 一 一 一 一 一 一 一 一 到 一 一 一 一 一 一 坟 一 一 一 一 一 到 一 一 一 一 一 一 一 一 一 上 一 一 一 一 一 一 一 一 一 一 一 一 一 一 -一 1 
| Field | TyPe 1 Null 1 Key | Default | Extra 1 
一 一 一 一 一 一 一 一 一 一 一 一 一 二 一 一 一 一 一 一 一 一 一 一 一 一 一 个 一 一 一 一 一 一 个 一 一 一 一 一 个 一 一 一 一 一 一 一 一 一 全 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 1 
| ShipPerID 莉 1 本 四 中 | | PRI 1 NULL | auto_increment | 
| CompanyName | varchar(40) | | | | | 
| Phone 1 varchar(24) 1 YES 1 | NULL | | 
硬 本 天 本 mm 大 本 大 本 参 
图 17-10 “ShipperID ”是 “shippers” 表 的 主键 
会 自动 递增 这 个 数字 。 jSchemata | Dokr 


当 在 某 张 表 中 搜索 某 个 指定 记录 时 ，MySQL 必须 在 执行 查询 语 | 局 

名 前 裁 入 所 有 的 记录 。 除 了 主键 之 外 ， 常 常 还 会 用 到 一 个 或 多 个 索 | 果 eaee 

引 ， 以 便 在 表 中 搜索 需 频繁 访问 的 行 时 提升 其 性 能 。 索 引 (index) | .下 wetwna 

类 似 于 书籍 后 面 提供 的 目录 ， 后 者 能 帮助 读者 更 快 地 找到 所 需 主题 ， | ,四 Se waneaann 

而 不 必 搜索 整 本 书 。 与 书籍 的 目录 类 似 ， 索 引 是 一 种 指向 表 中 特定 |‖ "本 waonedemooaphics 

记录 的 引用 o “图 芝 
数据 库 样 式 表 (Schema)。 设 计 一 个 非常 小 的 数据 库 并 非 难事 ， 

但 是 为 某 个 基于 Web 的 大 型 应 用 程序 设计 数据 库 则 令 人 望 而 生 县 。 数 |‖ "也 oaer 

据 库 的 设计 既是 一 门 艺 术 ， 也 是 一 门 科学 ， 它 要 求 用 户 理解 关系 型 模 | 站 Ra 

型 是 如 何 实现 的 ， 而 这 个 主题 则 超出 了 本 书 介绍 的 范围 。 当 讨论 某 个 | ， 汪 >es 

数据 库 的 设计 时 , 读者 将 会 碰 到 “数据 库 schama ”一 词 , 它 指 的 是 数 | ,本 enoie 

据 库 的 结构 。 它 负责 描述 一 个 数据 库 的 设计 , 类 似 于 模板 〈template) | ， 宇 sa 

或 者 蓝图 (blueprint); 它 能 描述 所 有 的 表 ， 以 及 如 何 组 织 其 中 的 数 | 日 既 

据 , 但 不 含 实 际 数据 。 图 17-11 描述 了 “northwind ”数据 库 中 各 个 表 “| 一 一 一 一 过 


的 样式 表 。 图 17-11 数据 库 样 式 表 
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17.2.3 通过 SQL“〔〈 结 构 化 查询 语言 ) 访问 数据 库 


当 把 Perl 的 输出 传送 到 训 览 器 时 ， 浏 览 右 只 能 理解 像 HIML 和 XHTML 之 类 的 标记 语言 
Cmarkup language)， 而 这 些 语言 标签 会 哄 入 到 Perl 的 print 语句 中 ， 因 此 其 输出 内 容 才 能 显示 为 
表单 、 图 像 、 带 格式 的 文本 、 颜 色 、 表 格 等 形式 。 同 样 ， 为 了 能 与 MySQL 服务 器 进行 通讯 ， 读 
者 的 Perl 脚本 必须 能 说 一 种 数据 库 可 以 理解 的 语言 。 该 语言 叫 作 SQL。SQL 全 称 结构 化 查询 语言 
CStructured Query Language)， 目 前 大 多 数 支持 多 用 户 的 关系 型 数据 库 都 选用 了 该 语言 。 它 提供 了 
一 套 语 法 和 语言 结构 ， 能 以 标准 化 、 跨 平台 / 结构 化 的 方式 访问 关系 型 数据 库 。 正 如 英语 拥有 不 同 
的 方言 《伦敦 腔 、 美 国 英语 、 澳 训 英 语 等 等 ) 一 样 ，SQL 语言 也 有 许多 不 同 的 版 本 。MySQL 使 用 
的 SQL 版 本 遵循 ANSI (美国 国家 标准 署 ) 标准 ,也 就 是 说 它 必 须 能 支持 该 标准 中 定义 的 主要 关键 
字 (譬如 SELECT、UPDATE、DELETE、INSERT、WHERE 等 等 )。 正 如 这 些 关键 字 的 名 称 所 示 ， 
SQL 是 一 种 能 够 操纵 数据 库 中 的 数据 的 语言 。 

如 果 读 者 尚 不 熟悉 SQL， 请 阅读 附录 B， 该 附录 提供 了 有 关 如 何 使 用 SQL 语言 的 完整 向 导 。 
此 外 在 Web 上 也 有 许多 写 得 很 不 错 的 入 门 指南 ， 璧 如 http://www.w3schools.com/sqldefault.asp、 
http://sqlcourse.comy/select.html 以 及 http:/www.1keydata.com/sql/sql.html。 

准 英语 语法 (English-like Grammer)。 当 用 户 创 建 一 条 SQL 语句 时 ， 它 会 向 数据 库 产 生 
一 个 请 求 或 “查询 ”该 请 求 是 一 条 语句 ， 其 结构 类 似 于 英语 中 的 神 使 名 ， 和 譬如 “Select your 
partner”“Show your stuff” 或 “Describe that bully”。SQL 语句 中 的 第 一 个 单词 是 一 个 表示 
动作 的 英语 动词 ， 又 称 作 命令 ， 璧 如 show、use、select、drop 等 。 命 令 后 面 跟 有 一 组 类 似 于 名 
词 的 内 容 ， 如 show databses、use database 或 create database。 语 名 中 也 可 含有 介词 ， 璧 如 
“in 或 fom2” 例如 : show tables in database 或 者 Select phones from customer table。SQL 语 
言 还 允许 用 户 添 加 额外 的 条 件 子 句 ， 以 便 细 化 查询 ， 璧 如 select campanyname from suppliers 
where Supplierid > 20 。 
当 在 一 个 查询 中 列 出 多 项 内 容 时 ， 可 以 像 英语 一 样 用 逗号 隔 开 它们 ;例如 在 下 面 这 个 示例 中 ， 
选中 列表 中 的 各 个 字段 都 是 以 逼 号 隔 开 的 : select companyname, phone,， address from Suppliers ;。 
如 果 查 询 语句 很 长 很 坏 手 的 话 ， 读 者 可 能 希望 把 它们 键入 常用 的 编辑 器 中 ， 因 为 一 条 查询 会 在 执行 
完毕 后 自动 消 失 。 如 果 将 查询 保存 到 编辑 器 的 话 ， 读 者 就 能 将 它 剪 切 并 粘贴 回 MySQL 浏览 绒 或 命 
令 行 界面 ， 而 不 必 重 新 输入 它 。 最 重要 的 是 ， 请 读者 确保 查询 的 正确 性 ， 以 免 破 坏 某 个 重要 的 数据 
库 。MySQL 提供 了 一 个 “test” 数 据 库 ， 专 门 用 于 这 种 验证 工作 。 

以 分 号 终止 SQL 语句 。 分 号 是 结束 每 条 查询 语句 的 标准 方法 。 某 些 数据 库 系统 并 不 要 求 使 用 分 
号 ， 但 MySQL 是 要 求 的 (USE 和 QUIT 命令 除外 )。 如 果 用 户 忘 记 输入 它 ， 就 会 看 到 第 二 个 提示 
符 出 现 ， 同 时 会 挂 起 执行 ， 直 到 用 户 加 上 分 号 为 止 。 

命名 规范 。 使 用 良好 的 命名 规范 会 让 数据 库 和 数据 表 显 得 更 加 易 读 。 

例如 ， 最 好 把 表 名 设置 为 复数 ， 而 把 字段 / 列 名 设置 为 单数 形式 。 为 什么 呢 ? 因为 一 个 名 叫 
“Shippers” 的 表 一 般 持 有 多 个 Shipper， 而 字段 名 则 用 于 描述 每 一 个 Shipper， 因 此 是 单数 值 ， 璧 如 
“Company Name”“Phone” 等 等 。 表 名 或 字段 名 的 首 字 母 一 般 都 是 大 写 的 。 

像 “Company_Name” 这 样 的 组 合式 名 称 往往 会 通过 下 划 线 分 隔 开 来 ， 并 且 每 个 部 分 的 首 字母 
都 是 大 写 的 。 
在 任何 的 数据 库 名 中 都 不 允许 出 现 空 格 和 和 斜 杠 。 
保留 字 。 所 有 语言 都 拥有 一 组 保留 字 ， 它 们 对 于 该 语言 拥有 特殊 的 含义 。 本 章 将 用 到 大 多 数 的 
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保留 字 。 表 17-1 列 出 了 SQL 的 保留 字 。( 有 关 所 有 保留 字 的 列表 ， 请 参阅 MySQL 文档 。) 








表 17-1 SQL 保留 字 
CREATE ALTER. 
INSERT SELECT 
FROM ON 
ORDER BY JOIN 
CROSS JOIN RIGHT JOIN 
DROP DELETE 
UPDATE SET 
INTO WHERE 
GROUP BY LEFT JOIN 
FULL JOIN AND 
LIMIT IKE 
OR. AS 


大 小 写 敏感 。 如 果 用 户 正在 使 用 UNIX, 则 数据 库 名 和 表 名 都 是 大 小 写 敏感 的 ; 如 果 是 Windows 
的 话 则 是 不 敏感 的 。 规 范 往往 都 是 把 数据 库 及 其 数据 表 都 以 小 写 方式 命名 的 。 
SQL 对 大 小 写 则 并 不 敏感 。 例 如 ， 下 列 SQL 


Show databases'; 
SHOW DATABASES， 


尽管 SQL 命令 并 不 区 分 大 小 写 ， 但 是 按照 规范 的 规定 ，SQL 关键 字 应 当 全 部 大 








令 


命令 是 等 效 的 : 


表 名 和 数据 库 名 只 有 首 字 母 为 大 写 ， 以 便 让 命令 更 为 清晰 。 


SELECT * FROM Persons WHERE FirstName='John' 


写 ， 而 字段 名 、 








如 需 使 用 LIKE 和 NOT LIKE 命令 执行 模式 匹配 的 话 ， 则 在 MySQL 中 这 些 查询 的 模式 将 是 大 
小 写 敏 感 的 。 

结果 集 。 结 果 集 (result set) 只 不 过 是 另 一 个 表 ， 它 含有 某 个 SQL 查询 的 执行 结果 。 大 多 数 
数据 库 系统 甚至 允许 用 户 使 用 函数 在 结果 集 上 执行 操作 ， 和 譬如 Move-To-First-Record、Get-Record- 
Content\ Move-To-Next-Record 等 等 。 在 图 17-12 中 显示 的 结果 集 是 由 一 条 要 求 mysql 显示 “shippers?” 
表 中 所 有 字段 的 查询 语句 创建 的 。 























mysql> show fields in shippersi 





中 一 一 一 一 一 一 一 一 一 一 一 一 一 由 一 一 一 一 一 一 一 一 一 一 一 一 一 中 一 一 一 一 一 一 中 一 一 一 一 一 才 一 一 一 一 一 一 一 一 一 必 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 汕 
| Field | Type | Null 1 Key 1 Default | Extra | 
中 一 一 一 一 一 一 一 一 一 一 一 一 一 机 一 一 一 一 一 一 一 一 一 一 一 一 下 
| ShippPerID | int(11l) | | PRI 1 NULL | auto_increment | 
| CompPanyName | varchar(40) | | | | | 
| Phone | varchar(24) | YES | 1 NULL | | 
省 一 一 一 一 一 一 一 一 一 一 一 一 一 必 一 一 一 一 一 一 一 一 一 一 一 一 一 4 一 一 一 一 一 一 4 一 一 一 一 一 4 一 一 一 一 一 一 一 一 一 十 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 + 
3 rows in set (D.DO sec) 
图 17-12 ”结果 集 只 是 由 查询 产生 的 一 张 表 
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17.3 MySQL 入 门 


17.3.1 为 何 选用 MySQL 


MySQL 是 一 种 开放 源码 的 9、 全 功能 的 关系 型 数据 库 管理 系统 ， 已 经 移植 到 绝 大 多 数 平台 上 ， 
包括 Linux、Windows、OSX、HP-X_、AIX 等 。MySQL 是 可 移植 〈 能 运行 在 Linux、VWindows、 
OS/X、HP-X 等 系统 上 )、 快 速 、 可 笔 、 可 扩展 的 ， 并 且 非 常 易 于 使 用 。 

它 号 称 已 经 安装 在 全 世界 范围 内 的 数 千 万 台 计 算 机 上 ， 甚 至 还 包括 南极 洲 ! 它 拥 有 两 种 版 本 : 
一 种 需要 用 户 购 买 商业 化 许可 证 ， 另 一 种 则 是 免费 的 。 免 费 的 意思 是 : 用 户 可 以 在 不 拷贝 、 修 改 或 
传播 MySQL 软件 的 前 提 下 把 MySQL 用 在 任意 应 用 程序 中 。MySQL 支持 多 种 API〈 应 用 编程 接 
口 )， 包 括 Perl、PHP、TCL、Python、C/C++、yJava 等 。 

















当 使 用 MySQL 时 ， 读 者 会 磁 到 一 些 表 17-2 ”MySQL 中 的 术语 ， 等 等 
类 似 于 名 字 的 术语 。 表 17-2 能 帮助 读者 弄 mySQL 充当 数据 库 管 理 系统 的 实际 软件 
清楚 这 些 词汇 的 用 法 。 Imysqld MySQL 守护 进程 ， 或 服务 器 进程 
E mysdql monitor ”发 出 MySQL 命令 时 的 监视 器 〈 命 令 行 解 释 器 ) 
17.3.2 安装 MySQL mysql MySQL 用 于 管理 访问 权限 的 数据 库 的 名 字 
mysqladmin 一 种 MySQL 实用 程序 ， 用 于 管理 数据 库 








这 里 假定 读者 已 经 安装 并 月 动 了 一 -一 
一 个 数据 库 服务 器 。 下 载 和 安装 MySQL 往往 是 一 个 非常 直观 的 过 程 。 读 者 可 以 从 mysql.com Web 
站 点 获得 MySQL， 也 可 使 用 像 XAMMP 或 WAMP 之 类 的 集成 应 用 程序 获得 它 。 
XAMPP (针对 Windows、Linux、 
MGSQL AB 2 由 六 QU 51 Raferance Nanuel;: 2 insiallinog and UpPEIoding MISQL ;Mozilla Firefox 
Mac 0OS 和 Solaris) 是 一 种 免费 的 、 | 本 四 细 hear Rail 师 


5 什 - 二 - 园 盆 岂 Pdkevnrdconkiodrsmasajnasinohnl 
祈 壮 能 分 
易于 安装 的 Apache 发 布 包 ， 其 中 含 | 最 EL 
有 MySQL、PHP 与 Perl。 读 者 只 需 AN ERRORESY 
下 载 它 ， 然后 解压 并 启 动 它 便 可 。 详 MUSQL: The world's most popuiar open source databas6 3 0 


见 http:/www.apachefriends.org/en/ 


Menme ， products ，Services，pPartmers 委 Solutorve * Cumtomwers ，Newe BR Events，Abeut * Why MySQU 


Xxampp.html。 se 


如 需 获 得 完整 的 安装 帮助 ， 请 访 


MySQL 5.1 Refereance Manual :: 2 Instaling and Upgrading MYSQL 


Chapter 六 Installing <“ 1.9.6.3ENUM and SET Constraints 



































问 如 图 17-13 所 示 的 Web 页 面 。 and Upgrading 人 
二 二 MySQL sa Pryreface 人 
Table of Contents sa 1 General information 
1 7 3 3 连 接 M yS Q 上 让 Eee 2.1. General Installation 15sues POOR 
2.1 Goneral In 久 aa5on 
攻 se 2 ay 
MyYSQL 数 据 库 系 统 用 到 下 币 二 油光 机 二 Installation Using 3 Bematy 
王 ， 间 3 werman .1.2. Choosin Distonbubon 
17.2.1 节 所 描 述 的 客 全 端 / 服 务 秦 模 Ta0ese 人 人 2.3 Installing MYSQL on 
j 了 .1.3. How to Gei | Windows 
型 o 读者 是 一 个 连接 到 数据 库 上 的 客 2 和 0 2.4 Installing MYSQL from 
LT 、 、 Re 、 Integrity Using MD5 FFPM Package5s on Unux 
万 师 ， 写 可 以 来 自 命 令 位 、 图 形 化 界 Checksums or CnwrG 2.5 Installing MySQLon Mac 加 
和 
在， 亦 可 来 自 某 段 程 序 。 在 学 习 如 何 
从 一 段 Perl 程序 中 连接 数据 库 之 前 ， 图 17-13 MyYSQL 安装 文档 








全 MySQL 只 能 在 100% 遵 循 GPL 许可 证 的 应 用 程序 中 使 用 。 详 见 http:/www.mysql.com/company/legal/ 
licensing/opensource-licence.html。 
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和 

MySQL 命令 行 客户 端 由 MySQL 安装 包 提 供 ， 它 适用 于 任何 情 ; 一 个 mysql.exe 程序 ， 
位 于 MySQL 安装 包 的 bin 文件 夹 下 。 

为 了 运行 这 个 命令 行 应 用 程序 , 读者 首先 应 当 启 动 命令 行 提示 符 。 在 Windows 中 , 进入 开始 莱 
单 ， 选 择 “ 运 行 ……” 选 项 ， 然 后 在 “运行 ”窗口 中 键入 cmd。 在 Mac OS X 上 ， 请 进入 Finder 中 的 
Applications 文件 夹 ， 然 后 转 到 Utilities， 在 这 里 读者 可 以 找到 Terminal 应 用 程序 。 读 者 应 当 转 到 
MySQL 安装 位 置 ， 并 找到 其 中 的 bin 文件 夹 。 在 UNIX 中 ， 请 在 某 个 终端 窗口 中 的 shell 提示 符 后 
面 键入 命令 。 

MySQL 客户 端 可 执行 文件 一 般 都 位 于 bin 文件 夹 中 。 

为 了 使 用 上 述 客 户 端 连接 某 个 数据 库 ， 读 者 需要 输入 类 似 于 下 面 这 一 行 的 内 容 〈 人 参见 图 17-14) : 


mysql --user=Loot -Password=my _ Password --host=1Iocalhost 
































CRpps>cd iMSRQL 
CRpps\MSQL>cd bin 
CRpps SbNnegbsln Te 一 一 名 和 人 =XOO7 ~~ 呈 个 训 竹 扫 他 全 Sword =“hosz=1oocsalhogstf 


Welcowne to 7Yh tor。 Commands 新 4 
Your MwSQL connegt icn 1 ts 4 +G Server Uersion: 4。 于 全 nt 


Type "helpy” or "\h” for help。Type "、\Cc” fo clear he buffer。 
MysaQlt> 一 





一 
图 17-14 MySQL 客户 端 


不 论 选 用 哪 种 客户 端 ， 读 者 都 需要 指定 用 户 名 以 及 连接 到 的 主机 名 。 大 多 数 配 置 都 要 求 用 户 提 
供 口令 ， 不 过 如 果 读 者 只 是 自己 用 用 ， 就 无 需 提 供 口令 了 。 读 者 还 可 以 在 选项 中 指定 一 个 默认 的 数 
据 库 。 

当成 功 连接 到 数据 库 之 后 ， 读 者 将 看 到 一 个 mysql> 提示 符 ， 而 不 是 原来 的 标准 DOSUNIX 提 
示 符 。 这 就 意味 着 读者 现在 是 向 MySQL 数据 库 服 务 器 发 送 命令 , 而 不 是 向 本 地 的 计算 机 操作 系统 
在 MySQL 控制 台中 编辑 键 。 MySQL 支持 对 输入 行 的 编辑 。 上 稍 头 和 下 稍 头 键 允 许 用 户 在 前 
后 输入 行 之 间 上 下 移动 ， 而 左 箭 头 与 右 箭头 则 负责 在 一 行内 左右 移动 。 退 格 (Backspace) 键 和 删 
除 (Delete) 键 用 于 删除 一 行内 的 字符 , 以 便 在 光标 位 置 键入 新 的 字符 。 如 需 提交 已 经 编辑 好 的 行 ， 
请 按 下 回 车 (Enter) 键 。 UNIX 用 户 ， RS 还 支持 制 表 符 补 全 (tab completion ) 功能 ， 人 允 
许 用户 只 输入 某 个 关键 字 或 标识 符 的 部 分 内 容 ， 然 后 通过 制 表 符 〈Tab ) 键 补 全 它 。 

设置 口令 。 当下 载 MySQL 或 进行 安装 时 ， 读者 可 能 需要 为 用 户 ， “root” 输 入 一 个 口令 。 尽 管 并 
不 强制 要 求 用 户 创建 口令 ， 但 为 了 自己 数据 库 的 安全 ， 还 是 设置 一 个 口令 为 好 。 如 需 设 置 口 令 ， 请 进 
和 MySQL 控制 台 并 键入 下列 MySQL 命令 。 请 把 其 中 的 “MyNewPassword” 蔡 换 为 自己 的 口令 。 


SET PASSWORD EOR 'root'G'1localhost' = PASSNWORD ('MYNewPassword ') :， 


设置 完 口令 之 后 ， 用 户 应 停止 MySQL 服务 器 并 以 普通 模式 重新 启动 它 。 如 果 该 服务 器 是 以 服 
务 形 式 运行 的 话 ,请 从 Windows Services 窗口 启动 它 。 如 果 是 手动 启动 服务 器 , 用 户 则 可 使 用 自己 
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常用 的 任何 相关 命令 。 然 后 便 可 使 用 新 口令 连接 了 。 
在 MySQL 提示 符 设 置 口令 


示例 17.1 


1 

加 民 民 日 民 ODNEREeESEEOETIE 忆 人 CEEUSEES 人 SSEOOEOCSNOSEDnigl 
passwordq: NO) 

S 

SS mysdqdl = zzoot =P 

EEC 

WSIEomeecEens MSOonnonacoeaaeccmnanos 汪 Emo nien SENOR 
UNMwSOEEeenecCnRC 是 EC 





VSSnel SEN FEEDETORRE ETE 下 人 TSD 全会 E 下 二 


17.3.4 图 形 化 用 户 界 面 


MySQL 查询 浏 览 器 。 MySQL 查询 浏览 器 (MySQL Query Browser) 来 自 mysql.com 的 一 种 
图 形 化 用 户 界 面 (GUI) 客户 端 ， 它 用 于 连接 MySQL 数据 库 服务 器 。 只 要 下 载 它 并 对 照 简单 的 安 
装 向 导 按 部 就 班 安装 ， 用 户 便 可 在 Windows 的 开始 菜单 中 启动 该 应 用 程序 。 

然后 ，MySQL 查询 浏览 器 会 显示 一 个 连接 对 话 框 〈 参 见 图 17-15)。 用 户 必 须 指 定 所 要 连接 的 
MySQL 服务 器 、 该 服务 器 授权 所 需 的 用 户 身份 、 该 服务 器 所 在 计算 机 《〈 以 及 监听 端口 )、 以 及 将 要 
使 用 的 默认 数据 库 〈 又 叫 “Schema”)。 用 户 还 可 在 需要 时 设置 其 他 一 系列 附加 选项 。 

















SS 
MUSQL- 
Query Browser 


Connectto MySQL 5erver Instance 





Stored Connectior: | 





Server Host: localhost Port: |3306 | 








Username: | root 





Password 











Default Schema: 





图 17-15 MySQL 查询 浏 览 器 
为 了 发 起 查询 请 求 ， 用 户 必 须 选 定 一 个 默认 的 数据 库 。 虽 然 在 连接 到 服务 器 后 也 可 以 设置 默认 
服务 器 ， 不 过 最 好 是 从 连接 对 话 框 中 设置 它 ， 以 便 为 后 续 连 接 节省 时 间 。 
这 里 填 入 的 信息 非常 类 似 于 命令 行 客户 端 : 用 户 名 、 口 令 、 以 及 运行 数据 库 服务 器 的 服务 器 计 
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算 机 。 读 者 可 以 选择 性 地 输入 数据 库 名 和 端口 号 (MySQL 默认 为 3306 ), 还 能 在 Stored Connection 
部 分 中 将 连接 信息 保存 为 书签 。 

通过 使 用 位 于 应 用 窗口 右 侧 的 树 型 导航 结构 ， 用 户 还 可 在 MySQL 查询 浏 览 器 中 转向 不 同 的 数 
据 库 ， 参 见 图 17-16 。 
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图 17-16 ”MySQL 查询 浏 览 器 


phpMyAdmin 工具 

phpMyAdmin 工具 以 PHP 语言 编写 ,能 在 Web 上 处 理 对 MySQL 的 管理 操作 〈 参 见 图 17-17 ) 。 
它 可 以 用 于 创建 或 删除 数据 库 、 操 纵 表 和 字段 、 执 行 SQL 语句 、 管 理 字 段 上 的 键 、 管 理 权限 ， 并 能 
把 数据 导出 为 不 同 的 格式 。 详 见 http://www.phpmyadmin.net/home page/index.php。 

MySQL 权限 系统 。 以 驾驶 执照 为 例 ,“ 认 证 authentication)” 人 负责 通过 检查 照片 和 有 效 期 来 
判断 你 是 否 真 的 拥有 这 本 驾驶 执照 , 而 “授权 (authorization)” 则 负责 检查 你 有 权 驾 驶 哪些 类 型 的 
汽车 ， 璧 如 轿车 、 大 卡车 或 校车 。 

与 之 类 似 ，MySQL 权限 系统 的 首要 功能 是 在 前 面 所 述 的 命令 行 或 图 形 化 客户 端 中 对 用 户 与 口 
令 进 行 认证 ， 以 保证 其 有 权 连 接 到 给 定 的 主机 上 。MySQL 权限 系统 的 第 二 个 目的 则 是 确定 某 个 已 
经 连接 到 数据 库 上 的 用 户 有 权 做 哪些 事情 。 例 如 ， 某 些 用 户 可 能 只 有 权 选 取 或 查看 某 个 指定 表 中 的 
数据 。 当 安装 完 MySQL 后 ， 创 建 的 MySQL 数据 库 中 便 带 有 一 些 称 作 授权 表 〈grant table) 的 表 ， 
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它们 定义 了 最 初 的 用 户 账户 及 其 权限 。 其 中 第 一 个 账户 是 用 户 “root”， 又 称 作 超级 用 户 。 超 级 用 
户 能 够 做 任何 事情 ， 也 就 是 说 ， 一 且 某 个 用 户 以 root 身份 登录 数据 库 ， 就 会 拥有 所 有 的 权限 。root 
Rs 全， 因此 任何 人 都 能 以 超级 用 户 身份 登录 。 其 他 的 账户 类 型 则 是 匿名 用 户 
人 -user) 账户 ， 它们 也 不 带 有 口令 。 对 于 root 和 anonymous 账户 ，Windows 会 合用 一 个 
令 , 而 UNIX 则 提供 了 两 个 不 同 的 口令 。 这 两 种 方式 都 能 避免 出 现 安全 问题 。 在 启动 MySQL 后 ， 
ie root 账户 和 anonymous 账户 设 定 口令 。 
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图 17-17 ” phpMyAdmin 工具 


如 需 执 行 管理 操作 ， 用 户 必 须 以 root 身份 访问 服务 器 。mysqladmin 实用 程序 能 够 用 于 创建 
码 以 及 执行 其 他 MySQL 管理 任务 。 在 下 面 这 个 示例 中 ， 它 就 用 于 为 用 户 “root” 创 建 密码 。 





虹 


A\\ 
中 可 


示例 17.2 
1 8$ mysqladmin -u root -h Localhost Password quigley1 
2 5$ mysql -uroot -hlocalhost -PdquigleyLl 
Welcome to the MySQL monitor. Commands end with ; or Ng. 


mWMSOEEcmnoseeonaLE 和 23Eo 古 SEE Ssacne 0 天 2 
Gehmmuasee ys 


YE 和 人 ERETEVOENCEEEC 本 SEE 全 
解释 
1. mysqladmin 程序 用 于 在 本 地 主机 上 为 用 户 root 创建 密码 。 其 密码 是 “quigleyl1 ”。 
2. 用 户 root 登录 数据 库 服 务 器 。-u 开 关 后 面 跟 有 用 户 名 或 登录 名 (在 -au 和 用 户 名 之 间 没 有 空格 )。 
这 里 用 户 是 以 'root” 身 份 登录 的 。 与 之 类 似 ,-p 开关 后 面 跟 有 实际 的 密码 在 这 里 就 是 “quigley1”。 
如 果 疫 有 提供 密码 的 话 ， 系 统 将 提示 用 户 输入 密码 





17.3.5 “寻找 数据 库 


数据 库 服 务 器 维护 了 一 个 含有 可 用 数据 库 的 列表 。 通 过 在 mysql 提示 符 下 执行 show 命令 ， 便 
可 将 该 列表 以 一 张 表 的 形式 显示 出 来 ， 如 下 面 的 示例 所 示 。 一 般 而 言 ， 在 安装 完 MYSQL 后 ， 它 会 
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带 有 两 个 数据 库 : test 和 mysql。test 是 一 个 空 数据 库 ， 用 于 练习 和 测试 各 种 特性 。 用 户 一 般 不 必 
拥有 什么 特殊 权限 就 能 使 用 test 数据库。mysql 数据 库 是 一 个 特殊 数据 库 ，MySQL 服务 器 用 它 保 
存 各 种 访问 权限 。 除 非 需要 管理 权限 ， 否 则 就 无 需 关 心 这 个 数据 库 。 请 参阅 MySQL 使 用 手册 中 的 
“GRANT” 命 令 。 


示例 17.3 


工 mysdql -uroot -PduigleyLI 
WenccnreecaneavsOmnmonmecra conanas enoawnE SEOE 
MSOTEeenmeeEenanOETES 汪 SEESEVEEE 人 ES 和 全 本 有 机 村 二 辣 臣 














VE 
2 mysql> show databases: 
0 Sowadatabases 


ESWGOEmaEemSCEma 
meal 

PhpPpmyadmin 

EeesiE 








xzows jin set (0.00 sec) 
mysGq1L> 


解释 
show databases 命令 列 出 了 该 服务 器 上 的 所 有 数据 库 。 通 常情 况 下 , 在 安装 好 MySQL 后 , 用 
户 就 能 得 到 mysql 数据 库 和 test 数据 库 。test 数据 库 只 用 于 测试 目的 ， 并 且 是 空 的 。mysql 数据 库 则 
含有 所 有 MySQL 服务 器 权限 信息 。 


创建 和 删除 数据 库 。 创 建 数据 库 非常 简单 。 设 计数 据 库 是 另 一 项 内 容 ， 它 取决 于 用 户 需求 ， 以 
及 用 户 将 用 哪 种 模型 组 织 数据 。 在 最 小 的 数据 库 中 ,读者 也 必须 创建 表 。 下 面 一 节 将 讨论 如 何 创 建 
和 删除 数据 库 与 表 。 假 定 用 户 已 授予 了 创建 数据 库 的 权限 , 便 可 在 mysql 命令 行 或 使 用 mysqladmin 
工具 来 创建 之 ， 如 下 所 示 : 


示例 17.4 


间 mysdql> create database my_samPle_ db: 
Quezy OK，1 zcow aftfecteaQ (0.00 sec) 





























包 mysdql> use my_samPle _ db: 
Database changeqQ 


电 mysdl> Show 七 ables: 
Empty set (0.00 sec) 





4 mysdclLl> create 七 able 七 est( 
三 过 有 SOIUINTEGERF 
-> feld2 VARCHAR(50) 


二 全 司 ) 

Querzy OK，0 zzows affectedq (0.36 sec) 
与 mysdl> Show 七 ables: 

+------------------------ 十 


| Tables in my sanmpcle db | 
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1 row in set (0.00 sec) 


6 mysdl> droP table test: 
Query OK，0 cows affectead (0.11 sec) 


也 mysdql> qropP database my_samPpPle db: 
Quezy OK，0 zcows affecteaq (0.01 sec) 


. 该 命令 创建 一 个 名 叫 my_smaple db 的 数据 库 。 

. 创建 好 数据 库 并 不 代表 读者 已 经 身 在 其 中 。 如 需 进 入 新 的 数据 库 ， 请 执行 use 命令 。 

. Show 命令 列举 数据 库 中 的 所 有 表 。 访 数据库 是 空 的 。 

.为 my_smaple_ db 数据 库 创 建 一 个 名 为 test 的 表 。 在 创建 该 表 时 ,定义 两 个 列 fieldl 和 field2 。 
为 每 个 字段 指定 它 所 保存 的 数据 类 型 ;fieldl 将 保存 纯 数 字 ， 而 field2 会 保存 最 大 长 度 为 50 
个 字符 的 一 个 字符 串 。 

5. show 命令 列 出 数据 库 中 的 所 有 表 。 

6. drop table 命令 负责 销毁 一 张 表 及 其 所 有 内 容 。 

7. drop database 命令 负责 销毁 一 个 数据 库 及 其 所 有 内 容 。 


17.3.6 ”基本 命令 入 门 


(AL the MySeoE Client Bomet) 
1 mysdql> select database() : 





人 
database() 1 
站 守 
northwina | 
本人 AS 本 世人 ， 十 


onseEe (OUUESS<h 
2 mysdqlLl> select now() : 


人 吕 
Dow() | 
人 训 
区 网 二 全 二 二 Ge | 
二 二 一 二 一 三 三 一 一 三 一 三 一 一 一 一 二 一 一 三 一 二 十 





own OARUUESEeh 


下 面 一 节 中 的 示例 将 展示 如 何 从 MySQL 客户 端 中 执行 SQL 命令 。 这 些 示例 并 不 奢求 洒 盖 
MySQL 支持 的 所 有 SQL 语句 ， 而 是 说 明了 一 些 基 本 的 语法 ， 以 便 创 建 与 删除 数据 库 和 表 ， 并 说 明 
如 何在 数据 库 表 中 插入 、 删 除 、 编 辑 、 更 改 和 选取 数据 。 如 需 了 解 完整 的 MySQL 功能 描述 ， 请 读 
者 访问 http:/dev.mysql.com/doc/“〈 参 见 图 17-18 ) 。 

借助 MYSQL 创建 数据 库 。 现在 读者 可 以 创建 一 个 数据 库 了 。 该 数据 库 名 叫 sample_db。 
CREATE DATABASE 命令 负责 创建 数据 库 , 而 SHOW DATABASES 语句 则 说 明了 用 户 现在 正 位 于 
另 一 个 数据 库 中 。 (读者 还 可 使 用 mysqladmin 命令 来 创建 和 删除 数据 库 。) 
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示例 17.6 


1 mysql> CRERATBE DATRABRASE samPle db:; 
Cuesryoalowatftectew OOSEEsecy) 


2 mysql> SHOW DRTRBRASES : 


EROEmarenmSemeima 
mySdGIl 

northwind 
Phpmyadqmin 

| samPIe_db | 
让 全 总 起 








1. CREATE DATABASE 语句 允许 用 户 创建 一 个 数据 库 。 创 建 数据 库 操作 并 不 能 让 用 户 进入 该 
数据 库 。USE 语句 将 让 用 户 在 这 个 新 数据 库 中 工作 ， 正 如 后 面 示例 所 示 。 
2. SHOW DAIABASES 语句 能 列 出 当前 可 用 的 所 有 MySQL 数据 库 。 数 据 库 sample db 刚刚 创建 。 


借助 MySQL 选择 数据 库 。 当 创建 好 数据 库 之 后 , 在 使 用 它 之 前 , 必须 首先 打开 该 数据 库 。 该 








项 操作 可 通过 USE 语句 来 完成 。 现 在 ， 我 们 就 有 一 个 待 处 理 的 数据 库 了 。 





示例 17.7 


mysdql> USE sampPle_ db:， 
Database changeaQ 


在 数据 库 中 创建 表 。 当 创 建 好 数据 库 之 后 ， 是 时 候 创 建 一 些 表 了 。 在 实际 情况 下 ， 关 系 型 数 











据 库 的 设计 过 程 涉及 一 组 为 表 结 构 添 加 逻辑 限制 的 规则 、 一 个 叫 作 “规范 化 normalization)” 的 处 


至 


过 程 、 以 及 超出 本 书 范围 的 其 他 一 些 方面 。 在 示例 数据 库 中 ， 我 们 将 创建 一 张 表 ， 并 向 它 添 加 数 
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据 ， 以 便 告诉 读者 应 当 怎么 做 。 数 据 类 型 定义 了 表 中 每 一 个 字段 的 结构 。CREATE TABLE 语句 能 
定义 每 一 个 字段 、 它 的 名 字 以 及 它 的 数据 库 类 型 。 

数据 类 型 。 首 选 ， 我 们 必须 决定 哪些 种 类 的 数据 将 能 保存 到 表 中 : 文本 、 数 字 、 日 期 、 照 片 、 金 
额 ， 等 等 。 同 时 还 要 决定 这 些 用 于 保存 数据 的 字段 〈 列 ) 的 名 称 。MySQL 指定 了 一 系列 数据 类 型 ， 
能 够 描述 保存 在 数据 库 中 的 所 有 类 型 的 数据 。 大 多 数 MySQL 数据 类 型 都 在 表 17-3 中 子 以 列 出 。 


表 17-3 SQL 数据 类 型 














































































































































































































数据 类 型 描述 
数字 型 
SET 非常 小 的 数字 ; 适合 表达 年 龄 值 。 如 果 带 UNSIGNED 子 句 ， 它 能 保存 0 到 255 之 间 的 
值 ， 否 则 其 范围 则 是 从 -128 到 127 
SMALLINT 适合 表示 范围 为 0 到 65535 (UNSIGNED ) 或 从 -32768 到 32767 之 间 的 数字 
MEDIUMINT 带 UNSIGNED 子 句 时 ,范围 是 从 0 到 16777215S 不 带 时 , 范围 是 从 -8388608 到 8388607 
计 示 带 UNSIGNED 的 整数 范围 是 从 0 到 4294967295;， 不 带 时 则 是 从 -2147483648 到 
2147483647 
BIGINT 大 数字 (从 -9223372036854775808 到 9223372036854775807) 
FLOAT 浮 点 数 〈 单 精度 ) 
DOUBLE 浮 点 数 〈 双 精度 ) 
DECIMAL 以 字符 串 形式 表示 的 浮 点 数 
文本 型 
CHARC X 范围 从 1 到 255。 持 有 一 个 长 度 固定 的 字符 串 〈 可 含有 字母 、 数 字 与 特殊 字符 )。 其 国 
定 长 度 值 位 于 括号 中 
X 范围 从 1 到 255。 持 有 一 个 长 度 可 变 的 字符 串 〈 可 含有 字母 、 数 字 与 特殊 字符 )。 其 最 
ee 大 长 度 值 位 于 括号 中 
TINYTEXT 一 小 段 文本 ， 大 小 写 敏 感 
TEXT 稍微 长 一 些 的 文本 ， 大 小 写 敏 感 
MEDIUMTEXT 中 等 长 度 的 文本 ， 大 小 写 敏 感 
LONGTEXT 较 长 的 文本 ， 大 小 写 敏 感 
Blob 的 意思 是 一 段 二 进 制 大 型 对 象 (Binary Large Object)。 在 执行 大 小 写 敏 感 的 搜索 
0 操作 时 ， 应 当 使 用 blob 类 型 
二 进 制 型 
BLOB 稍微 大 一 些 的 blob， 大 小 写 敏 感 
MEDIUMBLOB 中 等 大 小 的 blob， 大 小 写 敏感 
LONGBLOB 较为 大 型 的 blob， 大 小 写 敏感 
枚 举 数据 类 型 具有 固定 的 长 度 ， 每 一 列 只 能 含有 给 定 集合 中 的 单个 值 。 这 些 值 都 放 在 
ENUM ENUM 声明 后 面 的 括号 中 。 例 如 在 一 个 战争 状态 Cm_status) 列 中 ， 可 有 ENUM( "Y" ， 
"N" 
日 期 型 
DATIE:YYYYMM-DD 四 位 年 份 后 面 跟 有 两 位 的 月 份 和 日 期 ， 例 如 ，20071030 
TIME: hh:mm:ss 小 时 : 分 钟 : 秒 钟 
DATETIME YYYY-MM-DD hh:mm:ss〈 日 期 和 时 间 之 间 通 过 空格 隔 开 ) 
TIMESTAMP YYYYMMDDhhmmss 








YEAR YYYY (四 位 年 份 值 );， 例 如 2007 
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1 mysdql1l> CRERATE TABLE teams ( 
-> name varchar (100) not nul1l， 
-> wins int unsigned， 
-> Losses int unsigned) : 

Query OK，0 rows affecteq (0.09 sec) 


2 mysdl> SHOW TRBLES 


本 汪 
SSSDSSWOLSEOIS 
本 号 
teams | 
本 十 


Fownne setlOR0O0U 划 SEEe)E 


3 mysdql> DESCRIBE t 上 eams ; 


一 一 -一 -一 一 一 +------------------+------+-----+---------++- 一 -一 -一 -十 
FEielada | Type | Nail<E RDEESTURAIIER2E | 
一 一 -一 -一 一 一 +------------------+------+-----+---------+- 一 -一 -一 -十 
name 国 emaooy | NO | | | | 
wins | 国 本 TELOISNSOTTe SEOES | | NUEIEDE | | 
ESiSiSS IOWEONESDIOSO IES | | NULE | | 
一 一 一 -一 一 +------------------+------+-----+---------++- 一 -一 一 一 -十 





ownESeORUUESsch 


.CREATE TABLE 语句 在 数据 库 中 创建 一 张 表 。 该 表 名 为 ttams。 它 含有 三 个 字段 name、wins、 
losses。 字 段 name 含有 最 大 长 度 为 100 个 字符 的 一 个 可 变 长 字符 串 ，wins 和 losses 字段 则 分 
别 含有 无 符号 的 整数 。 

2. SHOW 命令 列 出 数据 库 中 所 有 的 表 。 

.DESCRIBE 命令 能 够 描述 表 的 结构 ， 即 ， 各 个 字段 的 名 称 ， 以 及 每 个 字段 保存 的 数据 类 型 。 
请 注意 ， 这 里 的 name 字段 不 能 为 “NULEL” 如 果 没 有 癌 wins 与 losses 字段 赋值 的 话 ， 这 
两 个 字段 的 默认 值 将 是 NULEL 例如 ， 如 果 某 支 球 队 尚 未 参加 任何 比赛 ， 它 的 wins 和 1losses 
字段 就 会 赋值 为 NULL。 


LD 


借助 主键 添加 另 一 张 表 。 在 下 面 这 个 示例 中 , 我 们 将 创建 另 一 张 表 , 并 庄 加 一 个 主键 。 主 键 用 
于 惟一 标识 数据 库 中 的 记录 。 用 户 的 登录 名 、UID 、 账户 编 号 或 者 许可 证 都 是 惟一 ID 的 示例 。 主 键 
是 一 种 惟一 的 索引 , 其 所 有 关键 列 (key column ) 都 必须 定义 为 NOT NULL. 如 果 没 有 显 式 地 把 它 
们 定义 为 NOT NULL 的 话 ，MySQL 将 会 隐 式 地 《悄悄 地 ) 声明 它们 。 一 张 表 只 能 含有 一 个 主键 。 


示例 17.9 


1 mysdq1l> CRERATE TABLE coaches ( 
-> idq INIT NOT NULIL AUTO_INCREMENT ， 
-> name VRARCHRAR (75)， 
-> team VARCHAR (100)， 
-> title VARCHAR(50)， 
IESEEWaE<csiEe 
-> PRIMRARY KEY(id) ) ， 


























座 : 
47G 和 17 部 
Query OK，0 rows affectedq (0.38 sec) 
2 ， mysql> DESCRIBBE coaches: 
Eeeliaw TYPe NU11 Eeew SEEDEE 人 
Ia 全 国 |) NO PRI NUILE aaUEOCREmEI 
name Wanaemar0weoy ES NUZEE 
team Vaeemac OO ES NUILE 
七 夺 上 Le Waieemacksioy ES NUILE 
SEE Was 3 向 NUILE 
5 Fows in set (0.00 sec) 
ENREPAEBTEISL 
一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 十 
ERESGIESSDnESamoe 本 wo 
一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 十 
coaches | 
teams | 
一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 十 
zows in set (0.00 sec) 
解释 


1. 在 创建 coach 表 时 ， 将 id 字段 设 定 为 它 的 主键 。 该 字段 将 用 于 惟一 标识 某 个 特定 的 教练 员 。 





向 表 中 插入 数据 。 


SQL INSERT 语句 能 把 新 记录 添加 到 表 中 。 在 插入 数据 时 ， 请 务 





儿 人 





. 新 表 的 结构 显示 其 id 字段 是 一 个 主键 ， 每 当 添加 新 的 教练 时 ，MySQL 会 自动 把 该 字段 值 递增 1。 
. 现在 该 数据 库 信 有 两 张 表 ， 一 张 叫 作 teams， 另 一 张 名 叫 coaches 。 


保证 按 


照 数 据 存储 的 实际 顺序 来 为 各 个 字段 提供 对 应 值 ; 否则 SQL 将 会 发 送 一 条 错误 消息 。 在 下 面 的 示 


例 中 ， 为 了 插入 数据 ， 用 户 既 可 通过 SET 子 句 为 特定 字段 赋值 ， 也 可 用 VALUES 列表 
值 ， 还 可 简单 地 按 顺 序 依次 列 





H 每 一 个 


人 字段 的 值 。 


# 定 需要 的 


示例 17.10 


下 


mysdq1lL> INSERTIT INIO teams 


-> Set name='Fremont 了 Tigercs' 


-> wins=24/ 
-> losses=26; 
Quezy OK，1 zcow affecteqQ 


mysdqlL> INSERTI INIO teams 
一 > 
二 TS 三 二 下 
-> losses=25) 

QueEy OK， row affected 


UN 


Sec) 


set name='Chico Hardhats'y 


(0.00 sec) 


mysdql> INSERT INTO teams Values 


-> ('Bath 


QueEy OK， row affected 





出 局 用 局 帮 放 可 本 册 且 和 和 忆 二 用 到 
USOUEsEc 


mysdql> INSERT INTO teams Values 


二 SSE 
OUervoOK row affected 





24) 7 
(0 OOUESSG) 


mysdql> SELECT name FROM teams: 
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EEement 了 了 igezs 
aeswaeehaies 
Bath Warships 
Bangor Rams 








4 Fows im set (0.00 sec) 


6 mysdql> INSERTIT INTO coaches values 
人 
OnasvOKAELEGN sea 人 ROSS) 


7 ， mysql> INSERT INTO coaches values 
本 区 人 作用 本 村 3 人 ES 
昌国 三 的 玖 有 
User ONESEEEEEEOARN Snnng( 人 (RUNEESech 


8 mysql> INSERT INTO coaches (name,team，title,stazt_date) 
STRE 本 几 放 避 本 TS 
于 
QuezEy OK，1 row affecteQ (0.03 sec) 


9 mysdql> INSERT INTITO coaches (name，team，title,start_ date) 
=>Values( 'Uoe Hayes"， "Fremont Tigercs"，' Defensive Coach" ， 
六 台 辣 二 后 王 G 全 
QueEy OK，1 row affecteQ (0.02 sec 


解释 
1. 在 INSERT 语句 中 , 使 用 SET 子 句 指派 字段 和 值 。 对 于 那些 没有 出 现在 SET 子 句 中 的 字段 ， 
MySQL 会 把 它们 赋值 为 默认 值 。 
2. 再 次 使 用 SET 子 名 指派 字段 和 值 。 
3. 在 本 例 中 , INSERT 语句 含有 一 个 VALUES 列表 ， 它 能 以 创建 表 时 指定 的 顺序 依次 为 每 一 个 
字段 赋值 。 如 果 对 顺序 情况 不 大 确定 ， 可 使 用 前 面 示例 所 述 的 DESCRIBE 语句 来 查看 。 
4. 在 这 个 示例 中 ,为 一 条 新 记录 再 次 重复 VALUES 列表 。 请 注意 ， 此 处 日 期 是 以 yyyy-mm-dd 
的 形式 而 插入 的 。 
35. SELECT 语句 能 够 显示 插入 到 表 中 的 所 有 球 队 的 名 字 。 
6.7.8.9. 借助 VALUES 列表 揪 入 更 多 的 记录 。 








从 表 中 选择 数据 一 一 SELECT 命令 。 最 常用 的 一 个 SQL 命令 是 SELECT, 负责 执行 一 条 查询 。 
SELECT 命令 用 于 根据 某 些 标准 从 一 张 表 中 检索 数据 。 它 指定 了 一 组 以 逗号 隔 开 的 待 检索 字段 ， 以 
及 一 个 指定 待 访问 数据 表 的 FROM 子 句 。 其 执行 结果 将 保存 在 一 个 结果 表 中 , 又 称 作 结果 集 。 符 号 
* 用 于 表示 所 有 的 字段 。 

按 列 选择 。 下 面 这 个 示例 将 会 检索 指定 列 的 数据 ， 其 中 每 个 列 〈 字 段 ) 都 以 喜 号 隔 开 。 


ET 


1 mysdql> SELECT name EROM teams: 









































4 
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+---------------- 十 

| Fremont Tigers | 

ER 

| Bath Warships | 

SRSms | 

+---------------- 十 

4 zcows in set (0.00 sec) 

2 mysql> SELECT name，wins EROM teams: 
name wins 
Bangor Rams 22 
BSECnaNaESaios 32 
FEEemonmeirigees 24 
seeRSEOTSIEE 开罗 

4ewsanEse 吉 ULORSUUESES) 

3 mysdql> SELECT ida，name， 七 itlLe EROM coaches : 
IaQ name 七 It 七 Le 
下 Uohn Doe HeaaQ Coach 
到 Jack Mattsone offensive Coacnh 
国 Bad 有 Wasams Headq Coachn 
4 JoeHayes Defemsi7egcoaci 

4 cows in set (0.00 sec) 
解释 


1. SELECT 语句 从 名 叫 teams 的 表 中 检索 出 name 字段 的 所 有 值 。 
2. SELECT 语句 从 名 叫 teams 的 表 中 检索 出 name 字段 与 wins 字段 的 所 有 值 。 字 段 名 列表 之 间 

通过 喜 号 予以 隔 开 。 
3. SELECT 语句 从 coaches 表 中 检索 出 id 字段 、name 字段 和 title 字段 的 所 有 值 。 


选择 所 有 的 列 。 


目 


*# 是 一 


个 通配符 ， 用 于 表示 一 张 表 内 所 有 的 列 。 


示例 17.12 








mames wins 
ERFEemont 了 IIezrs 24 
neeReesES 交 | 
Bath Warships 习 权 
Bangor Rams 22 


mysdql> SELECT * EROM 七 seams: 








2 mysql> SELECT * EROM coaches : 
十 一 一 一 一 十 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 十 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 
id | name IEeam 
十 一 一 一 一 十 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 十 一 
1 让 SS | 
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| SENSEESCONE 天 EEC 人 ES 
| 十 | 卫 QQ 人 帮 34 天 nmS | EREemont Tigezs 
| 4 | JUoe Hayes | EREemont TiLgezs 
+----+--------------- +---------------- 
4 rows in set (0.00 sec) 


487 
Oftfensive Coacnh | 2004-10=-051 
Heaa Coach | 国宝 鸭 的 二 才思 三 WG 
SEEEIMSICSRECGSE 人 全 | 国 交 S 二 0 抬 三 6 
----------------- +-------- 一 -一 -二 


1.SELECT 语句 从 名 叫 teams 的 表 中 检索 出 所 有 的 字段 及 其 值 。 
2. SELECT 语句 从 名 叫 coaches 的 表 中 检索 出 所 有 的 字段 及 其 值 。 


WHERE 子 句 。 WHERE 子 句 是 可 选 的 , 它 能 根据 某 些 条 件 《〈 称 作 选 择 场景 ) 来 指定 选择 那些 
数据 值 或 行 。SQL 提供 了 一 组 运算 符 ， 以 便 指明 待 设 定 的 条 件 。 参 见 表 17.4。 


表 17-4 SQL 运算 符 
运算 符 描述 

















和 等 于 
<> ，!= 不 等 于 ” 

冯 大 手 

<< 水 于 

>= 大 于 或 等 于 

<= 小 于 或 等 于 

IS [NOT] NULL 是 NULL ( 非 值 ) 或 不 是 NULL 
BETWEEN 位 于 某 个 范围 之 间 

LIKE 搜索 类 似 于 模式 的 值 

NOT LIKE 搜索 不 类 似 于 模式 值 

1,NOT 逻辑 非 ， 否 定 

| , OR 逻辑 或 

&& ,AND 逻辑 与 

XOR 异 或 





a. 在 某 些 版 本 的 SQL 中 ， 运 算 符 <> 亦 可 写成 !=。 


示例 
where country = 'Sweden' 
Where country <> 'Sweden' 
where Salary > 50000 
where salary < 350000 


where birth = NULL 

where last_ name BETWEEN 'Doe' AND 'Hayes' 
Where last name LIKE 'D%%， 

Where country NOT LIKE 'Sw9%6' 

where age ! 10; 

where order_number>10 || part_number= 80 
where age > 12 && age <21 


Where status XOR 


ET 


mvSdI SEECTEnSmen ws EROMUEsams WHERE ImSR > 2.55 


+------------------- 十 -一 一 一 一- 十 
name | 上 ES 

HH------------------- 十 -一 -一 一 -十 
Bathn Destroyezs | 34 1 
EoRelanamRsnmoDns 28 

+------------------- 十 -一 一 一 一 -十 





EnNSESREE 惠 | 
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zrow in set (0.03 sec) 
3 mysdl> SELECT name，， title FROM coaches WHERE teamn = 'Chico Harzdhats'， 

和 定 
name 七 I 七 1e | 

人 总 
Uohn Doe HeaaQ Coach | 
JacK Mattsone Oftfensive Coachnh | 

有 于 


电 





| John Doe 
| Jack Mattsone 
| Joe Hayes 


SETSWSOEEESIEE 


ISTeIESnIaGn 


row in set (0 


myXsgql> SEERC 开 


John Doe 
JacK Mattsocone 
Te 国语 





SGwSS SEE 





0.00 sec) 


name FROM teams WHERE wins > 10 && Losses < 10: 


.00 Sec) 


name FROM coaches WHERE id BETWEEN 1 AND 3: 


0.00 sec) 


本 
刷 


人 


(LA 


CN 


.SELECT 语句 从 名 


.SELECT 语句 从 名 叫 teams 的 表 中 检索 出 胜利 次 数 大 于 25 的 球 队 名 称 。 
.SELECT 语句 从 名 叫 teams 的 表 中 检索 出 败北 次 数 小 于 胜利 次 数 的 球 队 名 称 。 
. 当 教练 所 在 球 队 等 于 字符 串 “Chico Hardhats' 时 ，SELECT 语句 就 从 名 叫 coaches 的 表 中 检索 


出 教练 姓名 和 头衔 。 此 处 的 字符 串 必 须 位 于 引号 内 ， 可 以 是 单 引号 或 者 双 引 号 ， 其 匹配 过 程 


必须 是 精确 的 。 


. 如 有 果 教 练 的 名 字 是 以 了 开头 的 话 , SELECT 语句 就 从 名 叫 coaches 的 表 中 检索 出 这 些 教练 的 





名 字 。% 符号 是 一 个 通配符 ， 表 示 跟 在 了 后面 的 任意 字符 。 


. 当 胜 利 次 数 大 于 1 


0 且 败 北 次 数 小 于 10 时 ，SELECT 语句 就 会 检索 出 这 些 球 队 的 名 称 。&& 


又 称 作 逻 辑 与 〈logical AND )。 甚 两 侧 语句 都 必须 为 真 ， 否 则 就 不 会 选 到 任何 内 容 。 





叫 coaches 的 表 中 检索 出 其 教练 卫 介 于 1 和 3 之 间 的 教练 的 姓名 .BETWEEN 


子 名 能 创建 一 个 用 于 选择 的 范围 。 
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对 表 进 行 排 序 。 通 过 使 用 ORDER BY 子 句 ， 用 户 便 能 按照 指定 的 次 序 显 示 查 询 的 结果 。 各 行 
可 以 按 升序 (ASC， 默 认 情 况 ) 或 降序 (DESC) 进行 排列 ， 排 序 的 值 既 可 以 是 字符 串 ， 也 可 以 是 
数字 。 用 户 还 可 借助 LIMIT 子 句 来 限制 任意 查询 的 输出 内 容 。 


示例 17.14 


1 mysdq1l> SELECT * FROM teams ORDER BY name: 

















name wins SSISSS 
ESmoci RSims 之 汉 24 
ENSEE SI 本 权 昌 
Breousaeensies 王 多 2 
EEemomeruogees 24 26 


2 mysql> SELECT * FROM teams ORDER BY name DESC:， 











name wins oasses 
EremoneIuogens 24 2 
Greecedmaiess 汪 龟 写 3 
Bath Warships 日 忆 习 
Bangor Rams 之 局 24 


4 Fows in set (0.00 sec) 


TELIEESEEEICTEOSmER NERROVEESmSRORDEREBYANWINSEIMITI 屋 2 





+---------------- 十 -一 一 一 一 一 十 
name | 上 SNS 
+---------------- 十 -一 一 -一 一 十 
neoENEEOneas 刘 | 提 涪 
Bangor Rams | 又 
+---------------- 十 -一 一 一 一 一 十 
2ONSRDIEESE 志 是 00EESEc) 


解释 
1. SELECT 语句 从 名 叫 teams 的 表 中 检索 出 所 有 的 字段 ， 并 把 结果 集 按 名 称 升 序 排列 。 
2. SELECT 语句 从 名 叫 teams 的 表 中 检索 出 所 有 的 字段 ， 并 把 结果 集 按 名 称 降 序 排列 。 
3. SELECT 语句 检索 球 队 的 名 称 和 胜利 次 数 ， 并 按 胜利 次 数 升序 排列 ， 最 后 把 结 采 集 限 定 为 前 
两 名 的 球 队 。 


对 表 进 行 连接 。 如 果 某 个 数据 库 设 计 得 比较 好 的 话 ， 其 各 个 表 便 会 基于 某 些 标准 相互 关联 起 
来 例如 ， 在 上 述 数据 库 中 ， 每 支 球 队 都 有 球 队 名 称 ， 而 每 个 教练 也 都 拥有 姓名 和 所 在 球 队 的 名 称 。 
连接 (join ) 操作 人 允许 把 两 个 或 多 个 表 组 合 到 一 起 ， es 有 很 
多 种 不 同 的 连接 (join) 语句 《〈 内 连接 、 交 叉 连 接 、 左 连接 等 过 它们 都 遵循 基本 的 SELECT 
语法 ， 只 不 过 需要 加 上 一 个 JOIN 子 句 。 


ET 


1 mysdl> SELECT teams .name，coaches.name，teams .wins 
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FROM 廿 eams ， Coaches WHERE 


teams .name = Coaches .team && coaches .id = 4: 
+---------------- +----------- 二 -一 一 -一 十 

| name | name | aas 恒 串 
+---------------- +----------- 二 -一 一 十 

| ERzemont Tigezcs | JUoe Hayes | 24 1 
+---------------- +----------- + 一 -一 十 
IEEOwEnnEseE OUUESESC) 


2 mysdql> SELECT teams .name，coaches.name，teams.wins FROM teams， 


-> coaches WHERE teams .name = Coaches .team && 

-> coaches .title = "Head Coach'" : 

+---------------- +------------- +- 一 -一 十 
| name | name [下 区 主 m 有 | 
+---------------- +------------- 十 -一 一 -一 再 
| 几 和 二 oO RESEOnatsalenpnugce | 21 1 
IEEmoneOEES IRONONUSES | 24 | 
+---------------- +------------- + 一 -一 十 


2 Fows in set (0.00 sec) 


3 mysdl> SELECT 七 .name，c.name， 七 .wins EROM teams 七 ，coaches c 
-> WHERE 七 .name = C.team && C.title LIKE "Heads" 


+---------------- +------------- +=- 一 -一 -一 十 
| name | name | 国定 = 
+---------------- +------------- +=- 一 -一 -一 十 
EGGERSEQONSESIUOOOOROE | 学 司 呈 | 
EeeEmomieoeS 了 BUG NEOmE 24 | 
+---------------- +------------- 十- 一 一 -一 二 


22cwSIOSECOREUORUOOESECY) 

1. 当 球 队 名 称 等 于 教练 名 字 ， 且 教练 ID 为 4 时 ，SELECT 语句 将 检索 球 队 名 称 、 教 练 姓名 、 
以 及 该 球 队 胜利 的 次 数 。 在 字段 前 面 添加 了 表 名 和 一 个 点 号 ,以 便 标识 字段 和 表 。 连 接 〈 内 
连接 ,inner join ) 意味 着 所 有 不 匹配 的 记录 都 会 予以 抛弃 。 只 有 那些 匹配 于 WHERE 子 句 所 
述 标准 的 行 才 会 显示 到 结果 集中 。 

2. 当 球 队 名 称 等 于 教练 名 字 ， 且 教练 头衔 是 "Head Coach" 时 ，SELECT 语句 将 检索 球 队 名 称 、 
教练 姓名 、 以 及 该 球 队 胜利 的 次 数 。 与 上 一 个 示例 相似 ， 连 接 〈 内 连接 ，inner join ) 意味 着 
只 有 那些 匹配 于 WHERE 子 句 所 述 标准 的 行 才 会 显示 到 结果 集中 。 

3. 当 球 队 名 称 等 于 教练 名 字 ， 且 教练 头衔 以 “Head” 开 头 时 ，SELECT 语句 将 检索 球 队 名 称 、 
教练 姓名 、 以 及 该 球 队 胜利 的 次 数 。 其 中 的 字母 “和 “c 7” 又 称 作 这 两 张 表 teams 与 coaches 
的 别名 〈alias)。 别 名 机 制 能 节省 大 量 的 输入 动作 。 





删除 行 。 DELETE 命令 允许 读者 从 表 中 移 除 指定 的 行 。DELETE 和 SELECT 之 间 惟 一 真正 的 
区 别 在 于 ，DELETE 会 根据 某 些 标准 移 除 记 录 ， 而 SELECT 则 负责 检索 这 些 记 录 。 


ET 


1 mysdl> SELECT name EROM teams: 
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Etzemont Tigers 
necasemses 
Bath Waships 
Bangor Ramas 
+---------------- 十 

4 cows in set (0.00 sec) 


2 mysql> DELETE EROM teams WHERE name = "Bath WarshiPps": 
Query OK，1 row affecteaQ (0.20 sec) 


SET7SGLIEESEEECTETEmeRERONMEEESSmSF 


FEzemont Tigers 
BecRaneanaEsil 
moonsRSiS | 





4 zzows in set (0.00 sec) 


1.SELECT 语句 从 名 叫 teams 的 表 中 检索 出 name 字段 的 所 有 值 。 

2. 当 球 队 名 称 是 “Bath Warships” 时 ，DELETE 语句 便 会 移 除 name 字段 的 所 有 值 。 

3. SELECT 语句 检索 出 name 字段 的 所 有 值 ,说 明了 前 面 所 述 的 DELETE 语句 已 经 删 去 了 Bath 
Warships” 球 队 。 


在 表 中 更 新 数据 。 UPDATE 命令 用 于 对 表 进 行 编辑 ， 即 ， 修 改 或 更 改革 张 表 中 的 数据 。 该 语 
名 通过 SET 子 句 将 业已 存在 的 值 更 改 为 其 他 内 容 ， 如 示例 17.17 所 示 。 


示例 17.17 


mysdcl> SELECT xx EROM teams'， 








+---------------- +=- 一 -一 -+----- 一 -一 十 
name | ESSS 
+------------- 一 一 +- 一 -一 -上 +- 一 一 -一 一 一 一 十 
BEemonierogeSal 24 1 5 
neeRRESDESEE 二 | | 5 
Bath Warships | 习 双 1 号 到 
人 Eee RiImS | 已 宝 | 2 过 纪 | 
+------------- 一 一- +- 一 -一 -+-- 一 -一 一 一 -十 


4 ziows in set (0.00 sec) 





mysql> UPDRATE teams SET wins=wins + 2 WHERE name="Chico Hazrdhats": 
Quercy OK，1L row affecteaQ (0.02 sec) 
RSwseEmaeensaL Cnanosar laNacnamnogs 


2 mysdql> UPDRATE teams SET name="Bath Destzroyers'" 
-> where name="Bath WarshiPps": 
Query OK，1L row affecteaQ (0.13 sec) 
Rows matcheda: 1 Changea: 1 Warnings: 0 


司 mysdl> SELECT * EROM teams: 
+------------------ +- 一 -一 -一 +-------- 十 
| name | wins | losses | 
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中 REemont Tigezs | 24 | 245 

[EeeeRSensEs | 李 汪 | Si 

| Bath DestroyeLrs | 32 SN 

| 本 下 二 SRSImS | | 24 | 

+------------------- 二 -一 -一 +-- 一 -一 -一 十 

4 rows in set (0.00 sec) 

解释 
1. SELECT 语句 从 名 叫 teams 的 表 中 检索 出 所 有 的 行 。 在 对 表 进 行 更 新 之 后 ， 我 们 将 把 这 个 结 
果 集 与 第 3 行进 行 对 比 。 


2. UPDATE 语句 负责 编辑 name 字段 。 它 会 把 球 队 “Bath Warships” 更 名 为 “Bath Destroyers”。 
3. SELECT 语句 从 名 叫 teams 的 表 中 检索 出 name 字段 的 所 有 值 , 由 此 可 见 UPDATE 语句 已 经 
成 功 更 改 了 球 队 “Bath Warships” 的 名 称 。 


更 改 Calter) 表 。ALTER TABLE 命令 允许 用 户 添 加 或 删除 数据 列 ， 从 而 更 改革 个 已 存在 的 表 
结构 。ALTER 语句 拥有 多 种 可 选 的 子 句 ， 璧 如 CHANGE、MODIFY 、RENAME、DROP 等 。 请 不 
要 把 ALTER 与 UPDATE 混为一谈 。 表 的 更 改 (alter) 命令 能 够 在 创建 好 一 张 表 之 后 改变 描述 该 表 
的 结构 。 用 户 可 以 通过 它 来 添加 主键 、 索 引 、 改 变 某 一 列 的 定义 或 者 该 列 在 表 中 的 位 置 ， 等 等 。 下 
掉 的 示例 演示 了 其 中 一 些 更 改 操作 。 

添加 一 列 














AN 


ET 


1 mysdl> ALTER TABLE teams ADD capPtain varchar (100) ， 
Query OK，11 ziows affecteaQ (0.64 sec) 
ReeendqslpDnoleseese WSIO LEE 


2 mysql> select * from teams: 





+=------------------------ +- 一 一 -一 -+--------+-- 一 -一 -一 一 十 
name [IEwasasaREeSSeE IEESR ES 
+=------------------------ +- 一 ----+--------+---- 一 -一 -一 十 
Ercemont 了 Tigezs | 24 | 过 人 避 外 册 风 克 丰 到 | 
Batnh Destzcoyezs | 34 1 已 IENIUUUEE | 
二 尼 @ 人 二 二 ats | 加 届 | 过 | 用 六 大 到 三 | 
Bangor Rams | 2 SEN | 
4 zcows :in set (0.01 sec) 


ALTER 语句 把 一 个 叫 作 captain 的 新 字段 汪 、 加 到 teams 表 中 。 这 个 新 字段 中 的 值 最 多 可 由 100 
全 


删除 一 列 


示例 17.19 
mysdl> ALTER TABLE teams DROP caPtain: 
QueEy OK，11 ziows affecteaQ (0.34 sec) 
RSecoedqsIauplacesaEeS UNSEnSE 


添加 主键 
在 示例 17.20 中 更 改 了 teams 表 ， 并 将 name 字段 设 定 为 一 个 主键 。 也 就 是 说 ， 所 有 新 加 入 的 
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球 队 都 将 拥有 惟一 的 名 称 。 


示例 17.20 


1 mysdq1l> ALTER TABLE t 革 eams MODIEY name VRARCHRAR (100) NOT NULL， 
--> ADD PRIMRARY KEY (name) : 
QueEy OK，10 Fows affecteaQ (0.06 sec) 
ISSUEIESSS UNEDSnRUOESS0 


2 mysql> DESCRIBBE teams 


+-------- +------------------ +-- 一 -一 十 -一 一 -一 +--------- +-- 一 -一 十 
| ERield | IIype [NEEESES IE SOULEE IE ES 
+-------- +------------------ 十 -一 -一 -一 十 -一 一 -一 +--------- +-- 一 -一 十 
| name [IaxenaeUOyh | NO | BRI | NUDD | | 
| wins EAIONEUTISEISES IOES | | NUEIEDE | | 
[IECSSsSESaIRDEAIONRUNEDSOEO IES | | NULEL | | 
+-------- +------------------ + 一 -一 二 -一 一 一 +--------- +-- 一 -一 十 


3 Fows jin set (0.05 sec) 


删除 表 。 表 的 删除 drop ) 操作 相对 较为 简单 。 只 需 使 用 drop 命令 和 表 名 即 可 。 


示例 17.21 


mysdlLl> DROP TABILE teams : 
Query OK，5 rows affectead (0.11 sec) 


删除 数据 库 。 如 需 删 除 某 个 数据 库 ， 可 使 用 drop database 命令 。 


示例 17.22 


mysdql> DROP DRATRBRASE samPple _ db: 
Cuery OK，1 row affecteaQ (0.45 sec) 


17.4 什么 是 Perl DBI 


DBI 是 一 层 位 于 应 用 程序 与 一 到 多 个 数据 库 驱 动 模块 之 间 的 “胶水 ”。 
Tim Bunce，DBI 的 作者 
DBI 的 全 称 是 数据 库 独 立 接口 (Database Independent Interface)。DBI 是 一 个 面向 对 象 的 模 
块 ， 允 许 用 户 的 Perl 程序 使 用 相同 的 方法 调用 、 变 量 和 规范 来 访问 许多 不 同类 型 的 数据 库 。 它 会 
为 指定 的 数据 库 系 统 定位 数据 库 驱 动 模块 (DBD ), 并 能 动态 地 加 载 合 适 的 DBD 模块 。 这 些 数 据 
库 驱 动 含 有 访问 指定 数据 库 时 所 必需 的 库 。 例 如 ， 为 了 连接 一 个 MySQL 数据 库 ， 用 户 必须 安装 
DBD-MySQL 驱动 而 为 了 访问 一 个 Oracle 数据 库 ， 则 需要 DBD-Oracle 驱动 。DBI 在 Perl 脚本 
与 数据 库 驱 动 模块 之 间 扮 演 着 接口 (interface) 的 角色 ; 也 就 是 说 ， 它 会 将 Perl 的 输出 内 容 转 译 
为 某 种 特定 驱动 能 够 理解 的 代码 ， 而 不 管 该 驱动 是 Oracle，Sybase 还 是 MySQL， 等 等 。 用 户 只 
需 建立 SQL 查询 字符 串 ， 并 通过 一 个 DBI 方法 将 它 发 送 到 合适 的 数据 库 驱 动 ， 然 后 便 能 得 到 返 
回 结 果 。 不 论 使 用 的 是 什么 数据 库 ， 用 户 都 能 在 Perl 程序 中 以 相同 的 方式 管理 它们 。 如 图 17-19 
所 示 。 
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一 -一 | DBD 


datlobose interface' 





贡 


17-19 DBI 与 驱动 





17.4.1 安装 DBI 











通过 PPM 安装 DBI-MySQL。 如 果 用 户 正在 使 用 来 自 ActiveState 的 PPM (Perl 包 管 到 





器 ) 的 





话 , 安装 DBI 就 是 一 件 非 常 容易 的 事情 。PPM 是 一 种 包 管理 实用 程序 ， 它 能 简化 Perl 模块 的 搜索 、 








安装 、 更 新 和 移 除 工作 。 当 前 默认 的 PPM 版 本 都 提供 了 图 形 化 用 户 界面 ， 不 过 读者 也 能 使 
17.23 所 示 的 命令 行 界 面 。 
PPM 快速 入 门 

















用 示例 


下 面 的 示例 摘自 PPM 初学 者 指南 ， 它 们 能 帮助 用 户 学 习 如 何在 命令 行 中 通过 PPM 按部就班 地 














安装 、 移 除 来 自 CPAN 的 模块 。 





(At the _ command 1Line) 

PPm helLP quickstaLzt 

qumekseamee= osonnnecsounae EM 

Beseraaenecim 
RERNMUERSSESmnEEE 汪 REKaOEMsnaoE EU ESOEEISNSGIIS 
SofttwWace "packages". A package 1s a moaular extensicn fo a 
ESmousoeecreEa 有 SS 人 ESDEcSeEam ES 可 SS 全 ES 证 DELEOETIESE 
PEM can Use three 七 YXPes of epositories : 


aneceeony cn 本 ED 三 RM 和 aq 帮 dFEEESmEiEERE 
2) A Website 
3) A emote Repositocy SerVez (Such as ASPEN) 


Common Commanas : 
To View PPEM help: 
Ts 国 所 
helP <commanQ> 


TO View the name of the cuUCzEent zepository: 
zepositozy 


To search the current repbposlitory : 
Search <keyworaQs> 


ODS ES ES 全 起 攻 SWIEE 
ES aaoe 六 ame 


Most commanqds can be truncated; as long as the commana 1 二 S 
namonogucsAEREMNUURCEEeccognnzeESRROCEEZamecle EECSDEOEY QQ 


当 Perl 遇见 MySQL: 完 关 的 连接 


469 





foo' can be entereadQ as "iep aad fcoo' . 


PEM featuzces User Pofiles，which stoxce 1nforcmnatliocon about 
imstalleaQ packages。 Prcoftiles are storeaQ as Pazt of Youz ASEN 
Seceune EuE XSD 本 SEEmaamesanpseEoE RS ES 
QiniffersnailenoguaogeSsA or cconhouzne cnmenacnanenecng yourcEa7crE 
EackagcE Enaanenm 和 ec En EREEEULUISEULCONRECEESNSCEUET naEaesY 
accessing Your ASEN przofile. 


Reornose 硬 TomaEenaE7oe TESTEehe 起 汪 包 ns 和 已 EM 大 训 于 局 站 起 二 


利用 PPM 的 安装 步 驼 。 这 里 列 出 了 安装 所 需 模 块 的 简单 步骤 。 

1. 请 确认 已 经 连接 上 了 Internet。 

2. 在 shell 命令 行 提 示 符 下 (MS-DOS 或 UNIX) 键入 ;ppm。 

3. 这 时 会 显示 一 个 PPM 提示 符 : ppm>。 

4. 如 需 查 看 选项 ， 可 在 PPM 提示 符 下 输入 : help 。 

5. 如 需 查 看 可 用 模块 ， 首 先 可 以 搜索 一 个 需要 的 模块 ， 然 后 使 用 其 install 命令 。 























示例 17.24 


1 $ PPm 

PEM = PEFogrammezr's Package Manager Version 3.1. 
GepyTEomtelc) 200DUActav7esStateneorccaALUUREOIOIES ReseTVed 
ActiveState :1s a devision of Sophos . 


BEmesrcanoggnEeEaci sse USanogEeEnmeR RESRSSEUOE SEEsGmE 
LieSS 


业 yEenelc Ecoetsactede 


Seknogeaeogs SENCEVEREETTS 本 8 有 490 二 
PPm> 


2 PPm> querYy * 
GuUsrynosEaoeeNcETEREREELESRRRVR SITES 








1 。 ActivePerlL=-DocTools 0.04] Bezcl extension fo 
Documentation IOC Genezation 
2。 ActiveState=-RelocateITizee EURIIEERSIESCSEE 有 有 EECSIES 
3。RActivVveState-=-RX 0.60] Regulac ExPression DebuggeE 
4。. Archive=Taz 1.01] Manipulates TAR acchives 
SS SEE 全 ES 同村 有 2 必 DTEeTEaCSR EC 本 2 是 comoressarcn 
ES ES 
后 本 DBE 臣 忆 三 本 ia OSI 
Structures 
7. DBD-mysdgl [2.9003] MySoeL driver for the Per15 
Database Interzface (DBI) 
8. DBI [1.47] Database independent interface for Per1l 
9 Diges 蕊 同 有 本 MeOES SS 二 S 
message Qigests 
URDUgiSS 三 则 MRAEGE 国 司 0 有 KEVeosNaENamgEorMSSSSogS 
AuthenticatioDn 
有 全 区 让 三 这 到 吕 [2.03] Perl interface to the MD2 
和 Algorithm 


12. Digest-MD4 [1.1] Perl interface to the MD4 




















490 条 1T7 
有 ALgorithm 
ESEEENMRS [L220UEerTLanEercftace cote MDSEADocrEnnm 
4 是 WeS ES 必 肌 06 辐 Eee 全 ee 有 one 有 3 及 = 直 
AlLgorithm 
DREile=CecunteERle 上 国 帮 00 辣 | 大 SEE SEE 二 愉 交 
6。 了 Font=-AEM [1.18] Interzftace to Adaobe Ront 
Mettzics 玫 1les 
风电 本 Si 全 下 [ES 
8。 HIML=Tagsett 医 浊 USIIDSESESeSUSSEUUR 和 DSS 
也 TMP 
9。 HTIMIL-Ttee | 恬 疯 村: 司 | 大 Ra 是 帮 属 =ioie 则 Eee 央 oEeSE SEE 二 性 二 ee 
也 TMP 
芝 轴 多 王 六 下 二 [加 帮 OO 梧 IO ES EYEOUEESRSCEES 
BGmieesisT 本 大 二 
2 oj 攻 人 权 0.21] A collectiocn of extensions 
mas 三 EeeovesEecmR 
22. ipbpwww=-Pez1l SEE SSESEeESS 
Per 
2 NE 证 羡 [SENWRehIE 记 二 0.79] Simple Platform independent 
maI Le 
24. MD5 2.02] Berzl intezcface to the MD5 
AlLgorithm (obsolete) 
25. MIME-Base64 2 anoaoscoaenrogo 直 
base64 Strings 
GREEN [2.1.6] Perl Package Manager: 1Locatev 
instal1l，upgraqde softw~ 
21。 BEEM-Agent-Pezc1 攻 辐 0 BEMETS SEE 玫 Be 
Per1 
六 [3.1] Perl Package Manadger: locatey 
instal1l，upgrade softtw~ 
29. SOAP-Lite IE 大 ionsEDsw REeneiaanongs Oiloahsreie 
eesssmEEEeEOSeR 人 (人 SORB) eaR 
已 DSS 七 扣 荆 所 本 加 罗 中 二 | 有 证 辣 世 全 王 Se 人 SF BESTlGaea 
总 七 三 尼 攻 WE 和 3 
站 汪汪 长 [800.024] A Graphical User Interface 
JS E 
区 忆 国 WE | 辣 本 可 WAS 和 RESORREeeTOSREOETS 
(absolute angdq zelative) 
33。 Win32=-AuthenticateUseE 三 EUSSESUEENERESEICT ES 
Qomains 
34。 XML=-ParseE [2.34] 和 Bezl moqule for pacsing XML 
Qocuments 
局 VISIO E [2.09] Easy API to read/wEitLte XML 
(ssP config 站 les) 
PPm> 


3 ppm> describe DBI 


We 


Name: DBI 
SORT 人 


AUuthor: Tim Bunce (abi=usersapez1L.org) 


Apbs 
Se 
AVvaiI1la 


EL 


ttract: Database indepenqdqent interftace for Perl 
aonoAewSSEaESEREEM2EREEOSIEOEY 


1 间作 二 芝 


中 要 天 人 辣 克 二 6 放下 直人 有 OU 二 5 有 8 
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4 PPpm> describe DBD-mysdl 


Name: DBD-mysdgl 
MsneSRUGE ES 厨 OU 
nor acKESaUoESUEO DSS SU 
LE 下 二 SC 本 
Abstract: A MySoL Qzi7ez for the Pezc1l15 Database Intezftace (DBI) 
LIocation: ActiVveState PEM2 Reposlitozy 
ErFerzegduasatese 
ET 
VagaagleeBaEECEmESE 
十 攻 下 


开 忆 本 SEE 计时 世 已 林 ss 全 下 全 天 全 全 本 在 下 证 Re ss 内 本 站 加 帮 站 忆 四 三 和 YE 村 机 天下 从 
ESFEMY7YSOIVLEEcTmECEANARESLEarCLEEM Lane scUEe ne nstEaCcnnana as 


全 ES 

与 DEm>ceuezyiix 

6 SEE 

忆 PPm> instal1l DBD-mysdgl 


PPM GUI。 在 刚刚 显示 Perl 包 管 理 器 时 ， 它 会 从 数据 库 中 同步 其 ActiveState 知识 库 
Crepository)。 用 户 可 以 从 中 看 到 所 有 已 经 安装 的 包 以 及 知识 库 中 全 部 的 包 , 并 可 使 用 搜索 框 来 寻找 
所 要 的 模块 。 如 果 找 到 的 话 ， 则 高 亮 显示 该 模块 ， 如 图 17-20 所 示 。 

如 要 安装 标记 的 包 ， 用 户 可 以 点 击 位 于 屏幕 上 方 右 侧 部 分 的 绿色 箭头 。 

在 器 隐 | 


Fie EdG View Action Hep 


医大 车 区 |[ 宫 @w | as 总 
























| Package Name /| Area | Inrstaled | Available | Abstract < 
明 D6-Objects 0.03 Per| extersion to ca5e Creation of daktabase-bound 0 
iD56_File 1.815 Perl5 access to Berkeley DB version 1.x 
由 DB_File-D8_Daka,，， 0.031 DB_Fie bo MutiField Table with Index 
站 D6_File-Lock 0.05 Locking with Pock wrapper For D6_Fie 
0.53 DBM with associakive arrays, file lockng and XMLrec… 让 | 
2.96 站 DBI diver for Microsoft ADO (Active Data Objects) 
0.08 DBI access to XML CSY amd other formats 
0.80 D6I driver abstraction for Rendering Charts and Gra.,. 
0.22 DBI driver for CSy fles 
0.06 站 <lass for DBI drivers that sct on Excel File， 
0.35 6sse class for wrging D6I drivers 
0.09 Per| extension for D8L providing an SQLiPeri DBI ink.. 
0.21 Logging for the D6I mterface 
1.00 Mimer 5QL Driver for D6I 
1.34 Mock database diver for testing 


六 mukiplexing diver for the D81， 


下 MyY5QL driver For the Perl5 Dakabase Interface (D6I) 





全 os 到 


Synchronizing Database .…. 
Downlosding Active5tate Packsge ReposXory packist .,. done 
Updaking ActiveSkate Package Repository daktabsse ,done 
Synchronizing Database done 
D6D-mysqi marked for instai 





6715 packages，6714 lsted | 47 instaled，1 toinstal 0 to remove | Instal Area: site | 用 


图 17-20 ”标记 待 安装 的 包 
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在 Linux 中 使 用 PPM。 如 果 正 在 使 用 Linux 的 话 ,用 户 可 以 以 rpm(CRedhat 包 管 理 器 ) 文 件 或 
tar 文件 的 形式 从 ActiveState 中 下 载 Perl 5.8.8。 有 关 下 载 ActivePerl 的 指南 文档 可 从 http://aspn. 
activestate.com/ASPN/docs/ActivePerl/S.8/install.html 处 找到 。 然 后 ， 在 Perl 目录 中 运行 shell 
脚本 install.sh。 执 行 完 安装 脚本 后 ， 请 设置 PATH, 使 它 指 向 Perl 目录 。 然 后 便 可 像 在 Windows 
中 那样 使 用 PPM 程序 安装 来 自 CPAN 的 模块 了 。 上 述 过 程 避免 了 使 用 CPAN 时 可 能 磁 到 的 诸多 
问题 和 麻烦 。 

为 了 安装 所 需 模 块 ， 读 者 必须 连接 到 Internet 上 。 如 需 查 看 已 经 安装 的 模块 ， 请 键入 : 











Nrpm -1 Active-State..... LzPm 
Sh instal1.sh 


使 用 CPAN 安装 DBI。 用 于 维护 本 地 Perl 发 布 包 的 主要 工具 是 CPAN 模块 ， 该 模块 能 够 访问 
Perl 综合 文献 网 络 (Comprehensive Perl Archive Network)， 又 称 CPAN。 请 在 命令 行 提示 符 下 键入 : 





$S Per1l -MCPRAN -e shel1 


在 CPAN 提示 符 下 键入 “help”， 便 可 看 到 一 组 选项 。 如 需 获 得 最 新 版 本 的 CRPAN,， 请 在 CPAN 
提示 符 后 面 刍 和: 


cpan > instal1l Bundle::CPAN 
在 回答 完 连 珠 炮 似 的 诸多 问题 后 ， 如 果 看 到 下 面 这 段 提示 信息 ， 请 读者 不 必 尺 证 。 


,9107D. 

1710ke -- NOT OK 

尺 U1111108 12CKe test 

Ca1ttest Witpnoxt sccess1arl IaKe 
尺 U111108 1CKe ista1 








| 




















1IGKe Had etluraed Dad stattS， 1118ta11 See11y 1711DO0SSiD1e 


由 此 可 以 看 到 ， 为 什么 使 用 PPM 会 更 容易 一 些 。 
在 Redhat 中 ， 请 尝试 如 下 步骤 : 

1. 安装 最 新 版 本 的 MySQL 服务 器 /客户 端 RPM 包 (RedHat 自 带 的 MySQL 往往 不 能 很 好 地 
工作 )。MySQL-client-standard-5.0.24-0.rhel3.1386.rpm 。 

2. 安装 Perl-DBI 和 MySQL-devel 模块 (RedHat Enterprise Linux ES 版 本 3 (Taroon) 中 已 经 
带 有 这 两 个 RPM 包 。) 

Perl-DBI-1.32-S$.1386.rpm 

mysql-devel-3.23.58-1.1386.rpm 

3. 执行 下 列 命令 ， 从 CPAN 中 获取 DBD-MySQL: 


Perl1 -MCPAN -e ' instal1l Bundle::DBD::mysdql ! 


示例 17.25 


ET 








国有 辣 辣 REGEESLGIT 

commandq argument esceejaucn 

辣 避 本 有 站 WOGRID 大 SR 珊 个 司 光 民风 BeutEESD 放 有关 S 人世 DOLSS 负 SEDOEEenS 了 7 
moamlies 
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工 WORDCD RERGRE 双 BY about anything of above 
宇 NONE zeinstal1l zecommenaations 
下 澡 AUTHOR aceehesnaEsEEUDEICEEREECEeEY 


WE 人 SS 七 寺 全 工科 三 巧 十 ] 有 


9et Qown1load 

make makeianoclaes aoe ti 

七 es 七 MODULES ， make test (implies make) 

SEE SSEEUNDBEES make install (implies test) 

Clean 丽 ake Clean 

开本 人 15 open Subshell in these qists' qirectories 
ESGQmes GaeplayEnesseaasies 并 下 MEEEHiies 
Other 

用 Ginsela ELEmSsmn IEeElsccae SalaaoeEe 
command 

SEEerlkeil set ana Gdquezcy options 厅 oaEREneeeoasn 
Shel1 

zeload cpan Joad CEPAN.Pm again zeloagd inaqex Loadq newez 
inaices 

autcobunale Snapshett torce cmna eeiaie 有 本 E 证人 
GeEEeial 

司 5E0 


17.4.2 DBI 类 方法 





DBI 模块 是 面向 对 象 的 ， 它 带 有 很 多 方法 和 变量 。 有 关 该 模块 的 文档 将 在 后 面 列 出 。 数 据 库 对 
象 又 称 作 句 柄 (handle)。 数 据 库 句 柄 〈database handle) 能 连接 到 指定 的 数据 库 上 ， 而 语句 句柄 
(Cstatement handle) 则 用 于 向 数据 库 发 送 SQL 语句 。 请 注意 ， 像 $dbi、$sth、$rc 这 样 的 名 称 可 用 
于 描述 语句 句柄 、 返 回 代 码 、 数 据 行 ， 等 等 。( 这 些 名 称 是 文档 中 的 规范 ， 例 如 ，$dbh 表示 一 个 数 
据 库 句柄 ， 而 $sth 则 表示 一 个 语句 句柄 。) 











$ Perldoc DBI 





Notation andq Conventions 
The follLlowing conventions are used in this daocument : 


S$dbh 
总 本 本 抽 
S$Sdrh 
Sn 
息 芭 芭 
多 工 
Q@ary 
of qdqat 


STOWS 
$f 

Unae 
\ 区 aa 七 七 工 


Note 七 hat 


Database handle object 

Statement handle object 

Driver handle object (zarely seen or used in applications) 
Any of the handle types above ($dqbh，S$sth，or S$qdrnh) 
General Return Code (boolean: true=ok，false=error) 
General Return Value (typicallLly an integer) 

List of Values returned from the dqatabase， typical1y a zzOoW 


Number of rows Processedq (if available，else -1 

和 及 flehanadle 

NULIL Values are representedq by unadefinedq Values in Perl 
Reference to a hash of attribute Values passed to methods 


Per1lL will automatically daestroy qdqatabase andq statement 


hanadqle objects if all references to them are qdqeleted. 


NAME 
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DBI - Database independent interface for Per1l 
SYNOPSIS 
Use DBI7” 
Gdriver_names = DBI->avVailable_dqriVers' 
data sources = DBI->qata_ sources ($driver _ name \attzr) 7 
$dbh = DBI->connect ($data source $username， $Sauthy AN\ 和 attz) ， 
SrV = $dbh->dqo($statement) ， 
SrV = $dqbh->dqo(S$statement， \gattr) 
SrV = $dbh->dqo($statement， AN\sattr，，ebind values) ; 
$ary ref = $dqbh->selectall_arrayref($statement) ， 
$Shash ref = $dpbh->selectal1 hashreft($statementy S$Skey 于 el1d) ， 
$ary ref = $dbh->selectcol_ arrayref($Sstatement) ; 
$ary_ref = $dbh->selectcol_arrayref($statement， 和 attr) ， 
Qrow_ ary = $dqbh->selectrow array(S$Sstatement) :， 
$ary_ ref = $dqbh->selectrow arrayref(S$statement) ， 
Shash_ref = $dqbh->selectrow_hashref($statement) ， 
S$Ssth = $dqbh->prepare (S$statement) ; 


S$sth $dbh->prxrepare_cached($statement) ， 

S$Src = $sth->bind Param(S$SP num S$bindq value) 

Src = $sth->bindqd param(S$P_ num，S$bindq value，S$pbina type) ; 
Src = $sth->bindq param(S$SP num，， Sbind Value AN\gattz) ， 











SrV = $sth->execute， 

SrV = $sth->execute(ebind Values) ; 

SrV = $sth->execute array(\gsattr，， ...): 

Src = $sth->bind col ($Scol_ num， AN\S$col _ Variable) ; 

Src = $sth->bindq _ columns (list of refs to vars_ to _bind) ; 
QQrow_ ary = $sth->fetchrow_ array， 

$ary_ref = $Ssth->fetchrow_ arrayref: 

Shash_ ref = $sth->fetchrow_ hashref: 

$ary_ref = $Ssth->fetchal1_arrayref， 

S$ary _ ref = $sth->fetchal1 _ arrayref( $slice，S$Smax _ rows ) ; 
S$Shash ref = $sth=->fetchal1l hashref( 5$key_ field )， 

SrV = $SSsth->rowS:， 

Src = $dqbh->begin_ worKk'; 

Src = $dqbh->commit7 

SrCc = $dbh->rolIbacKk; 


S$dquoted string = $dqbh->quote ($string) ; 


SrCc = $Sh=->ecr; 
SSstr = $Sh->errstr， 
SrV = $h->statey7 
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Src = $dqbh->dqisconnect， 


*The Synopsis above only Lists the major methoadqs and ParameterS . 


17.4.3 如何 使 用 DBI 


在 通过 use DBI 语句 将 DBI 模块 加 载 到 程序 中 之 后 ， 还 需 执行 如 下 五 个 步骤 : 连接 到 数据 库 、 
准备 一 条 查询 、 执 行 该 查询 、 获 取 结 果 、 以 及 断 开 连接 。 

为 连接 到 MySQL 数据 库 , 请 使 用 connect() 方法 。 该 方法 会 指定 数据 库 类 型 (MySQL Oracle、 
Sybase、CSYV 文件 、Pnformix 等 )、 数 据 库 名 、 主 机 名 、 用 户 及 甚 口令、 以 及 一 些 附 加 的 用 于 指定 
错误 处 理 与 事务 处 理 方式 的 可 选 参数 等 〈 手 册页 中 用 到 了 $dbh, 但 实际 上 用 户 可 通过 任意 的 标量 名 
来 调用 )。 

在 连接 到 MySQL 数据 库 之 后 ,用 户 就 持 有 了 一 个 数据 库 句柄 〈 引 用 了 相应 的 数据 库 对 象 )。 这 
时 ,用 户 便 可 通过 准备 并 执行 一 条 SQL 语句 的 方式 来 发 送 查 询 。 为 此 可 以 调用 prepare0 与 execute() 
方法 , 亦 可 使 用 do(0) 方法 。prepare() 与 execute() 方法 适用 于 SELECT 语句 ,而 do(0) 方法 则 一 般 用 
于 不 返回 任何 结果 集 的 SQL 语句 ， 璧 如 INSERT、UPDATE 或 DELETE 语句 。 这 些 方法 返回 的 结 
果 取 决 于 各 自 查 询 的 返回 值 。 例 如 ,成 功 执行 的 SELECT 查询 语句 将 会 返回 一 个 结果 集 (在 DBI 手 
册页 中 表示 为 $sth); 通过 do() 方法 成 功 执行 的 INSERT/UPDATE/DELETE 查询 语句 会 返回 影响 到 
的 行 数 ;而 执行 失败 的 查询 则 会 返回 一 条 错误 或 undef。 上 述 大 部 分 数据 都 是 以 字符 串 的 形式 返回 
给 Perl 的， 而 null 值 则 会 返回 为 undef。 

当 把 查询 发 送 至 数据 库 并 返回 结果 集 〈 指 向 结果 对 象 的 引用 ) 之 后 ， 便 可 借助 一 些 特 殊 方 法 
来 解析 这 些 数 据 ， 璧 如 fetchrow_array() 和 fetchrow_hashrefO) 。 这 些 方法 会 分 别 将 每 一 条 记录 当 作 
Perl 数组 或 Perl 散 列 来 处 理 。 

最 后 ， 当 完成 上 述 操作 后 ， 可 使 用 finish() 方法 释放 由 prepare0) 方法 返回 的 结果 对 象 ， 然 后 通 
过 disconnect() 方法 断 开 数据 库 并 终止 此 次 会 话 。 

现在 我 们 将 详细 介绍 上 述 五 个 步 野 。 


















































五 
































17.4.4 连接 和 断 开 数据 库 


当 载 入 完成 后 ，DBI 模块 就 负责 为 给 定 的 数据 库 加 载 合适 的 驱动 。 然 后 用 户 便 可 使 用 该 模块 提 
供 的 方法 操纵 数据 库 了 ， 所 有 这 些 方 法 都 可 在 perldoc DBI 命令 的 输出 内 容 中 看 到 。 我 们 将 用 到 的 
第 一 个 方法 是 connect( 方法 ， 它 负责 获取 数据 库 连 接 ， 用 到 的 最 后 一 个 方法 则 是 disconnectD， 它 
负责 断 开 连 接 。 

检查 可 用 的 DBI 数据 库 驱 动 


示例 17.26 


所- 
2 my Qdziverzs = DBI->available drivezs: 
加 有 





GuesueeEorwnnaews 
DBM， ExampleP Fe Gofer PEIOx7 Serite Socnge， mysdl)] 
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connect() 方法 。 connect() 方法 负责 向 指定 数据 库 发 起 一 个 连接 ,并 返回 一 个 称 作 数据 库 句 柄 
(Cdatabase handle) 的 对 象 。 通 过 使 用 多 个 connect 语句 ， 用 户 可 以 在 一 个 程序 中 对 同一 数据 库 发 起 
多 个 连接 ， 甚 至 还 可 同时 连接 到 不 同 的 数据 库 上 。connect() 方法 允许 接受 如 下 几 个 参数 : 


"dbi:S$Sdqriver:S$database， S$port，S$username，， 5$passwordn 


1. 第 一 个 参数 是 DSN 〈 数 据 源 名 称 ) 字符 串 , 它 是 数据 库 的 逻辑 名 称 。 任 何 定义 数据 源 的 属性 
都 能 赋值 给 DSN， 并 由 驱动 负责 检索 。DSN 含有 DBI 模块 名 称 ， 其 格式 是 : 首先 是 DBI， 后 面 跟 
有 一 个 冒号 ， 其 后 是 数据 库 驱 动 (MySQL、Sybase、Oracle)， 接 着 是 另 一 个 冒号 ， 以 及 待 连 接 数 
据 库 的 实际 名 称 和 /或 主机 名 〈 默 认 是 “localhost”)、 端 口 等 ， 最 后 以 一 个 分 号 结尾 。 

2. 下 一 个 连接 参数 是 用 户 名 。 

3. 然后 是 该 用 户 的 口令 《除非 强制 要 求 ， 否 则 它 是 可 选 的 )。 

4. 最 后 是 一 个 指向 散 列 的 引用 《该 集合 含有 用 于 错误 处 理 、 自 动 提交 等 工作 的 可 选 属性 )。 


示例 17.27 


1 $dqbh= 
局 BECeonnec 吉 全 基 民 世 Ms 二 二 用 有 让 站 疝 本 全 网 过 训 二 芝 下 而 半 各 全 全 和 关 放 二 EE 页 SEEe 
REEOESSECEOTEIESDTA EcomECEEE 




















2 SOQonEDBTE=ConnecEBTmISSILE ESmoeEooeocoe oggisyIUs 
aeaCamnteonmnseci 


3 S$dqbh=DBI->Connect('DBI:mysdql:dQatabase=sample apb7usez=zoct: 
Password=quigley17') 


4 $dqsn 
S$Sdpbh 


qdqbi:mysql:northwindq; S$username="root"; $password="letmein"n， 
DBI->connect ($dsn，S$user，S$Spasswordy 
| 国 基 人 省 帮 二 人 才 es 人 汪 0 有 国生 让 二 吉 尺 e 


瑟 攻 go 用 旺 三 基站 本 本 交 有 多 帮 订 全 E 本 作 人 辐 本本 介 下 二 蕊 下 全 丽人 全 二 二 古本 可 放下 和 下 

Sn 有 二 靖 矶 已 二 二 冤 帮 用 二 疏 和 全国 证 是 人 和 二 起 本 全 让 IC 下 三 攻 2 芷 作用 本 二 S 本 可 5 本 十 罗 三 天 其 玫 相生 
Suser，Spasswad) ; 

(OFacle) 


6 下 5idloh 大 三 机 月 已 iE 之 Eeese ioECSNSRMSSOUDOSD ES 局 定 全 mw 人 于 
(MS SQL SerVeL) 


解释 


IE 


. connect 方 法 将 返回 一 个 数据 库 句 柄 。 本 行 展示 了 连接 数据 库 的 调用 格式 。 用 户 至 少 必 须 提 
供 DSN 字符 串 ， 它 定义 了 模块 的 名 称 ,， 包括 dbi、 数 据 库 驱 动 名 、 以 及 表示 为 <database> 的 
数据 库 名 。 用 户 名 、 主 机 名 、 口 令 和 其 他 属性 都 是 可 选 的 。 

2. connect 方法 的 参数 必须 位 于 同一 行内 ， 并 且 参 数 周 围 不 能 出 现 空格 。 

3. DBI->errstr 返回 连接 失败 的 原因 一 一 例如 , “Bad Password ”。 

4. 本 次 连接 将 通过 用 户 名 “root” 和 口令 “letmein” 连 接 到 一 个 名 叫 “northwind” 的 MySQL 
数据 库 上 。 

. 本 次 连接 将 通过 用 户 名 “scott” 和 口令 “tiger” 连 接 到 一 个 名 叫 “payroll” 的 Oracle 数据 库 上 。 

.名 叫 “MSS_pubs” 的 数据 源 用 到 了 用 户 名 “sa” 与 口令 “12mw_ 1”， 还 有 ODBC 驱动 。 





(LA 








CN 
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17.4.5 _ disconnect() 方法 


读者 或 许 还 记得 第 10 章 中 介绍 的 内 容 ， 当 我 们 通过 用 户 自 定义 的 文件 句柄 打开 某 个 文件 之 后 ， 
必须 在 结束 时 通过 内 建 的 close 国 数 来 关闭 它 ， 如 果 没 有 关闭 它 的 话 ， 最 后 则 会 在 Perl 脚本 退出 时 
由 操作 系统 负责 关闭 。 关 闭 数据 库 也 与 之 类 似 。 当 用 户 不 再 使 用 数据 库 之 后 ,最 好 能 通过 disconnect 
方法 来 关闭 这 个 数据 库 连 接 。 当 然 ， 由 于 数据 库 句柄 只 是 一 个 对 象 ， 所 以 当 程 序 退 出 或 对 象 离开 作 
用 域 时 ，Perl 将 会 自动 移 除 指向 该 对 象 的 所 有 引用 。 


S$Sdbh->qdisconnect () ; 


17.4.6 准备 语句 句柄 并 获取 结果 


在 查询 数据 库 时 ，SQL 的 select 语句 可 能 是 最 为 常用 的 语句 。 在 为 数据 库 准 备 select 语句 时 ， 
会 将 查询 作为 一 个 字符 串 参 数 发 送 给 DBI 的 prepare 方法 。 该 查询 语句 和 在 MySQL 控制 台中 输入 
的 查询 几乎 一 模 一 样 ， 只 不 过 前 者 没有 分 号 。 数 据 库 句柄 会 调用 prepare 方法 。 数 据 库 负责 决定 查 
询 的 处 理 方法 《创建 “ 计 划 )，DBI 则 负责 返回 一 个 语句 句柄 ， 其 中 售 有 有 关 如 何 执行 该 查询 的 细 
节 信息 。 语 名 句柄 〈 表 示 为 $sth) 会 把 将 在 数据 库 中 执行 的 独立 的 SQL 语句 封装 到 一 起 ， 并 调用 
execute 方法 。 

execnute 方法 会 让 数据 库 执行 SQL 语句 〈 执 行 轻 有 的 “计划 ”， 并 将 结果 集 返 回 给 程序 。 如 果 
发 生 错误 的 话 , 便 会 返回 一 个 undef。 不 论 影 响 到 多 少 行内 容 , 一 次 成 功 的 执行 总 会 返回 真 〈true )， 
甚至 在 只 影响 零 行内 容 时 也 是 如 此 。 一 旦 执行 完毕 , 便 会 丢弃 这 个 “计划 ”( 详 见 prepare_cache 方 
法 )。 创 建 并 执行 的 语句 句柄 数量 基本 上 是 不 受 限制 的 。 

即使 在 执行 完 这 些 计 划 后 ， 用 户 也 无 法 直接 看 到 结果 集 ， 除 非 使 用 其 他 一 些 DBI 方法 检索 它 ， 
譬如 dump_results(O)、fetchrow_array() 或 fetch0) 等 。 

选择 、 执 行 并 转录 (dump) 结果 。 DBI 的 dump_results 方法 能 从 语句 句柄 对 象 中 获取 所 有 的 
行 ， 并 在 一 个 简单 的 语句 中 打印 这 些 结果 。 

连接 、 准 备 、 执 行 并 转 孙 (dump ) 结果 


示例 17.28 


(人 ESTB) 
Use DBI; 
1 S$ab= 
四 ESmSSIEEDEUETYSCUEEISYOIE 本 doseE oaSENOEdEGUEGOUIEY NE 的 有 



















































































2  $sth=$db->PrepPare("SELECT x EROM coaches") 
FOOTEROCaDEDEEP3eE SEESEEment 让 局 下 三 之 后 玫 S 攻 下 
3  S$sth->execute() : 
NONECSTEETEEOERIESSENSS ENIENT WE 
4 $sth->dumP_results() : # DispIay resulIts of the execute 


与 0 
6 四 国生 过 QIESE 到 


Outey) 
Contents of "coaches" table 
宙 人 相 六 且 作用 区 人 和 和 人 人 遇 5 二 六 让 So 于 全 二 间 证 让 O 二 人 人 人 作 及 下 过 一 0 
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RMattEscne CRHSaDZOaLEST OOEEenSLVSTLCSacCcRTY 2004=10=QO5 
EC 
ERUJICSEHUSXSSIOAREEEmCNRISOSEEETLDSAETEIREEEESSCDO 和 必 三 由 6 三 下 6 
YEESEOSERJOSSUAREESOCEERSIESIOEEEmSTVECSSCRT OU 三 三 WE 
OUEREEES OORCnneEOEISNOEERSOUOSE 全 所 本 记忆 人 6 三 仙 志 二 罗 2 
6 OowS 


1. 向 名 为 sample_db 的 MySQL 数据 库 发 起 连接 , 并 返回 一 个 名 叫 $Sdbh 的 数据 库 句 柄 。 它 是 
一 个 表示 该 连接 的 对 象 。 现 在 就 可 以 访问 数据 库 了 。 

2. prepare 方法 用 于 准备 SQL 查询 。 它 会 返回 一 个 语句 句柄 ， 即 一 个 负责 封装 并 执行 查询 的 对 
象 。 (请 注意 ， 这 里 的 SQL 语句 并 不 以 分 号 结尾 。) 

3. execnute 方法 使 得 查询 真正 得 以 执行 。 这 时 便 可 检索 查询 的 结果 。 

4. 语句 句柄 调用 dump_results 方法 ， 并 打印 查询 的 结果 。 


选择 、 执 行 并 将 一 行 获取 为 数组 。 当 调用 fetchrow_array(0) 方法 时 ,数据 库 将 会 把 结果 的 第 一 
行 返 回 为 一 个 数组 ， 其 中 每 个 字段 都 是 数组 中 的 一 个 元 素 。 每 次 成 功 调用 fetchrow_array0) 都 会 把 
当前 位 置 移动 到 结果 的 下 一 行 上 ， 直 到 没有 更 多 的 结果 可 供 获取 ， 这 时 才 会 生成 一 个 undef 值 。 如 
示例 17.29 所 示 ， 可 使 用 一 个 while 或 for 循环 来 获取 所 有 的 行 。( 值 得 注意 的 一 点 是 ， 当 获取 各 个 
字段 时 ， 其 排列 顺序 与 SQL 查询 中 列 出 的 顺序 是 相同 的 。) 

连接 、 准 备 、 执 行 并 通过 fetchrow_array(O 获取 数据 


示例 17.29 


Eee 























Use DBI7; 
中 myesdqonsDBTE=>cconnseE(qDBTIR7SGUOatEabass=samolsEoossz=z2co 
asEworgseuaele yeEOUESEESELEEESES 二 光 


受 my S$sth=S$dqbh->prepare ("SELECT name，， wins losses FROM teams") 


名 SSsth->execute () ; 
PEint "Contents of sample db，the mysdl database.XnXn": 


4 while (my Qrow=$sth->fetchrow array()){ # Get one romw at a time 
避 Print "name=S$Srow[0]\n"; # FIieIlIa one 
NONSESEOWIINDO 由 用 允 
Print "losses=$Srow[2]\nANxn"; # FIieIlIa three 
】} 
6 Print $sth->rows，" Tows were retrieved.NXn'"; 


如 本 hi 本 国人 素 
8 国 提 林 攻 二 轴 间 二 总 看 有 让 下 让 下 


Wisee 
Bonmeenes 划 oOEESSmolE 硬 Go ETEEEmXSESULREOSESESEEE 


开 ame=EFremont Tigezs 
wins=24 


Losses=26 


name=Chico Hardqhats 
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4990 





wins=19 
Losses=25 


name=Bath WarshipPps 
wins=32 
SSeS 三 也 


name=Bangor Rams 
wins=22 
Losses=24 


4 


xzOowS Were Letrieved . 


1 


数据 库 。 


2. 准备 一 个 SQL select 语句 ， 返 回 一 个 名 为 $sth 的 语句 句柄 。 
3. 将 查询 发 送 到 数据 库 并 执行 之 。 

4. fetchrow_afray() 方法 返回 来 自 数据 库 的 第 一 行内 容 , 其 中 的 各 个 字段 分 别 对 应 于 数组 @row 
的 元 素 。 如 需 获 取 后 面 各 行内 容 ， 可 使 用 一 个 while 循环 。 当 没有 更 多 行 可 供 处 理 时 ， 循 环 


Oo = On 





即 告 一 段落 。 


. 一 行 中 的 每 个 字段 都 会 赋值 给 一 个 变量 ， 并 打印 出 来 。 
.TOWS() 方法 会 返回 语句 句柄 影响 到 的 行 数 。 

. finish 方法 会 释放 语句 句柄 。 

. disconnect 方法 负责 释放 数据 库 句 柄 。 





. connect(O 方 法 会 返回 一 个 数据 库 句柄 $dbh, 它 是 一 个 对 象 ,引用 了 名 叫 sample db 的 MySQL 


选择 、 执 行 并 将 一 行 获 取 为 散 列 。 fetchrow_hashref() 方法 会 把 来 自 数 据 库 表 的 一 行内 容 获 取 


为 一 个 散 列 引用 ， 甚 键 是 列 名 ， 值 则 是 该 列 所 保存 的 数据 。 下 画 

















所 不 同 的 是 它 用 fetchrow_hashrefO 方法 代替 了 fetchrow _array()。 


示例 17.30 


于 


条 三 全 征 卫 下 工 : 


SdonsDBIE==connseilggi 了 BinysolaataoasesamclsEocinsesz 三 zcoot7 


Password=dquigley1l)) or Qie "Can't connect"; 


S$Ssth=$dqbh->prepare ("SELECT name， wins，1losses FROM teams") 


S$sth->execute () ; 
SecUnEE0R 


Print "Contents of sample db，the mysdqdl database.\nNxn"; 


while( my S$row = $sth->fetchrow_ hashref() ){ 
Pint "Name: Srow->{fname}lAN\n" 
1 Srow->{fwins}\n" 

Print "Losses: S$Srow->{f1losses}\nNn" 7 
SG 


Print "There are S$count rows in the sample Qqatabase.NXn"; 


7 


j 这 个 示例 和 前 面 的 示例 几乎 一 样 ， 
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娩 $sth->finish() ， 
8  S$dbh->disconnect() : 


1. connect(O 方 法 会 返回 一 个 数据 库 句 柄 $dbh , 它 是 一 个 对 象 ,引用 了 名 叫 sample_db 的 MySQL 
数据 库 。 

. 准备 一 个 SQL select 语句 ， 返 回 一 个 名 为 $sth 的 语句 句柄 。 

3. 将 查询 发 送 到 数据 库 并 执行 之 。 

4. fetchrow_hashref() 方法 把 来 自 数 据 库 的 第 一 行内 容 返 回 为 指向 一 个 芽 名 散 列 的 引用 ,该 匿 
名 散 列 由 多 个 键 / 值 对 组 成 。 它 的 键 是 表 内 字段 的 名 称 ， 值 则 是 字段 保存 的 内 容 。 如 需 获 取 
后 面 各 行内 容 ， 可 使 用 一 个 while 循环 。 当 没有 更 多 行 可 供 处 理 时 ， 循 环 即 告 一 段落 。 

.打印 键 〈key) 所 指定 的 字段 的 所 有 值 。 

. finish 方法 负责 释放 语句 句柄 。 

. disconnect 方法 负责 释放 数据 库 句 柄 。 


ht 


~ 人 小 内 


17.4.7 ”处 理 引 号 


在 把 字符 串 发 送 到 数据 库 时 ， 必 须 把 它们 置 于 引号 内 。 字 符 串 本 身 也 可 能 含有 引号 ， 璧 如 字符 
串 "Mrs. O'Donnell"， 而 这 些 引 号 必须 在 发 送 到 数据 库 时 以 适当 的 方式 予以 舍弃 〈escape)。 更 为 复 
杂 的 是 ， 不 同 的 数据 库 系 统 处 理 引 号 的 规则 也 各 不 相同 。DBI 通过 其 提供 的 quote 方法 来 处 理 引 用 
问题 。 该 方法 必须 与 某 个 数据 库 句柄 配合 使 用 ， 它 会 根据 指定 数据 库 所 定义 的 规则 ， 将 一 个 字符 串 
转换 为 正确 舍弃 后 的 字符 串 形式 。 


示例 17.31 















































use DBI: 
Sabh=DBI=->connect (qd(DBI:mysdl:dqatabase=sample Qb7usez=zoot: 
Rasswocasounoe EECEOne Caneeenmecie 
1 $namestring=dqdqd(Jerzy O'ConnelL1) : 
2 $namestring=$dbi->quote ($string) : 
ESG 
4 $sth=$dbi->Prepare("SELECT * FROM coaches WHERE name=S$namestring") 


OGA ES 本 S 二 下 全 苛 让 站 人生 思 瑟 二 三 之 生生 SEO 
S$Ssth->execute () ， 
NE 


人 Cn 


6 Re(ny aa sstn>fecneowiazay (人 这 
亲人 
PEint "Ntname=Sval[1]NXn"; 
PEint "Ntteam name=Sval[2]Xn": 
PEint "Ntteam name=Sval[3]N\n"， 
DFT NESCactoateSyaINOND 
】 


Ssth->finish()， 
WE OESECCONIEEE NE 


Su) 
ZEEEVEONLCOnnEI NE 
SEESITESEESGeSSceNeS iis 
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6 也 加 二 条 
Dame=Jerry O"Conne1l1 
Eeeam 本 Name= Eee aano 基 玫 EOUENIS 
EEam 本 mame 三 Hesg 三 已 CSD 
总 下 站 下 让 国 司 让 全 三 志向 由 间 三 向 和 三 之 乌 


解释 


FE 


. 将 字符 串 变 量 Snamestring 赋值 为 一 个 含有 单 引 号 的 字符 串 。 

2. 使 用 一 个 DBI quote 方法 来 为 mysql 数据 库 准 备 字 符 串 ， 它 会 把 字符 串 放 入 引号 之 间 ， 并 在 
那个 单 引 号 前 面 加 上 反 和 斜 杠 。 

. 本 行 向 用 户 展示 了 quote 方法 是 如 何 准 备 字 符 串 的 。 请 广 意 , O'Connell 中 的 省 略 符 已 通过 
反 斜 杠 予 以 屏蔽 。 

4. 在 WHERE 子 句 中 ， 上 述 正确 引用 的 字符 串 将 用 于 判断 它 的 值 是 否 与 coaches 表 中 的 某 个 教 

练 姓 名 相 匹 配 。 下 面 这 一 行 展 示 了 MySQL 客户 端 是 如 何 插入 数据 的 。 读 者 可 以 看 到 它 是 如 

何在 字符 串 中 管理 引号 的 ， 即 ， 把 单 引号 能 入 到 双 引 号 中 : 


mysql> insert into coaches values(,,"Jerry O'Connell",, Portland Penguins'， "Head Coach',,,2006-2-22)); 
5 一 6. 显示 该 表 内 容 。 





ULD 





17.4.8 获取 错误 消息 


在 使 用 DBI 时 ,了解 出 错 的 原因 是 非常 重要 的 。 连 接 失 败 了 吗 ? 是 否 正确 地 准备 了 SQL 语句 ? 
DBI 定 义 了 多 种 用 于 处 理 错 误 的 方法 。 用 户 既 可 以 针对 某 个 指定 句柄 通过 PrintError 和 RaiseError 
属性 来 使 用 自动 错误 处 理 机 制 ; 亦 可 使 用 诊断 方法 和 特殊 DBI 变 量 。 

自动 错误 处 理 。 当 连 接 到 数据 库 时 ，DBI 模块 提供 了 自动 错误 处 理 机 制 。 用 户 既 可 以 在 每 次 
DBI 方法 失败 时 获得 警告 信息 ， 亦 可 设 定编 译 指示 符 ， 以 便 发 送 消息 并 退出 程序 。 在 使 用 connect 
方法 时 ， 最 为 常见 的 两 个 属性 是 PrintError 和 RaiseError。 

PrintError 属性 
在 默认 情况 下 ，connect() 方法 会 把 PrintError 属性 设置 为 “on”( 即 设置 为 1)， 并 在 任意 DBI 
方法 失败 时 自动 生成 一 条 警告 信息 。 

RaiseError 属性 

RaiseError 属性 可 用 于 强制 生成 错误 并 提供 异常 。 在 默认 情况 下 它 是 关闭 的 。 如 果 将 它 设置 为 
“on”， 则 任何 引发 错误 的 DBI 方法 都 将 造成 DBI 输出 错误 信息 〈 即 $SDBI::errstr) 并 退出 程序 。 如 
果 把 RaiseError 属性 设置 为 on 的 话 , 一 般 都 会 同时 将 PrintError 属性 设置 为 off。 如 果 PrintError 属 
性 也 为 on 的 话 ， 则 会 优先 处 理 PrintError 属性 。 通 常会 在 使 用 RaseError 时 用 到 一 个 eval 代码 块 ， 
以 便 捕 获 之 前 抛 出 的 异常 。 如 果 在 eval 块 中 又 出 现 “die” 语 句 、 编 译 错 误 或 运行 时 错误 的 话 ， 特 
殊 变量 $@ 就 会 赋值 为 错误 消息 的 内 容 ;， 如 果 没 有 出 错 ， 则 赋值 为 null。 一 般 设 置 了 $@， 用 户 不 
必 退 出 DBI 就 能 处 理 错误 〈 详 见 示例 17.32 ) 。 

手动 错误 处 理 。 如 果 用 户 希 望 在 某 个 特定 方法 失败 时 手动 检查 错误 , 可 以 使 用 DBI 模块 提供 的 
错误 诊断 方法 〈error diagnostic method) 或 错误 诊断 变量 (error diagnostic variable)。 它 让 用 户 能 
够 控制 自己 调用 的 每 一 个 方法 ， 以 便 出 错时 跟踪 其 错误 信息 。 

错误 诊断 方法 

首先 我 们 将 看 到 两 个 错误 诊断 方法 err0 和 errstr()。 这 两 个 方法 在 调用 时 可 以 接受 任何 合法 的 
句柄 、 驱 动 、 数 据 库 或 语句 。err0) 方法 会 返回 与 磁 到 的 问题 相关 的 出 错 代 码 。 出 错 代 码 是 一 个 数 
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字 ,， 随 着 所 用 数据 库 系统 的 不 同 而 不 同 。errstr() 方法 对 应 于 上 述 错误 代码 数值 ,不 过 它 返 回 的 是 一 
个 含有 信息 的 字符 串 ， 能 描述 为 什么 上 一 个 DBI 方法 会 调用 失败 。 在 下 一 次 方法 调用 之 前 ， 对 应 于 
某 个 句柄 的 所 有 错误 销 息 都 将 会 重新 设置 ， 因 此 用 户 必须 在 该 句柄 刚刚 产生 错误 时 及 时 地 检查 错误 


信息 。 
SrV = S$Sh->erLz(); 
SS 工 三 及 => 司 ES 七 天 人) 池 
错误 诊断 变量 
DBI 变 量 $DBI::err 和 $DBI::errstr 是 类 变量 ， 甚 功能 类 似 于 前 面 所 述 的 两 个 方法 ， 所 不 同 的 是 





它们 的 声明 周期 更 短 , 一 般 只 用 于 上 一 次 调用 的 方法 。$DBI::err 含有 对 应 于 上 一 次 调用 的 方法 的 错 
误 数 值 ; 而 $SDBI::errstr 则 含有 一 个 字符 串 ， 负 责 描述 对 应 于 $DBI::err 中 错误 数值 的 错误 消息 。 一 
般 而 言 ， 用 户 应 当 及 时 检查 连接 操作 的 返回 状态 ， 如 果 connect() 方法 失败 的 话 ， 则 应 打印 SDBI:: 


Errstrs 


示例 17.32 


全 SeeP 避 ) 
use DBI 
SQrivezc="DBI:mysc1l" 7 
S$database="sample db" 
Susez="zoot7"; 
SSEIOCaSS RE 








员 国 国王 岂 朋 下 三 人 SSESSEUOOIROVYEOUEISSmOHE 征 O 本 汪 二 让 可 用 本本 三文 守 汪 于 
{ 


站 RaiseError => 1，# Die IF there are errors 

习 PiILnmtEOF => 0， 直 arn IF there are erFrors 
) 

避 ) or die S$SDBI: :erzstr; # Report mwhpy connect Fazled 


4 $sth=$dqbh->prepare("SELECT name， wins losses FROM teams") or die 
"Can ' 七 PrePare Sql1L statement'" .DBI->eLrzLzstr: 

S$sth->execute () ; 

Eeeonesne 硬 ESmOTEEOSREEIEYESCIEE SSESDOSSTESERNNmI 

while (my Qval = 人 


EEint "namesSval[0]Nn"; 
PEint "wins=S$Sval[ 
Pint "losses= | EN 
】} 
5 Print S$sth->rowsv" rows Were retrieved.N\n"; 


SSsth=>finisn() 7 
SlabREOIEE 用 太 


解释 
1. 这 里 我 们 开局 了 RaiseError 属性 ,如 果 出 现任 何 由 DBI 方法 调用 引起 的 错误 ， 它 都 将 让 程序 
退出 。 
2. PrintError 属性 默认 是 打开 的 。 如 果 某 个 方法 失败 的 话 ， 它 就 会 发 送 一 条 错误 销 息 。 这 里 将 
它 设置 为 0， 即 关闭 状态 ， 因 为 RaiseError 已 经 打开 了 。 当 然 ， 用 户 亦 可 把 RaiseError 和 
PrintError 同时 设置 为 打开 或 关闭 状态 。 如 果 二 者 都 打开 的 话 ， 首 先 会 由 PrintError 发 送 警 
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告 信 息 ， 然 后 再 由 了 RaiseError 打印 销 息 并 退出 程序 。 

3. 如 果 连 接 失 败 的 话 ，$DBI::errstr 变量 将 打印 出 该 连接 失败 的 原因 。 

4. 如 果 prepare 方法 失败 的 话 ， 这 里 会 使 用 errstr 方法 报告 可 能 磁 到 的 错误 例如 ， 设 有 正确 
地 准备 好 SQL 语句 。 


错误 消息 示例 


示例 17.33 


1 (Bad Datapbase Name” connect falledq) 
四 有 风 DEL 人 太 丰 用 广 二 证 
人 


2 (BaaQ Password” connect faileda) 
全 
SC 人 全 卫生 十 O 忆 大 二 起 尺 站 证 郴 和 这 二 三 OO 


旺 (BaQ SQL QuerEy” execute faliledgd) 
DERES 汪 EC EOO 人 2 
0 


绑 定 列 并 获取 值 。 绑 定 列 (binding columns ) 是 最 为 高 效 的 值 获取 途径 。 绑 定 操作 人 允许 用 户 把 
某 个 Perl 变量 关联 到 数据 库 中 的 一 个 字段 〈 列 ) 值 上 。 当 获取 该 值 时 , 其 对 应 的 变量 将 自动 更 新 为 
检索 得 到 的 值 ， 从 而 加 快 获取 值 的 速度 。DBI 提供 了 pind_columns0) 方法 ， 用 于 将 每 个 列 绑 定 到 一 
个 标量 型 引用 上 。 当 调用 fetch0) 方法 时 ， 就 会 将 来 自 数据 库 的 值 赋值 给 同名 的 标量 ， 而 不 是 给 前 面 
示例 中 涉及 的 数组 或 散 列 。 

每 当 调用 fetch() 方法 时 ， 这 些 标 量 都 会 更 新 为 来 自 当 前 行 的 值 。 

《有 关 另 一 种 绑 定 列 的 方式 ， 请 查阅 DBI 文 档 中 的 bind_col 相关 介绍 。) 

绑 定 列 


示例 17.34 


Use DBI” 

US ED SC 
my Sdqatabase="sample db" 
my S$Susez="zoot" 
TGS 




















my S$dbn = 
DBI->connect ("$dqriver:adatabase=S$dqatabaserhost=S$hostuser=Suser") 
aeEeaie Com en 局 下 三 之 生生 SE7 


浊 my S$sth=$dqbnh->prepare ("SELECT name， wins， losses FROM teams") 


ES 
加 SSsth=>execute () or aie "Can't Prepare SG91 
Statement"。 SSth=->exzSstz7 


瑟 my(Sname，S$Swins，$Llosses);# Scalars that mwil71 pe bouna to coJumns 
4 $sth->bind_ columns (\$name,\S$wins,\$Losses) :; 
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# scalar references 
ErnnegNSseTEeEsQEOQS 世 ESTEEESTmSRNNNNTDI 
ES ESEANOOONSaTEO DIS TOSEESD 


5 while( $Ssth->fetch()) 1{ 
# Fetch aa Fromw ana return column values as scalars 
全 s-25ss3ds8dxn" Sname，S$Swins，S$Losses: 


】} 


SStnhE>fhinisn() 2 
DONEEORESSSTECE NE 


os 
Selectead aata for teams . 


Name 1Imns 荆 05Sses 
RS 了 4 汉 
BerzKkeJey Bompers 汰 到 区 岛 
Demnver DareaeviIs 2 吉 取 
全 志 所 六 让 SRS 了 4 3 
MIiaaJeNheyJa Monsters 世 2 
SO 24 小 到 
PortJIana Pen9uzns 28 了 4 
San FrancIisco Fo9pheaas 24 天光 
Sunnyv7aye Sen7Izors 天 殊 24 


1. 准备 一 个 SQL SELECT 语句 ， 并 和 返回 一 个 语句 句柄 。 

2. DBI execute() 方法 把 查询 发 送 到 数据 库 ， 并 予以 执行 。 

3. 创建 三 个 标量 型 变量 ， 它 们 分 别 对 应 于 SELECT 语句 中 列 出 的 三 个 字段 “〈 列 )。 

4. bind_column 方法 负责 指定 标量 型 变量 的 名 称 。 当 fetch() 方法 从 数据 库 检 索 得 到 结果 集 时 ， 
这 些 变量 名 将 分 别 对 应 于 各 个 字段 。( 在 老 版 本 的 DBI 中 ， 其 第 一 个 参数 都 指定 为 undef ; 例 
如 $sth->bind_ columns( undef \$name, \$wins, \$losses); 其 中 undef 用 于 表示 null 字段 。 

5. fetch 方法 负责 从 结果 集中 检索 一 行内 容 , 并 把 各 个 值 分 别 贱 了 予 bind_column0) 方法 中 作为 参 
数 出 现 的 变量 名 。 球 队 名 将 自动 赋值 到 $name， 胜 利 场 数 将 赋值 给 $wins， 而 败北 场 数 则 会 
赋值 给 $losses。 每 次 经 过 循环 时 ,程序 都 会 把 下 一 行 中 各 列 的 值 赋予 上 述 三 个 变量 ， 如 此 
反复 ， 直 到 没有 更 多 数据 为 止 。 


? 占 位 符 。 占 位 符 (placeholder ) 表示 为 ?, 用 于 优化 查询 的 处 理 方式 。 占 位 符 会 为 查询 提供 一 

套 表 示 值 的 模板 ， 这 些 值 将 在 以 后 某 个 时 刻 才 赋予 相应 的 字段 。 它 们 主要 用 于 SELECT 、INSERT、 
UPDATE 和 DELETE 语句 。 
当 DBI 准备 一 条 查询 时 , 数据 库 必须 计划 好 如 何 才能 最 优 地 处 理 该 请 求 。 语 名 句柄 用 于 保存 已 
经 准备 好 的 查询 计划 ， 又 称 “ 执 行 计 划 (execution plan)”。 一 般 而 言 ， 当 某 个 查询 执行 完毕 后 ， 其 
相应 计划 就 会 丢弃 。 不 过 如 果 使 用 了 占 位 符 的 话 ， 数 据 库 将 不 会 丢弃 执行 计划 ， 而 是 在 某 个 模板 中 
接受 该 占 位 符 ， 并 围绕 它 制 订 计 划一 一 这 就 使 得 模板 能 用 到 以 后 的 查询 中 。 

? 负责 表示 值 ， 辟 如 : name=?， 其 中 name 是 数据 库 表 中 的 字段 名 ， 而 它 的 值 将 在 以 后 
提供 。 (请 牢记 ，? 只 能 表示 值 ， 而 不 是 字段 名 : ?="John'" 是 错误 的 ! ) execute() 方法 会 接 
受 表 示 占 位 符 的 值 的 参数 ， 每 当 调 用 该 方法 时 ， 这 些 值 就 会 在 准备 好 的 计划 中 替换 掉 相 应 的 
占 位 符 。 
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使 用 占 位 符 


示例 17.35 


Use DBI: 

my S$Sdqriver="DBI:mySsG91l7 7 
my Saqatabase="samnple db"7 
my Susez="zoot" 

my 基 OIES 二 0 世 二 可 看 TO 司 7 


my $dqbh = 
DBI->connect ("$adriver:$dqatabase:S$hostuser=S$user， 
asSsNWece=dqunogeyIOEEEOELESnEEEEemeeE 四 忆 下 三 > 全 SI 


1 my $Ssth=$dbh->PrePare ("SELECT name，wins，1osses EROM teams 
WHERE name = ?3") or 
Qie "Can' 廿 PEePare sql statement"” .DBI->ezLzstz: 


PE EECFEne eeanmname 

2 chomp (Steam name=<STDIN>) 7 

3  $sth->execute (S$team_name) : 

# THhe Value of Steam name zepJaces the 2? 
IEASETSCEESOEQSES 和 CEESNESDSTENORNONDOY 


4 RISE Ga 用 三 本 ws 三 之 fe EECiEEG 交 硬 S 荆 3aV 人 居 下 
PEinLt "name=S$Sval[0]NXn"; 
EN 
IIGOSSSSES SEN 


SSsthEfinisn() 
本 三 SCSITETC EL 人 古 


eu 
Enter the team name: Chico Farahpats 


SeJecteaQ aata For team "Chico Harapats". 


Dame=Chico Faranhats 
winS= 了 9 
Josses=6 


1. SELECT 语句 含有 一 个 带 着 ? 占 位 符 的 WHERE 子 句 ,该 占 位 符 表 示 晚 些 时 候 将 赋值 给 name 
字段 的 值 。 准 备 该 语句 ， 并 返回 一 个 语句 句柄 。 

2. 要 求 用 户 输入 一 个 球 队 名 称 ， 并 赋值 给 $team_name。 后 者 将 用 作 execnute 方法 的 一 个 参数 。 

3. 在 查询 中 将 $team_name 的 值 插入 到 占 位 符 处 。 

4. fetchrow_array() 方法 负责 检索 某 支 球 队 的 值 ， 该 球 队 是 在 执行 第 3 行 的 查询 时 确定 的 。 











使 用 多 个 占 位 符 


示例 17.36 


Use DBI” 
my S$qbh=DBI->connect ("DBI:mysdql:host=localhost;user=root:， 
BassSweeeasdunceyiPiciSeaoaSe SmLE 症 coia 胞 





1. 这 里 的 三 个 占 位 符 起 到 模板 的 作用 , 表示 将 在 晚 些 时 候 填 入 SQL INSERT 语句 中 的 值 。 各 


2. 将 标量 赋值 为 将 在 执行 SQL 语句 时 发 送 给 数据 库 的 值 。 

3. execute() 方法 把 这 些 变量 值 插 入 到 在 INSERT 语句 中 能 够 找到 的 占 位 符 处 , 并 执行 SQL 语句 。 
4. 准备 另 一 个 SQL 语句 ， 该 语句 将 选取 数据 库 中 所 有 的 字段 ， 以 便 用 户 检查 是 否 真 的 插入 了 
5. 从 上 述 查 询 的 结果 集中 每 次 获取 一 行内 容 ， 并 了 予 以 显示 。 

使 用 占 位 符 插 入 多 条 记录 


个 ? 分 别 表 示 name 字段 、wins 字段 和 1losses 字段 的 值 。 
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1 my $Ssth=$dbh->PrepPare ("INSERT INTO teams (name，wins，1losses) 
VanUESIC2RD2R 2 二 
# Preset the vaJues in variapbles 
2 
my S$Swins=18:， 
my $1osses=5; 
3  $sth->execute($team_ name，S$wins，$1osses) : 
NO 
4 S$sth=S$Sdqbh->prepare ("SELECT x EROM teams") 
S$Ssth->execute () ; 
与 while (my Q@val = $sth->fetchrow_array()) 1{ 
DFIameSvyanllOlND 
ET 
NO 
》 
SEENE 二 全 1 人 过 
SEE 
解释 


示例 17.37 


use DBI 
my $Sdqbh=DBI->connect ("DBI:mysql:host=1localhostruser=root:， 
aiSESWemdsojR 区 同村 SSEE SSmEHE 本 Qi E 


# szng aa Pacenhoyaezr。 Values WIIJ be as5ligneaQ aer 


my $sth=$dbh->PrePare ("INSERT INTO teams (name，wins，1losses) 
WATDUESHOD 2 ) 贡 

# Create a Jist of nemw entries 

mcwss 王八 用 Smio SS 工人 征 CS 让 帮 

EeeataAnogSIED ESE 汪 各 太 

['"Georgetown Giants'"，1 ，6]， 

NG 

) 卫 


foreach my S$Srow (rows ){ 
Sname = Srzow->[0]:; 
SwWins = SrOwW=-> [1]:; 
$Losses=Srow-> [2]:; 
$sth->execute (Sname，S$wins，S$Slosses) : 
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电 


解释 
1 


1 

EnERODSESEcrEEESm ETIESNRNOT 
Ssth=Saph=>pPprepare (7"SELIECT * EROM teams7") 7 
Ssth=>execute () ; 

IEImY 大 ESw 三 是 SEE>AeECDEONESET SUM 
DERmameESEowONnDY7 
ERROR 
EnossessSowI2INGRNR 7 


】 


Ssth->finish()， 
SnE QTCOnNSE 全 胞 


.三 个 占 位 符 仍旧 起 到 模板 的 作用 ， 表 示 将 在 晚 些 时 候 填 和 SQL INSERT 语句 中 的 值 。 各 个 ? 


分 别 表示 name 字段 、wins 字段 和 1losses 字段 的 值 。 


2. 创建 一 个 含有 行 0 负责 表示 那些 将 在 晚 些 时 候 播 入 数据 库 的 新 记录 。 
3. 将 来 自 @rows 的 每 一 行 拆 分 为 各 自 独立 的 字段 和 标量 值 , 这 些 赋 给 标量 的 值 分 别 表示 每 


4 





相应 字段 的 值 。 


. 、 方法 把 这 些 变量 值 插入 到 在 INSERT 语句 中 能 够 找到 的 占 位 符 处 ， 并 执行 SQL 语 





名 。 它 会 反复 处 理 每 一 行 新 数据 ， 直 到 所 有 数据 都 输入 完毕 为 止 。 如 果 出 现 了 重复 的 球 队 ， 
人 经 赋 为 主键 ， 因 此 execute(0) 方法 会 执行 失败 。 


绑 定 参数 和 bind_param() 方法。 另 一 种 方便 而 高 效 的 使 用 占 位 符 的 途径 是 bind_param() 方法 。 


占 位 符 会 


告诉 数据 库 : 由 ? 表示 的 值 将 在 晚 些 时 候 耶 以 填 入 。 限 定 参数 〈bound parameter) 是 用 于 





替换 ? 的 值 , 从 而 不 必 再 向 execute() 方法 发 送 参 数 。 
bind_param() 方法 最 多 接受 三 个 参数 。 其 中 第 一 个 参数 表示 参数 在 占 位 符 中 的 位 置 ; 譬如 ， 当 


位 置 为 





1 时 ， 表 示 该 参数 值 将 填 入 第 一 个 ?〈 占 位 符 》 如 果 位 置 为 2， 则 表示 第 二 个 ?， 依 此 类 推 。 


bind_param0 的 第 二 个 参数 是 将 要 替换 ? 的 实际 值 。 最 后 一 个 参数 是 可 选 的 ， 表 示 替 换 值 的 数据 类 


般 都 是 数字 或 字符 串 。 在 首次 调用 bind_param( 之 后 ， 其 占 位 符 的 数据 类 型 就 不 能 再 更 改 


了 、 不 过 ， 用 户 可 以 不 指定 该 参数 ， 这 时 它 会 默认 设置 为 前 一 个 值 。 


处 


S$S 
S$Ss 


有 





理 数 据 类 型 的 方法 有 两 种 ， 匿 名 散 列 和 DBI 和 常量 

th->bind param(1，S$Svalue，{ TYPE => SQL INTEGER })” 上 # Hash 
th->bindq param(1，S$Svalue， SQL _ INTEGER) # DBI Constant 

关 如 何 使 用 第 三 个 参数 ， 请 看 示例 17.44。 


示例 17.38 


use DBI; 

my $SdriVez="DBI:mysd17"7 
my Sadatabase="sample Qb7": 
my S$usezr="zoot"; 

my $Spassword="dquigley1"7 
Yi 十 IIGSTE 


7 性 生 全 ESEaoase OSI 
Eee Eee 
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1 S$sth=$dbh->PrepPare ("SELECT name，wins, losses EROM teams 
Where name LIKE ?") or Qie "Can't Prepare sql statement" 


甩 有 下 二 之 人 于 全 可 下 全 


2 5Ssth=>binaqaipazam(L Chg) 
3  $sth->execute () : 
4 S$sth->dumP_results () : 


SSsth=> 玫 DiIL 
Sdbh->qdis 


OUE 芭 ) 


瑟 员 向 怕 
[eleiototsream 人 太 : 


"ChPeyenne Charg9ers"，" 6" unae 
证 放 靖 人 放 OERETS 人 人 人 人 区 


1. 准备 一 个 含有 占 位 符 的 SQL 语句 ， 该 占 位 符 将 充当 查询 的 模板 。 
2. bind_param() 方法 接受 两 个 参数 占 位 符 的 位 置 〈 即 表示 将 会 填充 第 几 个 >)， 以 及 将 会 赋值 


给 该 位 置 的 


值 ， 即 “chy%” 


3. 由 于 bind_param() 已 经 把 参数 限定 到 语 名 上， 因此 execute() 方法 无 需 任何 参数 。 
4. DBI 畏 数 dump_results() 方法 用 于 在 执行 完 查 询 后 快速 输出 由 数据 库 返 回 的 结 采 。 








缓存 查询 。 缓存 〈cache) 是 一 种 临时 存储 区 域 ， 和 常常 用 于 加 快 数据 的 复制 或 访问 速度 。 大 多 


数 数据 库 都 利用 组 





存 来 提升 近期 执行 的 查询 的 性 能 。 在 执行 完 一 条 SQL 语句 后 ， 可 以 将 它 缓存 起 


来 ， 而 不 是 销毁 掉 。 如 果 需 要 执行 与 缓存 语句 一 致 的 另 一 条 查询 的 话 ， 则 可 重复 使 用 缓存 的 查询 语 


句 。DBI prepare_c 


ache() 方法 用 于 缓存 一 条 查询 。 它 类 似 于 prepare() 方法 ,所 不 同 的 是 它 会 查看 以 





前 是 否 已 经 执行 过 相同 的 SQL 语句 。 如 果 是 ， 它 就 会 提供 缓存 的 语句 句柄 ， 而 不 是 创建 新 的 句柄 。 

















(如 果 用 户 需 要 管理 





多 个 连接 ， 请 参阅 Apache::DBI::Cache。) 


示例 17.39 


让 SEE 开交 


TS 

my S$databases="samnple db"， 

TS 

TSUEEEELFCOCTEO 

my $password="dquigley1"; 

myS$dbh=DBI->connect ("$driver:dqatabase=$dqatabase: 
host=S$hostuser=S$user;password=$password") oF 


meanesneecnnE SR 人 下 
1 Sub get_winsti # Suproutine to hanale aatapbpase 9uery 
构 my(Sdobnh，Steanmn) = ; 
习 my $sth=$dbh->PrePare_cached (" SELECT wins FROM teams 
WHERE name = ?3") or 
Qie "Can't Prepare Sql Statement" 。DBI=>eTrzSstr7 
4 $sth->execute (S$team) : 


SanSsESSLE>fStenzoWEazzay () 克 
号 ESWTTTIEST 


当 Perl 遇见 MySQL: 完 关 的 连接 509 





8 


STRARTOVER: 1{ 
Pint "To see how many wins， please enter the team's name. 
chomp ($team_name=<STDIN>) 
# Ca aa Function to Process aatapbpase 9uery 
Print "S$Steam _ name has won "，get wins($db，$Steam_name) ， 
红 可 smeSRNDI 
re Do eusnaneeeEeneck wsEocEanecne 蕙 SaE 
ES E 生生 SIINE 
redo STRARTIOVER if S$ans =~ /ylyes/ii 


Ts 
六 


】} 
SEE 人 玉 
SanEE ES STEEL 似 必 7 


(GuEGIE) 


与 


了 
避 


TO See how many WIDS，，PDJIease center Lnhe Leam'"s name。 了 Tamnpa 了 ezor5s 
Tampa 7TezxoFrs hare won 3 9ames . 

及 G 且 六 em 而 凡 a nk 晤 One< ROSS 三 OF 三 下 加 有 记 E 辣 重生 二 芝 天 7 

工 C 且 SEEnamxynrncsncnease se noeeanes oame sn RancaseGc 


Poopeaas 


了 
与 


& 


Sanm PRranclisco Foopbheaas havre Won 24 9ames . 


用 Ce 硬 Wan 帮 ECOEEEee ACE 三 下 GAAS 生 EES 世 局 居 
oO 

CPpico Farahats have won 21 9ames . 

DO you want to checKk wins FEfor another team2? 











1. 使 用 一 个 名 叫 get_wins 的 用 户 自 定 义 函 数 来 处 理 数 据 库 请 求 。 
2. @_ 含 有 两 个 值 ， 数 据 库 句柄 ， 以 及 数据 库 中 某 支 球 队 的 字段 名 。 
3. 准备 一 个 语句 。 为 了 提高 效率 ， 在 执行 该 语句 之 后 缓存 它 ， 而 不 是 销毁 它 。 如 需 反 复 执行 
相同 查询 的 话 ， 该 机 制 就 会 让 处 理 过 程 更 为 高 效 。 览 于 这 个 函数 可 能 会 用 到 多 次 ， 因 此 这 里 
使 用 了 prepare_cache() 方法 。 除 了 名 称 不 同 外 ， 该 方法 基本 类 似 于 prepare 方法 。 
4. 执行 该 查询 ， 并 将 出 现在 SQL 语句 中 的 ? 填写 为 球 队 名 称 值 。 
5. 该 函数 负责 检索 并 返回 指定 球 队 的 胜利 场 数 。 
6. 在 程序 主体 部 分 中 ， 键 入 一 个 标记 块 ， 并 要 求 用 户 选择 一 支 球 队 。 
7. 在 print 语句 中 调用 用 户 自 定义 的 国 数 get_wins， 并 把 数据 库 句 柄 和 用 户 选 择 的 球 队 名 称 传 
递 给 该 函数 。 
8. 如 果 用 户 希 望 看 到 另 一 支 球 队 的 胜利 场 数 ， 程 序 控制 流 会 返回 到 标记 块 的 顶部 ,并 再 次 开始 处 理 。 
17.5 不 返回 数据 的 语句 
do() 方法 


do() 方 法 用 于 在 一 步 之 内 准备 并 执行 那些 无 需 选 择 也 无 需 重 复 的 语句 。 可 以 使 用 do 方法 的 SQL 


语句 包括 诸如 UPDATE、INSERT 或 DELETE 之 类 的 语句 。 这 些 语 句 都 能 修改 数据 库 ， 同 时 不 返回 
任何 数据 。 与 prepare 方法 不 同 ，do 不 会 返回 一 个 语句 句柄 ， 而 是 会 返回 受到 影响 的 行 数 ， 或 者 在 
查询 失败 时 返回 undef。do(0) 方法 会 返回 受到 影响 的 行 数 ， 或 者 在 查询 失败 时 返回 undef。〈 返 回 值 




















为 -1 说 明 行 数 不 可 知 、 不 可 获得 、 或 着 不 可 使 用 。) 
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S$rows affecteq = $dqbh->do ("UPDRATE Your _ table SET foo = foo + I"); 


惟一 的 缺点 是 它 的 性 能 ， 尤 其 是 在 通过 占 位 符 来 多 次 反复 执行 某 个 操作 时 ， 正 如 在 示例 17.39 
中 一 样 。 这 是 因为 每 个 查询 都 不 得 不 一 再 重复 执行 准备 、 执 行 等 步骤 。 

添加 记录 项 〈entry)。 如 需 把 记录 项 加 入 到 数据 库 中 的 一 张 表 内 ， 可 在 DBI 的 do 方法 中 使 用 
SQL INSERT 语句 。do 方法 将 返回 新 记录 项 的 数目 ， 或 者 在 失败 时 返回 undef。 


ET 


se DBI7 
my $dqbh= 
号 = 本 eeioI=reneg 人 DJ) 用 呀 (NETe 目 呈 放 Ke 区 9 记 eez= 放 国人 er egyiPTeT= sereee 
Passwordq=dquigley1: 
Gaeaesaese=samels 基 qio gl 史 
# aaa two new entries 
1  S$aqbh->do ("INSERT INTO teams (name, wins,1Losses) 
VRALUES ('San Erancisco Eogheads'，24,，12)") ， 














2  S$dqbh->do (qq/INSERT INTO teams (name，wins，1losses) 
VALUES (?,?,?)/，undef,"Middlefield Monsters"，2，32) : 


$dbh->do (qq/INSERT INTO teams (name，wins，1losses) 
VALUESI(2 722) anaeE EttLIeton's Tigezs 4 8) 


3  S$dqbh->qdo ("INSERI INTO coaches 
VALUES('' 7IRogez Outback' "San Rancisco ERogheagds ' ， 
人 EeeCOac 2006=03=16) 


mouseennse 可 功用 
解释 
1.2.3. DBI do 方法 用 于 将 值 插入 到 sample db 数据 库 的 teams 表 中 。 这 里 没有 出 现 prepare 和 
execnute 方法 ， 因 为 do 已 经 代劳 了 。 它 会 返回 影响 到 的 行 数 。 





删除 记录 项 。 下 面 这 个 示例 会 在 某 些 条 件 满 足 时 删除 一 条 记录 。 由 于 delete 方法 不 能 返回 结果 
集 ， 因 此 可 通过 DBI do 方法 来 调用 它 。 


示例 17.41 


use DBI:; 
AT 
my Sadatabases="sample dp" 
my S$user="root" 
Ti 





my $dqbh = DBI->connect ("S$Sdriver:dqatabase=S$dqatabase'; 
GES 臣 三 SR EUSETSESDSESTROEGTEEOEERCaTREEcOnDESE 有 思 忆 下 二 之 合共 下 有 攻 天 六 
DERneec ne eeannanmne ownan oaslete 
chomp ($name=<STDIN>) ; 
1 my $sth=S$dqbh->prepare('SELECT count (*) from teams WHERE name = ?1): 
2  $sth->execute ($Sname) ; 
TENUmoSEOEEowsEoos 硬 ausletsdqi $sth->fetchrow_ arzay()， 二 


当 Perl 遇见 MySQL: 完 关 的 连接 


77 





EECIETOUESEC 
TI 有 
Sans=lcl(S$ans); 

if ( S$Sans =~ /ylyes/){ 


4 Snum=$dbh->do (qq/DELETE from teams WHERE name = ?/，undef， 


Sname) : 


5 ETERUSnOmnE TSDUERSNSEOETIEEEORNOSTUOnEEEOAEOETEEEOS Rn 几 


】} 
else 1{ 


die "You have not chosen to qdqelete any entries. Good-bye.NXn"; 


S$Ssth->finish() 
四国 国 和 芝 QU 下放 而 二 世间 全 克 


OOEGUED) 

Entez the team name You Want to QQelete: 5unnyvaJe Senzor5s 
Numbez of zows to be aeletedq: 1 工 

Conennsz 六 

1 xcow Qeleted. 


解释 
1. 根据 用 户 输入 , 将 待 删 除 的 球 队 名 称 赋 值 给 $team。SQL 语句 将 通过 count 
以 便 获 知 有 多 少 行 匹配 于 所 选 的 球 队 名 称 。 
2. execute() 方法 将 把 查询 发 送 到 数据 库 ， 并 返回 匹配 于 所 选 球 队 名 称 的 行 数 。 


国 数 查 询 数据 库 ， 





3. 获取 查询 结果 。 这 就 为 用 户 提供 了 删除 这 些 记 录 项 的 绝 好 机 会 。 如 果 不 存在 任何 匹配 的 球 队 ， 


则 无 需 继 续 处 理 。 
4. DBI do0) 方法 用 于 准备 并 执行 SQL DELETE 语句 。 
.返回 删除 掉 的 行 数 。 


(LA 





更 新 记录 项 。 如 需 更 新 或 编辑 某 个 数据 库 记 录 项 , 可 通过 DBI do() 方法 来 使 用 SQL UPDATE 





语句 。 


示例 17.42 


use DBI;: 

my $SdrziVez="DBI:mysd17"7 
my $dqatabase="sample dpb"; 
my S$Suser="root"n; 

my $Spassword="dquigley1"7 
Wi 


my $dpbi= 
DBI=->connect("Sdrivez:aatabase=S$adqatabaserhost=S5host7usez=Suser; 
asSENoadsSDasewoecajEEEOTIERLESDUUEeSmNSEE 四 局 开 三 > 二 攻 仁 有 让 于 7 


my Snum of wins'， 
myEESmDmEoEEELCSRSSS 
ISO 
DERwWnaies Eeeame 本 cneEEESmEEEOEUPQsEsR 
chomp (Steam name=<STDIN>) 


# Show user the table before he tries to update It 
2 my $sth=$dbi->Prepare(qq/SELECT * EROM teams 


72 


条 T7 


- 立 - 


事 





IO 


(O 


WHERE name="$team_name"/) or die "Select failed: ". S$DBI: :erzstr: 
SSthE=>execute() or Qie "RScuUte failea DBI :ESETSETE7 
WaseIWtSnmanme aswam SR SioSsSsSss) 三 是 SS 人 让 CE 有 丽 

CU 

PEint "NnData for Steam name before update:Nxn"if S$count == ]7: 

OANENEWOEESWIESND 
TINENEIOSSSEESUIOSREEESNONELT 
】} 
if ($count==0){ qie "The team you enteredq aqoesn't exist.NXn"y} 
FONTmany oamssanas>EesamgnanmeawcneesnesEEne | 本 让 本 QS 攻 SR 
chomp(Snum cf wins=<STDIN>) 7 
zintHowinany oamss nasasteamnnanslostE snce nesStE Dooate2 
chomp (Snum of losses=<STDIN>) ; 


$dbi->do (qq/UPDRATE teams SET wins=wins+S$Snum of _ wins 
WHERE name = ? /，undef，"S$team name") or 
Qie "Can't update teams :". DBI->eLrzSstz: 


$dbi->do (qq/UPDRATE teams SET losses=losses+S$num of losses 
WHERE name = ? /，undef，"S$team_name") or 
die "Can't update teams :". DBI->eLrLzSstz: 


# Show the User the table after it Is upaateda 
Pint "NXnData for S$team name after Update:Nn" 
$sth=$dqbi->prepare (qq/SELECT * FROM teams WHERE 
name="S$team name"/):; 
S$Ssth->execute () ; 
Was tanmame swane iossss) 三 是 2SEIEheECneOVEESeE SSVXIUi 
EECNENENISESNEOESNAR 
PEint "NtAtlosses=$lossesNnNXn"; 


Ssth->finish()， 
ESEELNR 


EBD 


What is the name of the team to upadqate? Chico Hardhats 


Da 


ta for Chico Harahats beftore upaate : 
wins=15 
Losses=3 


HowEimamysoganmesanas 本 CeoHaewnmaes wonsinmes 有 ESEEEUROsEe 和 
How many 9ames has Chico Hardhats Lost since the LIast update2? 2 


Da 


解释 


~ 上 wm 口 一 


已 aorChnarco 丰 有 aahnas 生 aerolaEe 天 
wins=16 
Losses=5 


. 要 求 用 户 输入 将 在 teams 表 中 编辑 的 球 队 名 称 。 
. 执行 一 条 SELECT 语句 ， 检 索 teams 表 中 所 有 的 数据 。 


在 执行 更 新 操作 前 ， 首 先 以 当前 状态 显示 该 表 的 内 容 。 








. 计数 妖 负 责 跟 踩 返 回 的 记录 总 数 。 

. 如 果 计 数 器 值 为 0， 说 明 没 有 结果 从 SELECT 处 返回 ， 程 序 会 报错 并 退出 。 
. 要 求 用 户 输入 从 上 一 次 更 新 操作 起 打 赢 的 球赛 场 数 。 

. 同时 要 求 用 户 输入 从 上 一 次 更 新 操作 起 败北 的 球赛 场 数 。 


当 Perl 遇见 MySQL: 完 关 的 连接 573 





8. 使 用 DBI do 方法 准备 并 执行 SQL UPDAITE 语句 。 它 会 返回 更 新 操作 影响 到 的 行 数 。 该 语句 
将 更 新 teams 表 中 的 wins 列 。 
9. 这 次 更 新 与 上 一 次 类 似 ， 所 不 同 的 是 它 会 递增 败北 的 场 数 。 
10. 在 更 新 完毕 数据 库 表 之 后 ， 重 新 执行 这 个 SELECT 语句 ， 以 便 向 用 户 显示 编辑 之 后 表 的 内 容 。 











17.6 ”事务 


























在 一 个 有 关 teams 表 的 简单 示例 中 ， 如 果 在 向 两 支 球 队 插 入 数据 时 ， 甚 胜利 场 数 和 败北 场 数 突 
然 发 后 了 变化 ， 那 么 其 更 新 操作 将 必须 修改 两 支 球 队 信息 ， 而 不 是 一 支 。 假 定 用户 正 在 更 新 多 个 
表 ， 那 么 其 更 新 操作 可 能 会 在 某 张 表 中 执行 成 功 ， 同 时 在 其 他 表 中 执行 失败 。 一 个 典型 的 例子 是 从 
某 张 表 中 的 储 蕾 账户 里 提取 现金 ， 并 在 和 人 另 一 张 表 中 的 核算 账户 。 如 果 存 款 操作 成 功 ， 但 取款 失败 
的 话 ， 这 些 表 就 会 陷 人 不一致 的 状态 。 事 务 〈transaction ) 是 一 组 SQL 语句 ， 它 们 作为 同一 个 执行 
单元 ， 要 么 执行 成 功 ， 要 么 全 部 失败 。 例 如 ，INSERT、UPDATE 和 DELETE 语句 可 以 放 在 同一 组 
中 执行 。 如 果 其 中 一 个 语句 失败 的 话 ， 则 其 他 所 有 语句 都 不 会 执行 。 
在 默认 情况 下 , MySQL 会 把 autocommit 模式 设置 为 打开 (on) 状态 。DBI 在 默认 情况 下 也 开 
启 了 autocommit 模式 。 这 就 是 说 ， 一 旦 用户 执行 完 任意 一 条 修改 表 的 语句 ， 同 时 没有 返回 任何 错 
误 的 话 ，MyYSQL 就 会 立刻 将 该 语句 提交 给 数据 库 ， 并 持久 化 任何 影响 到 数据 表 的 操作 。 

如 需 使 用 MySQL 中 的 事务 机 制 ， 则 必须 关闭 其 autocommit 模式 。 在 Perl 脚本 中 ， 用 户 可 以 
通过 在 连接 数据 库 时 设置 散 列 值 AutoCommit=>0 的 方式 达成 该 效果 ， 正 如 示例 17.43 所 示 。 
在 前 面 展示 的 示例 中 ， 当 用 户 连 接 到 某 个 数据 库 时 ，connect(0) 方法 用 到 了 有 关 错 误 处 理 的 散 
列 选项 ， 即 PrintError 和 RaiseError。 而 在 使 用 事务 时 ， 用 户 必 须 关 闭 AutoCommit 属性 ， 打 开 
RaiseError 属性 ， 并 把 可 选 的 PrintError 属性 设置 为 “on” 或 “off”， 其 中 “on” 是 默认 情况 。 


示例 17.43 


LEE =DE2eonnse 避 VEOIESSiOIE 本 Se 













































































EEC 过 由 
RaiseError => 1 
匀 Autocommit => 0 


】 





RaiseError 告诉 DBI， 如 果 磁 到 错误 的 话 ， 就 打印 $SDBI::errstr 消息 并 退出 程序 ; 而 PrintError 
(默认 是 打开 的 ) 将 促使 DBI 借助 SDBI::errstr 发 送 一 条 警告 信息 ， 并 让 程序 继续 执行 。 

提交 和 回 滚 。 所 谓 提 交 (commit)， 指 的 是 在 事务 中 执行 一 组 语句 ， 并 将 它们 作为 同一 个 组 
Cgroup) 发 送 给 数据 库 。 如 果 其 中 所 有 语句 都 执行 成 功 ， 则 提交 这 个 组 ， 从 而 完成 数据 库 的 修改 。 
但 是 ， 如 果 组 内 任意 一 个 语句 发 生 错误 的 话 ， 就 会 引发 一 次 回 徐 (rollpack) 命令 ， 并 将 所 有 的 表 
退出 到 以 前 的 状态 。 

当 在 Perl 中 处 理事 务 时 ， 往 往 会 利用 eval 块 来 跟踪 错误 ， 然 后 使 用 commit(O 或 rollback() 方 
法 来 完成 事务 。 

下 面 这 个 示例 将 把 一 组 记录 播 入 到 表 中 。 如 果 在 添加 这 些 记 录 项 的 过 程 中 发 生 错误 ， 则 整个 过 
程 都 将 会 回 潜 。 这 里 发 生 错误 是 很 常见 的 事 ， 因 为 可 能 某 个 记录 项 已 经 存在 了 。 
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示例 17.44 


1 use DBI qw(:sql_tyPes) : 


羽 7 二 
{ 
RE 下 攻 三 > 本 
本 RaiseError => 1 
4 AutocCcommit => 0 
} 
JEadmeaesonnscancnEeEmOhE 汪 9 卫生 OUIESD 和 站 日 入 全 下 下 直人 
5 my Qrows = (# New Frows to pe insertea 
amoaeeeseeies 本 
全 是 太 让 二 大 作用 丰 于 六 昌 二 全 人 
eemonED 二 交 二 二 四 册 中 太 
"Cheyenne Chazrgers'，6，0 ]， 


过 
术 


[ 
[ 
[ 
[ 


) 
my $sdq1 qq{ INSERT INTO teams VALUES ( ?，?2，?2 ) )}: 
my $sth $dbh->Prepare( $sql1 ) : 
foreach S$Param (Grows) 1{ 

EYaa HH 星光 E 本 二 文才 太 CE 
0 SSsth->bind param( 1，S$Sparam->[0]，SQeL VRARCHRAR ) ， 

Saens>onaomwacam2Seaamns PESOEEINIERCER 王 还 

Sns2oarmoaam ESRaams ESOEEINIRGER)E 

S$sth->execute () or Qie:; 

了 


FOODCN 


河 大 SEERESIGRD) 让 有 可 天 站岗 0 
warn "Database error: S$DBI: :errstzrNn"i; 
王 肥 $dbh->rollLlback () ; # Revrerse al1] commit statements 


elsel{ 
提 号 NE 机 于 
EnegsmeesssN 





Ssth->finish()， 
ONEOOEESNOEEELNR 


解释 
1. 借助 特殊 的 DBI::sql_types 标签 ,引入 一 些 表 示 SQL 标准 类 型 值 的 稼 量 。 第 10 行 处 的 bind_param 
方法 将 用 到 这 些 常量 。 
2. 产生 一 个 指向 MYSQL 数据 库 的 连接 。 
3. 打开 RaiseError 属性 ， 以 便 捕 获 异 和 常 ， 并 在 捕获 后 退出 程序 。 
4. 关闭 AutoCommit 属性 ， 从 而 让 SQL 语句 不 会 自动 发 送 到 数据 库 ， 而 是 必须 手动 提交 。 
5. 创建 一 个 匿名 数组 列表 ， 用 于 表示 将 要 插入 表 中 的 各 行内 容 。 
6. 创建 一 个 SQL 语句 ， 以 便 在 晚 些 时 候 播 入 新 的 球 队 ; 甚 值 将 替换 其 中 的 ? 占 位 符 。 
7. 准备 SQL 语句 。 返 回 一 个 语句 绑 定 。 
8. 使 用 foreach 循环 遍历 将 要 添加 的 每 一 行内 容 。 
9. 进入 eval 块 。 如 果 磁 到 错误 的 话 ， 就 把 它 赋 值 给 特殊 变量 $@， 见 第 11 行 。 
10. bind_param() RE 行 中 的 首 个 占 位 符 〈 即 ?) 上 。 当 第 一 次 进 


入 循环 时 ， 其 第 一 个 参数 $param->[0] 是 “Tompa Terrors  。 其 类 型 是 SQL _VARCHAR。 此 
后 , 第 三 个 参数 param->[1] 则 会 绑 定 到 第 二 个 占 位 符 〈 即 ?) 上 。 当 第 一 次 通过 循环 时 , 它 
表示 胜利 的 次 数 ;， 辟 如 三 次 。 依 此 类 推 。 

11. 如 果 eval 块 中 某 一 条 语句 执行 失败 的 话 ， 该 变量 将 设置 为 错误 的 内 容 。 

12. 如 果 eval 块 中 的 任意 一 条 语句 执行 出 错 的 话 ， 所 有 这 些 语 名 都 将 丢弃 。 数 据 库 将 回 滚 为 其 
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原始 状态 。 换 而 言 之 ， 如 果 某 个 事务 失败 的 话 ， 什 么 都 不 会 发 生 。 


13. 如 果 没 有 出 错 ， 则 执行 该 语句 块 


， 甚 中 所 有 的 插入 动作 都 将 会 发 生 。 


17.7 使 用 CGI 和 DBI 选择 并 显示 记录 项 





在 学 会 了 如 何 连接 数据 库 并 提交 查询 之 后 ， 用 户 可 能 就 想 在 自己 的 CGI 脚本 中 使 用 DBI 来 为 








动态 Web 页 面 存储 并 检索 数据 。 下面 第 一 个 示例 通过 一 段 简单 的 CGI 程序 展示 了 如 何 从 数据 库 中 


获取 数据 ， 然 后 把 它们 格式 化 为 一 张 表 ， 


并 发 送 到 用 户 的 说 览 器 上 。 


示例 17.45 


1 #!c:/ActivePerl/bin/pPer1l.exe 
汉 汪 DSSDIEOLZ 
SEETWSS ESnOSE CE 


4 my $dbn = 


四 SECEDETETYSGHEIOSEE EGRNNOSIECISEaSaSESSmILE 汪 co 


Userc=tootrPpasswordq=dquig1ley 
下 0 可 恰 忆 已 RET ES 


5 my $sth=$dqbh->prepare ("SELECT 


$Ssth->execute () 


ESOmSSE ESSmee 覃 do 


xiERROMECOSCIeS 有 


6 ESQSe SSE 


三 书 蕊 已 @@ 





LOR=>"#66ffE33") ， 


站 十 国 这 过 国语 罗 而 三 ES 让 性 
TECNESEECEEITENY ESENIEESNETEOIES W 玉 


了 让 生性 且 有 肌 可 有 放生 
8 whiles (mean = SSstn=>fstEcneonwaccay 内 U 


ER 
过 下 于 之 
ED 要 故 度 
RE 国医 性 和 区 
SR 可可 从 2 本人 局 梧 这 
SS 避 用 避 攻 全 四 芭 
| 区 二 
全 之 
卫 OR 
】 
人 
Be 旺 全 Emma ( 堆 玉 
SEENE 人 TIET 人 有 
So ESCEGmnSEE 


解释 


1. shbang 〈 镑 符号 ,bang 行 ) 把 Perl 的 安装 位 置 提 供给 Web 服务 右 , 以 便 后 者 启动 正确 的 Perl 
解释 器 。 不 管 在 什么 操作 系统 上 使 用 Apache 服务 器 ， 本 行 都 是 必需 的 。 








惟 上 MP 


在 这 个 程序 中 ， 我 们 将 使 用 DBI 模块 访问 MySQL 数据 库 。 

. 我 们 将 使 用 面向 函数 版 本 的 CGI 模块 ， 以 便 使 用 标准 CGI 国 数 来 访问 Web 浏览 器 。 
. 生成 一 个 指向 MySQL 数据 库 的 连接 。 

. 叭 备 一 条 SQL SELECT 语句 。 它 将 为 coaches 表 检 索 所 有 的 记录 。 
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6. CGI header 畏 数 设置 了 “Content-type: text/htmlnn” 行 ; 而 HIML 首部 则 负责 设置 其 标题 
和 HTIML 页 面 上 颜色 。 这 些 信息 将 通过 通用 网 关 〈Common Gateway) 发 送 给 服务 器 , 进而 发 
送 到 浏览 右上。 

7. 创建 一 个 HIML 表 ， 它 持 有 数据 库 返 回 的 数据 。 

8. 当 获 取 到 来 自 数 据 库 的 数据 时 ， 首 先 对 它们 进行 格式 化 ， 并 发 送 回 服务 器 ， 然 后 在 浏览 器 窗 
口中 把 它们 显示 为 一 张 表 。 


下 面 第 二 个 示例 则 为 我 们 提供 了 一 整套 疲 程 。 


Web 浏 览 器 Web 服 务 器 Per1 脚 本 


Ar 口 = 
Internet 一 一 pp 一 -一 


MySQL 服 务 器 MySQL 数 据 库 
< 一 
Doftcbose 
一 一 一 一 一 一 一 
一 -sr- 癌 一- 国 


图 17-21 从 浏览 器 到 数据 库 的 客户 端 / 服务 器 模型 








CGIpm 创建 了 一 个 由 文本 字段 构成 的 简单 HTML 表单 。 用 户 将 选择 一 支 球 队 ， 把 球 队 名 称 键 
入 表单 ， 然 后 提交 这 个 表单 。CGI 程序 将 处 理 表单 信息 ， 使 用 DBI 模块 连接 到 MYSQL 数据 库 ， 检 
索 球 队 信息 ， 进 行 格式 化 ， 并 以 一 个 HIML 表格 的 形式 发 送 回 浏 览 右 。 








E 吕 Jr Heoy boolimars Iook Hep 
人 - - 铭 集 [日 npcshoajosbmd 


命 catng sarted 园 LUxtest Heedinez 


Contents of the "coaches" Table 





John Doe Chco Hardbats Head Coach 2002.12-10 





2 | Jack NMattsone Chico Hardhats Offensrve Coach 2004-10-05 








Joe Hayes Fremont Tigers Defensre Coaxch 1%8.06-16 





| Bud Wains | Fremont Tigers Head Coach 1%9-09-06 


George Jone3 | aeevaer Ofpensrve Coach 2003.09-03 


- 
| Jerry O'Connel | poriland Pengums | Head Coach 2006-02-22 








图 17-22 DBI 与 CGI 输出 
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示例 17.46 


山 槛 TEACETVEPETL/DInVPSTEL ERSE 


2 use DBI: 
3 民 记 要 BGA EDoioEReeHE 


[ee 
-BGCOLOR=>"#66ff337" 
5 


4 ES 上 七 二 工 二 本 二 提 荆 人 On 巧合 可 早生 全 王 下 可 国 
Look up what team? "七 extfieLld('name')vP: 
本 Eraine usubnit enduftocrmA nz7 


6 if(Param()) 1{ 


风 S$team = Param('name') : 
8 S$qdbh = 
RCIESG EDEEIWVESE SEOESEEEIOSSCSESOSESDaSe 三 Sm 二 三 Qi 
Usetr=ioot;password=quigley1l") or 
DTEnEEoDEe ES 各 本 全 间 王 和 有 导 和 全 生 下 臣下 六 
日 S$sth=S$dqbh->prepare("SELECT name， wins，1losses 
EROM teams Where name = ?7" 


) 7 
S$sth->execute (S$Steam) ， 


di if ($Ssth->rows == 0)1{ 
EnonceessmngEOECEREE 汪 SEE 二 
全 着 


】} 
人 
Walesnanen wmsRsSlossssh) ES 三 > 人 etEcnaecwEae2a 人)i 
风 1 本 
<table borader="1"” bgcolor="yel11ow"> 
二 全 
< 上 tnh>Name</th> 
REVWIRSES 人 en 
<th>Losses</th> 
< 
过 丰 天 之 
<td>Sname< /td> 
ERSNTES<AEGO> 
<td>S$1losses</td> 
< 
</tab1le> 
民 汉 了 OFR 
SEE 情人 志 球 
S$Ssth->finish() 
laEeSGGnERE 人 区 
} # Ena while JIooP 
情人 


1. shbang 〈 镑 符号 ,bang 行 ) 把 Perl 的 安装 位 置 提 供给 Web 服务 右 , 以 便 后 者 启动 正确 的 Perl 





解释 器 。 不 管 在 什么 操作 系统 上 使 用 Apache 服务 器 ， 本 行 都 是 必需 的 。 
2. 在 这 个 程序 中 ， 我 们 将 使 用 DBI 模块 访问 MySQL 数据 库 。 





3. 我 们 将 使 用 面向 国 数 版 本 的 CGI 模块 ， 以 便利 用 标准 CGI 函数 来 访问 Web 浏 


[点 DR 
网 除 。 
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4. 该 函数 开始 一 个 HIML 表单 。 该 表单 非常 简单 。 它 仅 由 一 个 HIML 文本 字段 构成 ， 用 户 将 
在 其 中 输入 数据 。 

.CGI submit 函数 负责 创建 表单 的 Submit 按钮 。 当 用 户 按 下 Submit 按钮 时 ， 表 单 就 会 提交 ， 
同时 将 输入 到 文本 字段 中 的 数据 发 送 给 CGI Perl 脚本 ， 以 便 进 行进 一 步 地 处 理 。 

. 由 于 CGI 模块 将 这 段 Perl 脚本 赋予 了 HIML 表单 中 的 ACTION 属性 ,因此 该 Perl 脚本 将 
负责 接收 并 处 理 表 单数 据 。CGI 模块 将 会 检查 其 是 否 有 参数 , 也 就 是 说 检查 表单 是 否 返 回 了 
数据 ? 如果 params 国 数 返回 真 〈true)， 就 说 明 表 单 已 经 提交 ， 这 段 程序 将 继续 执行 。 如 有 果 
param 国 数 返回 假 〈false) 的 话 ， 则 说 明 该 表单 尚未 提交 。 

.HIMEL 表单 中 的 文本 字段 名 为 “name”。CGI param 国 数 以 文本 字段 名 为 参数 ， 并 能 返回 赋 
给 它 的 值 ; 在 这 里 就 是 球 队 的 名 称 。 

8. 连接 到 MySQL 数据 库 ， 使 用 sample_ db 数据 库 。 

9. 准备 一 条 带 有 占 位 符 的 SQL 语句 , 该 占 位 符 将 在 晚 些 时 候 赋 值 为 ttams 表 中 某 支 球 队 的 名 称 。 

10. 执行 查询 ， 并 发 送 用 户 在 填写 表单 时 选中 的 球 队 名 称 。 

11. 当 数 据 库 返 回 结果 集 之 后 , 启动 一 个 here doc。 在 这 个 here doc 中 创建 一 个 HIML 表格 ， 
以 便 在 浏览 器 中 以 展 好 的 结构 格式 显示 来 自 数据 库 的 结果 集 。CGI 将 把 该 表格 发 送 给 Web 
服务 器 〈Apache)， 进 而 显示 到 训 览 器 〈Firefox) 上 。 

12. 这 个 用 户 定 义 的 终止 符 表 明 here doc 到 此 结束 。 请 记 住 ， 该 标记 必须 位 于 Perl 脚本 的 最 左 
侧 一 列 ， 并 且 其 后 不 能 出 现 空格 ， 事 实 上 ， 它 的 后 面 必 须 以 一 个 换行 符 结尾 。 


Eile Edit wew History Bookmarks TIools Help 


(LA 


CN 








~ 














< 人 = 立 候 (党 | 器 http:jocalhostjcgi-binygetdatadb,pl 





[ Customize Links 给 fie:WEJVDocuments，， 巴 Free Hotmail &2 RealPlayer 


LooKUP whatteam2 |chico Hardhats 
SubmitQuery | 








Data for Chico Hardhats 


Name Wins|ILosses 
chico Hardhatsl18 6 











图 17-23 CGI、DBI 与 一 个 表单 





17.8 还 有 哪些 内 容 


本 章 介 绍 了 MYSQL 关系 型 数据 库 , 以 及 如 何在 mysql 客户 端 中 执行 SQL 语句 。 在 学 习 了 命令 
行 下 的 基本 查询 之 后 ,本 章 接着 介绍 了 Perl DBI 模块 ,以便 用 户 能 在 Perl 脚本 中 执行 相同 的 mysql 
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国 数 。 我 们 讨论 了 最 为 常用 的 DBI 方法 ， 以 及 如 何 使 用 这 些 方法 连接 数据 库 、 选 择 和 检索 数据 、 更 
新 并 移 除 记 录 ， 等 等 。 最 后 我 们 更 进一步 ， 创 建 了 一 段 CGILPerl 程序 ， 并 使 用 DBI 模块 生成 了 一 
个 动态 Web 页 面 ， 该 页 面 能 与 来 自 表 单 的 用 户 请 求 进行 交互 ,并 通过 从 数据 库 中 检索 到 的 数据 予以 
响应 。 

尽管 我 们 已 经 学 习 了 DBI 的 主要 内 容 ， 但 前 面 还 有 很 多 知识 等 待 去 发 掘 。 如 需 搜 索 有 关 DBI 
(包括 甚 方法、 变量、 常量 、 函 数 等 ) 的 详细 文档 ， 读 者 可 在 如 图 17-24 所 示 的 CPAN 知识 库 中 找 
到 最 佳 的 资源 。 

















DB Dalabase Indepandenl interfece for Perl: saarchcpan.or8 :Mozilla Firefox 
区 怠 Jomw HEzory Booimeris JIoox Hep 


审 - 守 -@ 伪 [全 ppyiewahan oortmbipet150iDelpm 


鲜 cutng srted 园 Latet Hesdinez 


CC 也 人 N Home ”Authors “Recent ”News ”Mirrors ”FAQ Feedback 
in 1 All 


司 [CCEANsesd] 


TmeBunce>DBL150>DBI 


Module Version' 150 Source Latest Rele8se' DBL159 














图 17-24  CPAN 知识 库 








17.9 读者 应 当 学 到 的 知识 


. 什么 是 关系 型 数据 库 ? 
. 什么 是 MySQL ? 

. 从 哪里 可 以 狭 得 MySQL ? 

. 什么 是 MySQL 客户 端 ? 

. 如 何 为 MYSQL 设置 口令 ? 

. test 数据 库 有 什么 用 ? 

. mysdql 数据 库 有 什么 用 ? 

. 什么 是 SQL ? 

. 什么 是 DBI ?如何 获取 它 ? 

10. 什么 是 DBLMYySQL ? 

11. 什么 是 数据 库 句 柄 〈database handle) ? 
12. 什么 是 语句 句柄 〈statement handle) ? 





\D oo ~ 了 ww 上 wmwib 一 
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13. Perl 是 如 何 查询 数据 库 的 ? 结果 集 在 哪里 结束 ? 

14. 在 为 Perl 的 prepare 方法 准备 查询 〈query) 时 ， 它 与 在 MySQL 客户 端 中 生成 的 查询 是 否 
一 样 ? 

15. 如 何 从 Perl 程序 中 检索 结果 集 ? 

16. 什么 是 缓存 查询 〈cached query) ? 

17. 占 位 符 (placeholder) 有 什么 用 ? 

18. 如 何 获知 数据 库 连 接 是 否 成 功 ? 

19. 如 何 从 Perl 脚本 中 关闭 数据 库 ? 

20. Tim Bunce 是 谁 ? 

21. 哪里 可 以 找到 有 关 Perl DBI 的 入 门 教 程 ? 

22. CGI 和 DBI 是 如 何 协作 的 ? 





























Tu 


17.10 “下 章 简介 


下 一 章 将 讨论 Perl 脚本 如 何 通过 执行 系统 调用 来 实现 与 操作 系统 的 交互 ,并 将 介绍 一 些 Perl 函 
数 ， 负 责 处 理 目 孙 、 权 限 、 属 主 、 硬 链接 与 软 链接 、 文 件 重 命 名 、 歼 取 文 件 统计 信息 等 功能 。 读 者 
将 学 习 如 何在 基于 UNIX 和 基于 Windows 的 系统 上 使 用 这 些 国 数 。 





练习 17 Select * from Chapter 


第 一 部 分 SQL 实验 室 一 一 使 用 “northwind” 数 据 库 
1. 从 一 段 脚 本 中 载 入 “northwind” 数 据 库 。 
2.“northwind” 数 据 库 对 于 Microsoft 的 Access Database 而 言 是 一 个 优秀 的 示例 数据 库 ， 它 经 过 
裁剪 后 也 适用 于 MySQL。 
3. 本 练习 为 读者 提供 了 一 个 “northwind.sqd1” 脚 本 〈 在 华章 网 站 www.hzbook.com 上 )， 该 文件 含 
有 创建 并 填充 northwind 数据 库 的 SQL 语句 。 该 文件 必须 位 于 正在 运行 mysql 的 客户 端 主机 上 。 
4. 为 执行 该 脚本 ， 请 读者 登录 MYSQL 控制 台 窗口 ， 并 键入 如 下 内 容 : 
Source c:\document\northwind.sql 
《请 注意 ， 文 件 名 两 边 是 没有 引号 的 ， 绝 对 和 相对 路 径 名 在 这 里 都 可 使 用 。) 
执行 SQL 脚本 的 其 他 方法 ; 
mysql> SOURCE C:path\northwind.sql; 
mysql> SOURCE .path\northwind.sql; 
Shell> mysql db_name < input_file 
当 脚本 执行 时 ,其 结果 将 显示 在 屏幕 上 , 它们 大 部 分 都 是 SQL“insert ”语句 。 当 碰 到 错误 时 ， 便 
会 退出 处 理 流 程 ， 并 且 不 返回 任何 值 。 
详 见 : http:/showroom.declarativa.com/northwind.htm 
练习 SQL 命令 
1. 在 执行 完 northwind.sql 脚本 后 ， 首 先 键 入 “use northwind”。 
2. 键入 如 下 SQL 命令 ， 并 解释 它们 都 做 了 什么 。 
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a. SHOW DATABASES; 
b. SHOW TABLES FROM NORTHWIND; 
c. SHOW FIELDS FROM SHIPPERS; 
d.DESCRIBE SHIPPERS 。 
3. 请 读者 使 用 SQL 入 门 练习 ， 并 执行 : 
从 Shippers 表 中 选择 所 有 的 行 ， 并 显示 其 字段 。 
从 Employees 表 中 选择 所 有 的 行 ， 并 只 显示 其 FirstName 与 LastName 字段 。 
当 Country 值 为 Italy 时 ， 从 Customers 表 中 选择 CompanyName 与 Phone 字段 。 
按照 排列 后 的 顺序 从 Customers 表 中 打印 ContactName 和 Country 字段 ， 并 按 Country 排序 。 
当 Country 值 以 “Po” 或 “Sw” 开 头 时 ， 从 Customers 表 中 选择 ContactName、CompanyName 
和 Country 字段 。 
获取 Products 表 中 所 有 产品 的 数目 。 
从 Products 表 中 打印 前 10 个 产品 。 
不 重复 地 从 Customers 表 中 以 字母 表 顺 序 选 择 国 家 。 
找 出 所 有 介 于 $10 和 3$20 之 间 的 产品 。 
插入 一 个 新 产品 。 
更 新 Products 表 ， 把 Sir Rodney 的 Marmalade 单价 加 上 $5.25 。 
选择 所 有 库存 量 小 于 10 个 单位 的 产品 。 
删除 数据 库 中 最 和 久远 的 订单 。 
使 用 一 个 SQL 国 数 打 印 当前 日 期 与 时 间 。 
第 二 部 分 Perl/MySQL 实验 室 
和 咨询 MySQL 文档 (mysqlcom), 从 中 获取 本 练习 需要 的 正确 数据 类 型 与 国 数 。 该 文档 写 得 非常 出 色 。 
1. 创建 一 段 名 叫 “school.sql” 的 SQL 脚本 ， 实 现 如 下 功能 ， 
a.DROP SCHOOL IF EXISTS SCHOOL; 
b. CREATE SCHOOL; 
c. 创建 一 个 名 叫 “student” 的 表 ， 含 有 如 下 字段 : 


77SstNVa1I1e 





























了 astNVa11n1e 
瑟 11011 
CelLLPHome 
Major 
CP4 
9tartDate 
9tude1tD (DFI1a177 Ke 切 
2. 使 用 上 述 school 数据 库 
a. 向 student 表 中 揪 入 三 行 数据 。 
3. 在 MySQL 提示 符 下 ， 执 行 “school.sql1” 脚 本 。 
使 用 SQL 的 describe 语句 查看 school 数据 库 的 结构 。 
4. 选择 student 表 的 所 有 行 。 如 果 该 表 舍 有 和 预期 值 一 样 的 列 与 数据 ， 读 者 便 可 准备 进入 本 练习 的 
下 一 部 分 。 
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5. 在 一 段 Perl 脚本 中 ， 使 用 DBI 模块 实现 : 
a. 连接 MySQL， 并 打开 school 数据 库 。 
b. 准备 一 个 缓存 查询 ， 负 责 选 取 student 表 中 所 有 的 行 ， 并 按 形 式 排 序 ， 
有 的 列 。 


汐 I 


后 以 题 头 形式 显示 所 


a. 创建 另 一 个 Perl 脚本 ， 让 用 户 从 菜单 中 选择 如 下 选项 : 
1) Update a record 
2) Delete a record 
3) Insert a new record 
4) Display the table 
3) Exit 
针对 菜单 中 的 每 个 选项 , 使 用 MySQL 函数 创建 一 个 负责 执行 指定 任务 的 子 例 程 。 读 者 可 否 创 
建 一 个 CGI 程序 来 处 理 所 有 这 些 逻 辑 呢 ? 
b. 创建 一 个 循环 ， 不 断 重 新 显示 上 述 菜 单 ， 直 到 用 户 选 择 5 为 止 。 
c. 重 写 上 述 程序 , 关闭 AutoCommit 并 打开 RaiseError 属性 。 在 用 户 选 择 退 出 时 , 才 把 所 有 修改 
操作 提交 给 数据 库 。 
第 三 部 分 ” 回 到 Checking.pm 
1. 现在 ， 读 者 不 妨 重新 设计 原 有 的 Checking.pm 模块 ， 让 它 使 用 MySQL 数据库， 而 不 是 原本 用 于 
跟踪 余额 信息 的 文本 文件 。 
在 mysql 提示 符 下 创建 数据 库 和 注册 表 。 该 注册 表 应 当 含 有 一 些 字段 , 它们 匹配 于 在 练习 一 中 创 
建 的 “register” 文 本 文件 。 
在 Perl 模块 Checking.pm 中 打开 数据 库 连 接 。 如 需 获 取 余 额 值 ， 应 当 从 “register” 表 中 选取 。 
当 读者 调用 exitO 国 数 时 ， 就 会 使 用 SQL INSERT 命令 把 前 一 个 含有 新 信息 的 事务 插入 到 数据 库 中 。 
创建 一 个 Perl 国 数 ， 它 会 在 调用 时 显示 注册 表 的 内 容 。 
读者 应 当 了 解 如 何 去 : 
使 用 PPM 和 CPAN 安装 MySQL、DBI 以 及 数据 库 驱 动 。 
执行 基本 的 MySQL 命令 。 
从 一 段 Perl 脚本 中 连接 到 数据 库 服 务 器 。 
使 用 Perl MySQL 国 数 实现 : 
选择 一 个 数据 库 
准备 并 执行 SQL 语句 
使 用 DBI 方法 遍历 结果 集 
使 用 占 位 符 
绑 定 列 和 参数 
检查 由 数据 库 服 务 器 产生 的 错误 
跟踪 检索 到 的 记录 数目 
丢弃 已 经 准备 好 的 查询 
从 一 段 Perl 脚本 中 断 开 数据 库 连 接 
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18.1 系统 调用 





从 shell( 批 处 理 ) 编程 转 到 Perl 编程 的 程序 员 往往 希望 Perl 与 shell 一 样 只 是 由 一 组 UNIX (或 
MS-DOSNT) 命令 组 成 的 序列 。 然 而 ，Perl 并 不 像 shell 那样 直接 访问 系统 实用 程序 。 当 然 ， 为 了 
实现 其 功能 ，Perl 必须 通过 某 种 途径 与 操作 系统 进行 交互 (interface )。 事 实 上 ，Perl 提供 了 一 组 专 
门 负责 与 操作 系统 交互 的 国 数 。 这 些 国 数 与 UNIX 系统 调用 直接 相关 , 因此 读者 经 常 可 以 在 C 中 找 
到 它们 。Windows 也 支持 很 多 UNIX 系统 调用 。 本 书后 面 还 将 列 出 一 些 在 通常 情况 下 不 支持 的 系统 
调用 。 

系统 调用 〈system call) 负责 向 操作 系统 〈 内 核 ) 请 求 某 些 服务 ， 和 譬如 获得 当前 时 间 ， 删 除 文 
件 ， 创 建新 进程 ， 终 止 进程 ， 等 等 。 最 重要 的 一 组 系统 调用 涉及 进程 的 创建 与 终止 ， 内 存 的 分 配 和 
释放 ， 以 及 向 进程 发 送信 息 〈 璧 如 信号 )。 其 他 的 系统 调用 还 与 文件 系统 相关 ， 包 括 创建 文件 、 读 
写 文件 、 创 建 和 删除 目录 、 创 建 链接 等 9。 

UNIX 引 系统 调用 在 UNIX 手册 页 的 第 二 部 分 中 已 有 说 明 。Perl 的 系统 函数 不 论 在 语法 上 还 是 
在 实现 上 都 几乎 与 它们 相同 。 如 果 系 统 调 用 失败 ， 它 会 返回 -1, 并 将 系统 全 局 变量 errno 设置 为 表 
明 错 误 原 因 的 值 。C 程序 可 使 用 perror 国 数 获 取保 存在 errno 中 的 系统 错误 信息 ; 而 Perl 程序 则 使 
用 特殊 变量 $! 〈 详 见 “ 错 误 处 理 ” 一 节 )。 

当 需 要 获取 或 处 理 有 关 文 件 或 进程 的 信息 时 ， 可 使 用 下 面 介 绍 的 Perl 函数 执行 各 种 系统 调用 。 
如 果 Perl 没有 提供 所 需 系统 调用 ， 则 可 使 用 Perl 的 syscall 函数 ， 该 函数 以 UNIX 系统 调用 作为 参 
数 〈 详 见 “syscall 国 数 和 h2ph 脚本 ”一 节 )。 

除了 内 建 的 函数 外 ， 标 准 Perl 库 还 捆绑 有 200 个 各 类 模块 ， 可 用 于 对 文件 、 目 孙 、 进 程 、 网 络 
等 执行 可 移植 的 操作 。 如 果 已 经 安装 了 ActiveState 的 话 ,， 在 标准 Perl 库 c:\Perl\site\lib\win32 中 还 
提供 了 一 组 Win32 模块 库 集合 。 

读者 如 需 从 标准 Perl 库 中 读 取 任何 模块 〈 其 文件 名 中 带 有 .pm 扩展 名 ) 的 相关 文档 ， 可 使 用 
Perl 内 建 的 perldoc 函数 或 UNIX 的 man 命令 。 此 外 ，ActiveState (Win32) 提供 了 在 线 文档 ， 读 



























































台 ”系统 调用 能 够 直接 进入 内 核 ， 而 库 调 用 则 是 调用 系统 调用 的 国 数 。Perl 的 系统 接口 国 数 是 根据 其 对 应 的 
UNIX 系统 调用 的 名 字 而 命名 的 。 
@ 从 现在 开始 ， 本 书 提 到 UNIX 的 地 方 也 同样 适用 于 Linux。 
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者 可 以 按 下 “开始 ”->“ 程 序 ”， 然 后 选择 “ActiveState” 来 找到 这 些 文档 。 


示例 18.1 


(At the commanad 1Line) 
山 $ Perldoc Copy.Pm 


和 和 | 
perldoc 函数 以 模块 名 〈 带 有 或 不 带 .pm 扩展 名 ) 作为 参数 。 它 能 在 窗口 〈 在 Win32 平台 上 是 
Notepad 记事 本 窗口 ) 中 显示 模块 的 文档 。 本 示例 显示 了 标准 Perl 库 中 Copy.pm 模块 的 部 分 文档 。 





番 perldoc1.1000 - Notepad 
File Edit Format Help 


E 
File::Copy - Copy files or filehand]es 


SYNOPSIS 
Use File::Copy; 


copyC "fi1e1l"，fji1e2 7); 
COPYC Copy. pm" ,NSTDOUTD); 
move(C "devwlLyTji1ena”" “dev2yTi1e6 ”7 ; 


use POSIX; 
use Fi1e::Copy cp; 


$n=Fji1eHand1e->newC" zxdevznul11”， Pr ; 
CPK$n，X “9D3 








图 18-1 perldoc 和 Copy.pm 模块 


18.1.1， 目录 和 文件 


在 浏览 文件 系统 时 ， 目 录 都 是 以 斜 杠 隔 开 的 。UNIX 文件 系统 使 用 正 斜 枉 〈/) 指定 根 目录 ， 其 





后 是 由 正 斜 杠 隔 开 的 子 目 录 。 如 果 指 定 了 文件 名 





， 它 一 定 是 路 径 的 最 后 一 部 分 。 文 件 名 和 目 孙 名 都 








是 大 小 写 敏 感 的 , 由 字母 和 数字 字符 构成 , 并 且 不 允许 出 


现 空白 符号 。 文 件 名 中 的 点 号 〈.) 没有 特 


殊 意 义 ， 但 可 用 于 隔 开 基 本 文件 名 





和 扩展 名 ， 譬如 program.c 或 file.bak。 文 件 名 的 长 度 随 着 操作 系 





统 的 不 同 而 不 同 ， 最 少 可 以 是 一 个 字符 ， 而 大 多 数 UNIX 文件 系统 的 最 大 允许 长 度 是 255 个 字符 。 
只 有 根 目录 才能 命名 为 /〈 正 斜 粒 ) 2 。 

Win32 中 的 文件 系统 主要 包括 FAT、FATIT32 和 NTFS， 它 们 使 用 不 同 的 规范 规定 目录 路 径 ， 其 
中 最 基本 的 FAT 目录 和 文件 都 是 通过 反 斜 枉 〈\) 而 分 隔 的 。 其 名 称 是 大 小 写 敏 感 的 ， 最 初 限制 为 














8 个 字符 ， 其 后 是 一 个 点 号 ， 后 缀 是 不 超过 3 个 字符 的 扩展 名 。( Windows 2000/NT 允许 更 长 的 文 
件 名 )。 其 文件 系统 的 根 目录 是 C:\ 或 者 D:\， 而 不 是 只 有 反 斜 杠 。 在 网 络 环境 中 ， 其 通用 命名 规范 











CUNC) 使 用 不 同 的 规范 来 分 隔 路 径 中 的 各 部 分 ， 璧 如 在 /myserver\dirvdir 中 就 将 驱动 器 盘 符 替换 
成 了 两 个 反 和 斜 杠 。 

反 和 斜 杠 问题 。 在 Perl 脚本 中 ， 反 和 斜 杠 一 般 用 作 转 义 符 或 引用 字符 〈 如 \n、\t、\U 和 \$3500 等 )。 
因此 ,在 规定 Win32 路 径 的 分 隔 符 时 ， 经 常 需要 使 用 双 反 和 斜 枉 ， 除 非 个 别 模 块 允 许 把 单个 反 斜 杠 或 
路 径 名 放 到 单 引 号 之 中 。 例 如 ，C:NPermlib\File 应 当 写 作 C:NPerlNlibNFile 。 

File::Spec 模块 。 标准 Perl 库 中 File::Spec 模块 的 设计 目标 是 支持 那些 经 常 对 文件 名 执行 的 可 























层次 结构 的 ， 并 使 用 冒号 来 隔 开 路 径 中 的 各 个 部 分 。 








伯 MacOS 文 件 系统 (CHFS) 也 是 
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移植 操作 。 和 譬如 创建 路 径 组 件 列表 之 外 的 单个 路 径 ， 并 针对 相应 操作 系统 应 用 正确 的 路 径 限定 符 ; 
或 者 将 路 径 拆 分 为 卷 “volumn )、 目 录 和 文件 名 等 。 表 18-1 列 出 了 所 有 File::Spec 函数 的 列表 。 

由 于 这 些 国 数 在 不 同 的 操作 系统 上 都 不 相同 ， 因 此 基于 各 种 OS 的 例 程 集合 都 分 别 归 人 到 不 同 
的 模块 中 。 这 些 模块 包括 : 































































































File:9DPec: MIT 
ile:9Dpec: ac 
Te: SPDec:O92 
ie-SDec: 071032 
File 9Dec: 9 
表 18-1 File::Spec 函数 
国 数 用 途 
abs2re1 根据 目标 路 径 和 可 选 的 起 始 路 径 ， 返 回 从 起 始 路 径 到 目标 路 径 的 相对 路 径 
camompa 矶 不 对 文件 系统 进行 物理 检查 ， 但 是 逻辑 清除 给 定 的 路 径 。 在 UNIX 中 还 会 清除 连续 
的 斜 杠 及 甚 后 面 的 "/ 
CasSe_toleranAt 返回 真 或 假 值 ， 表 明 在 对 比 文件 规范 时 是 否 在 意 字 母 的 大 小 写 
二 连接 两 个 或 多 个 目 孙 名 ， 形成 完整 的 路 径 ， 该 路 径 以 目录 结尾 ， 并 从 结果 字符 串 中 
删 去 位 于 末尾 的 斜 杠 
catrie 将 一 个 或 多 个 目录 名 与 文件 名 相连 ， 形 成 以 文件 名 结尾 的 完整 路 径 
元 曾 根据 卷 、 目录 和 文件 部 分 ， 返回 完整 的 路 径 。 在 UNIX 系统 中 会 忽略 Svolumn， 只 
连接 目录 和 文件 。 如 果 需 要 的 话 就 插入 "/ 
CU17LB7 返回 表示 当前 目录 的 字符 串 ， 在 UNIX 上 就 是 “.” 
devpal1 返回 表示 空 设 备 的 字符 串 ， 在 UNIX 上 是 “/dev/mnull” 
Jile_1a1e is _ apsolute 以 路 径 为 参数 ， 如 果 它 是 一 个 绝对 路 径 ， 则 返回 真 
Joim join 等 同 于 catfile 


170O_UPDIWG1GS 


Pat 
1eL2ap5 


7OO1GI7 


SDLLPDat 


172DGTI7 
UPDGI7 


给 出 文件 名 列表 ， 并 去 除 指向 父 目 录 的 引用 

不 接受 任何 参数 ， 以 数组 形式 返回 环境 变量 PATH 
将 相对 路 径 转 换 为 绝对 路 径 

返回 表示 根 目 录 的 字符 串 ， 在 UNIX 上 是 “/” 


将 路 径 拆 分 为 卷 、 目 录 和 文件 名 等 各 个 部 分 。 在 没有 卷 概念 的 文件 系统 上 ， 对 于 卷 
则 返回 undef 


可 一 个 表示 随后 列表 中 第 一 个 可 写 目 录 的 字符 串 ， 如 果 疫 有 可 写 的 目录 , 则 返回 “” 
回 表 示 父 目录 的 字符 串 。 在 UNIX 上 是 “.…” 


















































亢 议 





示例 18.2 


出 use Eile: :SPec: 
ENEOUS 三 二 放 攻 二 交 和 扯 1oj 三 让 SI 且 ，oj 的 区 和 
本 assSEnamsNn 


电 


人 ESiENE) 
REE 有 三 和 JEG 


用 


解释 


1. 如 果 没 有 指定 操作 系统 的 话 , 则 针对 当前 操作 系统 加 载 File::Spec 模块 ,在 本 例 中 是 Windows 
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2000 系统 。 这 是 一 个 面向 对 象 的 模块 ， 但 它 也 拥有 面向 国 数 的 语法 。 
2. 标量 $pathname 含有 的 路 径 是 由 传递 给 catfile 方法 的 参数 所 构成 的 。catfile 函数 能 够 连接 一 











组 路 径 元 素 。 
3. 打印 新 的 路 径 , 并 使 用 反 斜 杠 分 隔 路 径 的 各 个 部 分 。 在 UNIX 系统 上 , 路 径 应 当 打 印 为 /Perl/ 
lib/CGI。 


18.1.2 目录 和 文件 属性 


UNIX。 大 多 数 常见 的 文件 类 型 都 属于 常规 文件 〈regular file)， 它 们 含有 数据 和 有 序 的 字 节 序 
列 。 其 数据 可 以 是 文本 数据 或 二 进 制 数据 。 有 关 文 件 本 身 的 信息 则 存储 在 称 作 信息 节点 (inode) 的 
系统 数据 结构 中 。 信 息 节 点 内 的 信息 由 属性 构成 ， 这 些 属性 包括 链接 计数 值 、 文 件 所 有 者 、 组 、 模 
式 、 文 件 大 小 、 最 后 一 次 访问 时 间 、 最 后 一 次 修改 时 间 和 文件 类 型 等 。 用 户 可 使 用 UNIX 的 1s 命令 
查看 目录 中 各 文件 的 信息 节点 情况 。 还 可 使 用 stat 系统 调用 检索 这 些 信息 。 此 外 ，Perl 的 stat 函数 
也 能 给 出 有 关 文 件 的 信息 。 该 函数 能 检索 设备 号 、 信 息 节 点 号 、 模 式 、 链 接 计数 值 、 用 户 ID、 组 
ID、 文 件 字 节 大 小 、 上 一 次 访问 时 间 ， 等 等 〈 详 见 “stat 和 1lstat 函数 ”一 节 )。 

目录 是 由 UNIX 内 核 维护 的 特殊 文件 ,其 内 容 是 文件 名 的 列表 。 甚 中 每 个 文件 名 都 具有 一 个 指 
向 相应 文件 信息 的 编号 。 该 编号 又 称 作 信息 节点 编号 (inode number), 指向 相应 的 信息 节点 。 信 息 
节点 中 含有 文件 的 相关 信息 ， 并 指向 文件 数据 块 在 磁盘 上 的 位 置 。 下 面 这 几 个 国 数 负责 操纵 目录 、 
更 改 文件 权限 和 创建 文件 链接 。 

Windows。 文 件 和 目录 中 都 仍 有 朱 述 自身 属性 的 元 信息 。Win32 文件 和 目录 的 四 个 基本 属性 
分 别 是 ARCHIVE、HIDDEN、READONLY 和 SYSTEM。 详 见 表 18-2 。 






























































Directory 了 nt 上 zyY 



































Inoqde 交 FEilename 
表 18-2 文件 与 目录 的 基本 属性 
属 性 描述 
4RCHTTFE 设置 何 时 更 改 文 件 内 容 
DIDDEN 不 显示 在 目录 列表 中 的 文件 
RE4DONMLT 不 能 更 改 的 文件 
S7STEM 特殊 的 系统 文件 , 如 I9.SYS 和 MS-DOS.SYS, 它们 一 般 也 是 不 可 见 的 








如 要 检索 并 设置 文件 属性 ， 可 以 使 用 标准 Perl 提供 的 win32::File 扩展 。 除 非特 别 予 以 说 明 ， 
否则 所 有 函 数 在 调用 失败 时 都 会 返回 FALSE(0)。 用 户 应 当 根 据 需要 把 函数 名 导入 到 调用 程序 的 命 
名 空间 中 。 详 见 表 18-3 。 





表 18-3 ”Win32::File 函数 
人 用 途 


获取 文件 或 目录 属性 。 将 ReturnedAttributes 设置 为 文件 名 属性 
Geld1triputesfFilenamie,Returned4ditriputes) 的 目 孙 属性 。 将 Returne ributes 设置 为 文件 名 属 履 
J or 组合 




















SetdttiriputesfFilenamie,Vew4dttripzutes) 设置 文件 或 目录 属性 。 必 须 将 NewAttributes 设置 为 属性 的 or 组合 
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如 需 检 索 文 件 属 性 ， 用 户 可 使 用 Win32::File::GetAttributes($Path,$Attributes)， 如 需 设 置 文件 





很 多 常量 ， 详 见 示例 18-3。 








属性 , 则 可 使 用 Win32::File::SetAttributes($Path,$Attributes)。 参 见 表 18-4。Win32::File 还 提供 了 


表 18-4 Win32::File 属性 
































属性 描述 
4RCETTE 设置 文件 内 容 的 更 改 时 间 。 通 过 备份 程序 使 用 
COMPRFSSFED Windows 压缩 文件 ， 而 不 是 zip 文件 。 用 户 无 权 设置 它 
DIRECTORZ 该 文件 是 目录 。 用 户 无 权 设置 它 
DIDDEN 文件 在 目录 清单 中 不 显示 
NORM4L 常规 文件 。 不 设置 ARCHIVE、HIDDEN、READONLY 和 SYSTEM 
OFFLTINE 数据 不 适用 
RE4DOML7 不 能 更 改 的 文件 
S7STEHM1 特殊 系统 文件 ， 如 IO.SYS 和 MS-DOS.SYS， 一 般 也 是 不 可 见 的 
TEMPOR4R7 由 某 些 程序 创建 的 临时 文件 





示例 18.3 


站 Use Win32: :File: 


开 汪 这 
下 全 


QQ OO 必 ww 忆 


下 这 


正信 


人 


谎 信 


由 这 


证 全 


下 兴 





下 所 


六 局 下 IE 
(SEE 


95 400 


(Sattr & 


| 本 0 本 0 


(SEE 


介 


(SSEET& 


和 


的 SEE 


1 0 二 0 


(Sattr & 


| 本 汉 下 0 避 辣 00 


(SEE 


人 回 1 十 本 


(SEE 


1 本 ne 0 和 





aa 


SEEe=CSNDEITNeESUE 
Win32::PFile::GetRAttributes (S$ERile， 
Pint "The attzribute value zeturned is: 


READONLY ) { 
le is readonly.Nn" 


ARCHIVE) { 
IE 


HIDDEND) 于 
ESEORNOT 


SYS 下 也 NE 


COMRRRSSEDI 
le is compressed.NXn"; 


下 RCRORS 
下 全 人 


& NORMRAL ) { 
IE 


& OFELINE) { 
TEN 





& TEMPORRARY) { 


le is a system file.NXn"y; 


S$attr) or die' 


SattzRNn" 
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EECRIITEEEEEmecESTRNOEY 
】} 


elsel 

了 Pint Win32: :FormatMessage (Win32: :GetLastEzor) ，"Nn" : 
】} 

ee 

加 Thpe attribute valJue returnea Is 18. 


FIIe Is hiaaen. 
二 


解释 

1. 加 载 Win32::File 模块 。 

2. 将 C: 驱动 器 上 的 文件 夹 Drivers 赋值 给 $File。 

3. 用 两 个 参数 调用 GetAttriputes 国 数 : 第 一 个 参数 是 文件 的 名 字 ， 第 二 个 则 是 READONLY、 
HIDDEN 等 属性 常量 逐 位 or 得 到 的 值 。 该 值 由 函数 GetAttributes 提供 。 请 广 意 ， 这 里 必须 
以 全 限定 的 包 名 来 调用 图 数 GetAttributes。 这 是 因为 该 图 数位 于 Win32::File 模块 的 @EXPORT OK 
中 ， 因 此 必须 由 用 户 专门 地 请 求 ， 或 者 给 出 其 全 限定 的 名 字 。 如 果 是 专门 请 求 的 话 ， 则 其 中 所 有 
的 常量 也 应 当 一 并 列 出 ， 否 则 就 无 法 将 它们 切换 到 用 户 的 命名 空间 中 。 

4. 打印 对 属性 值 执 行 或 《or) 操作 后 的 值 。 如 果 该 值 为 0， 说 明 可 能 有 些 东 西 出 错 了 ， 则 从 第 
7 行 格式 化 并 打印 错误 信息 。 

5. 如 果 文 件 或 目录 的 属性 中 有 一 个 存在 的 话 ,， 则 通过 其 后 面 的 检测 代码 显示 它 究竟 返回 了 哪 一 
种 描述 文件 或 目录 的 属性 。 

6. 把 $attr 的 值 与 常量 值 〈 在 这 里 是 READONLY ) 逐 位 执行 逻辑 与 (and) 运算 ， 如 果 得 到 的 
值 是 真 〈 非 0)， 则 说 明 该 文件 是 只 读 的 。 

7. 该 国 数 将 针对 Windows 报告 的 最 后 一 个 错误 生成 一 份 可 读 的 错误 消 息 。 


18.1.3 查找 目录 和 文件 


File::Find 模块 能 让 读者 遍历 整个 文件 系统 树 ， 并 根据 某 些 条 件 查 找 指定 的 文件 或 目 孙 。 它 等 
效 于 UNIX 的 find 命令 或 Perl 的 find2Perl 翻译 器 。 











格式 
use File::EFinad'; 
ie We S Ga 阅 全 和 大 
SSEe 几 RSI 





find0 的 第 一 个 参数 是 一 个 指 回 散 列 的 引用 ， 负 责 描 述 将 要 对 文件 执行 的 操作 ， 或 是 一 个 指向 
子 例 程 的 引用 。 用 户 可 输入 perldoc File::Find 查看 其 详细 信息 。wanted() 函数 负责 确认 需要 查找 
的 文件 。$File::Find::dir 含有 当前 目录 名 ， 当 位 于 该 目录 中 时 ， 会 自动 将 $_ 赋值 为 当前 的 文件 名 。 
$File::Find::name 含有 指向 文件 的 完整 路 径 名 。 在 调用 函数 时 , 可 使 用 chdirO 进入 $File::Find::dir， 
除非 设 定 了 no_chdir。find0 国 数 的 第 一 个 参数 是 一 个 指向 散 列 的 引用 ， 负 责 描 述 将 要 对 文件 执行 
的 操作 ， 或 是 一 个 指向 子 例 程 的 引用 。File::Find 的 散 列 引用 键 如 表 18-5 所 示 。 
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表 18-5 File::Find 的 散 列 引用 键 























键 值 
Drdept 在 报告 完毕 所 有 项 目 后 报告 目录 名 
Jopllom 跟随 符号 链接 
Jol1ow_jJast 类 似 于 follow， 所 不 同 的 是 它 可 以 同时 报告 多 个 文件 
Jpllow_ skip 只 处 理 一 次 文件 〈 不 包括 目录 和 符号 链接 ) 
710O_CHair 在 循环 时 不 chdir 到 每 个 目录 
22721GZ7t 如 果 打 开 -T 《污染 模式 )， 则 不 会 cd 到 污染 的 目录 
211aimt_Patte7 应 当 使 用 qr 引用 运算 符 设 置 ， 默 认 设 置 为 qrl^([-+@N\w./]+)$1 
Zaimt Skip 如 果 设 置 ， 就 会 跳 过 *untain_pattern* 失败 的 目录 〈 子 树 )。 在 这 种 情况 下 默认 为 die 











Wa1ted 用 于 调用 wanted 国 数 





示例 18.4 


(UNIX) 
站 Use ERile: :ERind'; 
列 find(\&wanted， '/httpd'，'/ellie/testing' ) ; 


SuUub wantedt 
本 
} 


OUEoUey 

5 

可 0 

呈请 交 丽 本 加 亲本 

0 

OCS 

EEC 
/httpa/AHEtDpocs/adocs/ima9es 
人 5 全 帮 交 交 

Ahttpa/AIog9s 

[LeJJie/Atestzn9 
/LeJJie/Atestin9/EXten. .air 
/elJJie/testin9/extension 
[eJJie/Atestin9/maziIsturfF 
[LeJJie/Atestin9/maziIstufFf/[maz7Istu 天 天 
了 二 加 全 全 全 0 
/elJJie/testin9/XOBJIECTSApoIymorph 


解释 
1. 从 标准 Perl 库 中 加 载 File::Find 模块 。 
2. find(0) 的 第 一 个 参数 是 指向 子 例 程 wanted 的 引用 ， 后 面 跟 有 两 个 待 查找 的 目录 。 
3. wanted 畏 数 将 检查 每 个 名 字 是 否 是 目录 〈-d), 并 列 出 所 找到 目录 的 完全 路 径 。 将 $_ 赋值 为 
正在 搜索 的 当前 目录 的 名 字 。 


示例 18.5 


(Winaows) 
孔 Use ERile: :ERind'; 
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受 Use Win32: :File: 
# Works on both Fa7r ana NTFS 五 Je Systems. 
思 &Eile::Eind::fnd(\&wanted,"C:\Nhttpd"，"C:N\NellLieNNtesting" ) : 
Sub wantedi 
吕 (Win32::FEile::GetAttributes ($ ，S$attr) ) && 
(ER 
ES 


心 


】} 


ouEewuey) 
人 
Wai 癌 科 癌 

GE 

人 

人 
ER 
人 
人 

CN 

Cr\elIlie\vtestin9 
信人 
Cr\ellIie\testin9/extensioDn 
[人 
Ci\ellie\vtestin9A/maz7IsturF[mai7IstuarF 
GE 
Cr\elII1ie\vtestin9/XOBJUECTSApPoIymorPph 
放 


解释 | 
. 从 标准 Perl 库 中 加 载 File::Find 模块 。 
. 从 标准 Perl 库 中 有 关 Win32 系统 的 站 点 目录 加 载 Win32::File 模块 ,用 于 检索 文件 或 目录 的 属性 。 
3. find0) 的 第 一 个 参数 是 指向 子 例 程 wanted 的 引用 ， 后 面 跟 有 两 个 待 查找 的 目录 。 
汪 5 





尼 

4. 定义 wanted 函数 。 
通过 调用 GetAttributes 国 数 (Win32::File::GetAttributes )，wanted 国 数 将 检查 每 个 名 称 是 
否 是 目录 ， 并 列 出 所 找到 的 子 目 录 的 完全 路 径 。 将 $_ 赋值 为 正在 搜索 的 当前 目录 的 名 字 。 





18.1.4 ”创建 目录 


UNIX。mkdir 函数 能 以 指定 的 用 户 权 限 〈 模 式 ) 创建 新 的 空 目 录 。 用 户 权限 是 以 一 个 八进制 数 
字 来 设置 的 。 系 统 会 自动 创建 目录 项 . 和 .…。 如 果 创 建成 功 ，mkdir 会 返回 1， 否则 就 返回 0。 如 果 
mkdir 失败 的 话 ， 还 会 把 系统 错误 保存 到 Perl 的 $! 变量 中 。 

Windows。 如 果 在 MS-DOS 提示 符 下 创建 目录 ， 则 上 述 权限 撩 码 (permission mask) 将 不 起 
任何 作用 。Win32 上 的 权限 机 制 不 同 于 UNIX。 对 于 FAT 分 区 上 的 文件 (也 就 是 说 所 有 文件 都 位 于 
Windows 95 上 )， 读 者 无 需 对 文件 显 式 地 设置 其 权限 。 所 有 文件 都 能 供 所 有 用 户 使 用 ， 并 且 创 建 的 
目录 将 对 每 个 用 户 都 打开 所 有 的 权限 许可 。 


mkdir 函数 





格式 


ImKOITIEILENRAMER， MODE) (ZNIX) 
InKEQIORTEERNAMR) 卫 (7zDpaomws) 
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18.6 


AN 


示例 


(The_ Command Line) 


耻 
多 


四 


解释 


$S Perl -e 'mkdizr("jJokezr"，0755) :' 井 UNIX 

$ 1s -1Ld jokerz 

加 大 所 天 天 三 二 文 刘 EU 站 疝 光 二。 ViOKE 
$ Perl -e "mkdiz(jokez) ;:" # 11IzPnaows 


1. mkdir 函数 的 第 一 个 参数 是 目 孙 名 , 第 二 个 参数 则 指定 了 文件 的 模式 (mode) 或 权限 (permission )。 


权限 0755 表明 文件 的 拥有 者 具有 读 、 写 和 执行 权限 ， 甚 所 属 的 组 〈group) 具有 读 和 执行 权限 ， 
而 其 他 人 则 拥有 读 和 执行 权限 “请 记 住 ， 如 果 疫 有 执行 权限 ， 就 无 法 访问 目录 )。 


2. 1s -1d 命令 将 打印 出 一 长 串 目录 文件 清单 ,其 中 包含 了 文件 信息 和 inode 信息 。 其 前 面 的 参数 


d 表示 上 目录， 其 权限 为 癌 KT2XFX。 


3. 在 Win32 系统 上 ， 创 建 的 目 孙 将 对 每 个 人 都 开启 所 有 的 权限 。 





18.7 


示例 


下 


二 oa 
die "$0 <dqirectory name>  "” unless $#ARGV == 0; 
mkdir ($RARGV[0]，0755 ) 11 die "mkdir:  S$RRGV[0]: SINn"， 


(At The Commanad Line) 


SS makeit 
Ke 
S$ makeit JokeL 

axkeIt” JoKker” FJe exIst5s 

$ makeit cabinet 

$ 1s -qd_ cabinet 

CapIimnett 


解释 


1. 如 果 用 户 没 有 为 脚本 提供 目录 名 参数 ，die 函数 就 会 打印 错误 息 并 退出 脚本 。 
2. 除非 目录 已 经 存在 ， 否 则 创建 该 目录 。 


18.1.5 删除 目录 





rmdir 函数 


rmdir 国 数 负责 删除 目录 ， 但 在 删除 时 该 目录 必须 为 空 。 


格式 


开工 和 ROW 坟 
IGCCGUUOR 5 


示例 18.8 
(At the Command Line) 
由 $ Perl -e 'zmdiz("joke") || die qq(joke: SINn) # UNIX 
7JoKke: DIirectory notLt emPty 
骂 $S Perl -e 'zmdizr("joker") 11 die qqgq(joker: S$INn) 
DOAer NO 三 帮 和 @ 下 CO7 
3 $S Perl -e "rmdiz(joker) || die qq(joker: SINn) ;" # MIznaomws 


JJOAer iNOSUED 下放 2 古人 CE 有 7 
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解释 


1. 目录 joke 中 含有 文件 。 除 非 目录 为 空 , 否则 是 不 能 删除 它 的 。$! 变量 中 售 有 系统 错误 信息 


Directory not empty 。 


2. 目录 joke 不 存在 ; 因此 也 不 能 删除 它 。 系 统 错误 将 保存 到 $1! 中 。 


3. 在 Win32 系统 上 , rmdir 的 工作 方式 不 变 。 如 果 是 在 MS-DOS 提示 符 下 , 读者 只 需 注 意 观 





引号 。 这 里 无 法 删除 joke 目录 ， 因 为 它 并 不 存在 。 


18.1.6 更改 目 录 一 一 chdir 函数 


AT 


每 个 进程 都 具有 一 个 当前 工作 目录 。 在 解析 相对 目录 引用 时 ， 该 目录 是 搜索 路 径 的 开始 之 处 。 





如 果 调 用 进程 《如 Perl 脚本 ) 更 改 了 目录 ， 则 它 只 对 该 进程 有 效 ， 而 不 能 影响 调用 它 的 那个 进程 








(一 般 是 shell )。 在 退出 Perl 程序 时 ，shell 还 会 返回 开始 时 的 那个 工作 目录 。 


chdir 函数 能 够 更 改 当 前 的 工作 目录 。 它 不 接受 任何 参数 ,能 将 目录 更 改 到 用 户 的 主 目录 中 。 多 








果 调 用 成 功 ， 该 函数 将 返回 1， 否 则 就 返回 0。 系统 错误 代码 将 保存 在 Perl 的 $! 变量 中 。 


格式 
ee 
CQiTr 瑟 久 BR> 
an 





巧 


示例 18.9 


世 $S Pwd # UNIX 
[home/7yJoay/eIJ11ie 

2 $S Perl -e 'chdir  "/home/jody/ellLlie/Per1I"; Print 'Pwd'' 
[home/Joay/eI11Ie/per1 


司 SS Pwd 
/home/7Joay/eI11ie 

4 $ Perl -e 'chdiz " fooler" || die "Cannot cd to fooler: $INn" 
eeC ES 

了 SECa # inaomws 
Cr\elIlie\testin9 

6 $ PerlL -e "chdirz foolerz || die qqd(Cannot to Eoolezr: $INn) ;" 


Gileioeece 人 ee 


解释 
1. 这 是 shell 的 当前 工作 目录 。 


2. 将 目录 更 改 为 home/jody/ellie/Perl。 当 pwd 命令 位 于 反 引 号 之 间 时 ,执行 命令 替换 操作 , 打 


印 该 进程 的 当前 工作 目录 。 


3. 由 于 Perl 程序 是 shell 调用 的 单独 进程 ， 如 要 让 Perl 更 改 当前 工作 目录 ， 只 有 在 执行 Perl 进 


程 的 过 程 中 才 会 生效 。 在 退出 Perl 时 ， 重 新 回 到 shell 中 ， 甚 目录 仍 将 保持 不 变 。 


4. 如 宁 更 改 目 孙 的 艾 试 告 以 失败 的 话 ，die 函数 会 把 本 行 所 示 的 信息 打印 到 屏幕 上 。 系 统 错误 


将 保存 到 $! 中 ， 然 后 再 打印 出 来 。 


5. 在 MS-DOS 提示 符 下 打印 当前 工作 目录 。cd 打印 当前 的 工作 目录 。( 在 UNIX 提示 符 下 , 该 

















台 chdir 是 Perl 提供 的 用 于 更 改 当前 目录 的 系统 调用 。 命 令 行 中 用 到 的 cd 命令 是 一 种 shell 内 建 命令 , 不 能 














在 Perl 脚本 中 。 








考 
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命令 也 用 于 更 改 目 孙 。) 
6. 与 上 述 UNIX 示例 相同 ， 更 改 目 录 的 党 试 失败 了 。 如 果 目 录 存 在 ， 则 更 改 当 前 工作 目录 。 


18.1.7 ”通过 目录 文件 句柄 访问 目录 


下 面 的 Perl 目录 函数 是 模仿 同名 的 UNIX 系统 调用 而 提供 的 。 尽 管 传 统 的 UNIX 目录 都 合 有 
两 个 字 节 的 信息 节点 编号 以 及 14 个 字 节 的 文件 名 《如 图 









































18-2)， 但 并 非 所 有 UNIX 系统 都 拥有 相同 的 格式 。 不 论 > 一 
目录 的 内 部 结构 如 何 , 目录 函数 都 能 用 于 访问 目录 。 这 些 10 
目录 函数 在 Windows 中 的 工作 方式 也 与 之 相同 。 2 - 
opendir 函数 。opendir 函数 能 打开 指定 的 目录 ， 并 32 memo 
将 它 附 加 到 目录 文件 句柄 上 。 该 句柄 本 身 具 有 自己 的 命 
名 空间 , 和 那些 用 于 打开 文件 或 筛选 器 的 其 他 文件 句柄 不 2 ss 
同 。opendir 函数 负责 初始 化 目录 ， 以 便 通过 与 之 相关 的 9 
readdir()、telldirO 、seekdirO 、rewinddirO 和 closedirO) 图 18-2 一 个 UNIX 目录 





国 数 处 理 该 目 孙 。 如 果 调 用 成 功 ， 该 国 数 将 返回 1。 





格式 
openadir (DIRHANDIBE， 了 EXBPR) 
示例 18.10 
SiEsnanNwnRSRDIGEET 了 


解释 
将 文件 joker 附加 给 文件 句柄 MYDIR， 并 以 读 模 式 打开 它 。 目 孙 joker 必须 存在 ， 并 且 必 须 
是 一 个 目录 。 


readdir 函数 。 在 目录 上 拥有 读 权 限 的 任何 人 都 可 以 读 取 该 目录 。 但 即使 拥有 写 权 限 的 人 也 不 
一 定 能 对 目录 本 身 执行 写 操作 。 目 孙 上 的 写 权 限 意 味 着 可 以 在 目 孙 中 创建 或 删除 文件 ， 而 不 是 更 改 
目录 本 身 的 数据 结构 。 

所 谓 使 用 readdir 函数 读 目录 , 其 含义 是 查看 由 系统 维护 的 目录 结构 内 容 。 如 有 果 opendir 函数 打 
开 了 目录 ， 在 标量 上 下 文 语 境 中 ，readdir 就 会 返回 下 一 个 目录 项 而 在 数组 上 下 文 语 境 中 ， 它 将 返 
回 目录 中 其 余 的 项 。 























格式 


zeaaadizc (DIRHANDILE) 
zeaaadizc DIRHANDLE: 


closedir 函数 。closedir 函数 能 关闭 之 前 由 opendir 函数 打开 的 目录 。 


格式 


Closedqir (DIRHRANDILE) ， 
Closedir DIRHANDLE， 
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示例 18.11 
ES 
王 cenmadarDIRRREC JOSESTICEORET SUNE 


Open Parent QIrectory 

吧 Qpazcentfiles=zeadqaQiz (DIR) ， 

人 SEE 
本 closedir (DIR) : CIJIoses the 五 Jehanpnale 

4 Eoreach S$file ( parentfiiles ) 

PFints each eJement ofF the array 








EN 


ee 


石 Tea 

石 TeP 

石 Tec 

三 DDSOD7 
SOFr7esS 


解释 
1. opendir 函数 负责 打开 目录 结构 ， 并 将 它 附加 给 目录 文件 句柄 DIR 上 。 以 读 方 式 打开 .… 目录 
〈 即 当前 目录 )。 
2. readdir 函数 将 目录 中 其 余 所 有 的 项 赋值 给 数组 @parentfiles 。 
3. closedir 函数 负责 关闭 目录 。 
4. 按照 在 目录 结构 中 的 存储 顺序 打印 文件 。 这 可 能 并 不 是 ls 命令 打印 文件 的 顺序 。 


telldir 函数 。telldir 函数 负责 返回 readdir(O 例 程 在 目录 文件 句柄 上 的 当前 位 置 。 读 者 可 以 把 
telldir 国 数 返 回 的 值 赋予 seekdirO， 以 便 访 问 目 孙 中 的 特定 位 置 。 





格式 


七 s11Q1i (DIRHANDIE) 


rewinddir 函数 。rewinddir 国 数 将 DIRHANDLE 的 位 置 设 置 回 到 opendir 所 打开 目录 的 开头 。 
并 不 是 所 有 机 器 都 能 支持 该 国 数 。 





格式 


rewinadadir (DIRHANDILE) ， 
rewinadir DIRHANDLILE 


seekdir 函 数 。seekdir 国 数 会 在 目录 文件 句柄 上 设置 readdir0O 的 当前 位 置 。 用 户 可 使 用 telldirO 
的 返回 值 来 设置 该 位 置 。 





Seekqir (DIRHANDILE， POS) 


示例 18.12 
ES 
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Opendiz (DIR，"."))，# Opens the current QIirectory 
while( $myfile=readdqir (DIR) ){ 
S$Sspot=tellLldir(DIR) ; 
TEST 
TEN 
ES 
】} 


心 ID 哺 


本 zewinaddir (DIR) : 
Seekqdqir (DIR，S$spot) ， 


SEESY 


S$myfile=zeaddir (DIR) ; 
EN 


(OUE) 
机 5 
CSnise: 


训 


. opendir 畏 数 以 读 模 式 打开 当前 工作 目录 。 





当 读 到 .login 文件 时 ， 退 出 循环 。 
.Tewinddir 函数 将 DIR 文件 句柄 的 位 置 重 置 为 目 孙 结构 的 开头 位 置 。 


~ 了 了 了 wm 上 wii 一 


.Teaddir 国 数 读 取 next 目录 项 ， 并 赋值 给 标量 $Smyfile。 


18.1.8 权限 和 所 有 权 








执行 while 语句 。readdir 畏 数 返回 文件 句柄 中 的 下 一 项 内 容 , 并 将 文件 赋值 给 标量 $myfile。 
在 readdir 函数 读 取 文 件 名 后 ，telldir 函数 标记 其 读 取 的 位 置 ， 并 保存 到 标量 $spot 中 。 


.利用 telldir 国 数 的 返回 结果 ,seekdir 国 数 设置 了 readdir 函数 在 DIR 文件 句柄 上 的 当前 位 置 。 


UNIX。 每 个 UNIX 文件 都 有 一 个 文件 所 有 者 。 该 所 有 者 比 其 他 人 多 出 了 修改 文件 权限 的 权力 ， 








限 ， 使 得 这 个 组 可 以 享有 一 些 特 权 。 


因此 可 以 控制 其 他 人 对 该 文件 的 操作 。 一 个 组 中 可 能 有 很 多 个 成 员 , 文件 拥有 者 也 能 改变 它 的 组 权 


每 个 UNIX 文件 都 有 一 组 权限 值 与 之 相关 ， 用 于 控制 谁 可 以 访问 、 写 人 或 执行 该 文件 。 文 件 权 
限 一 夫 由 9 个 比特 组 成 。 开 头 3 个 位 负责 控制 文件 所 有 者 的 权限 第 二 组 的 3 位 负责 控制 组 的 权限 





最 后 一 组 则 控制 其 他 人 的 权限 。 权 限 值 存储 在 文件 信息 节点 的 模式 〈model) 字段 中 。 





Windows。Win32 系统 处 理 文件 权限 的 方式 不 同 于 UNIX 系统 。 它 创建 的 文件 对 每 个 用 户 都 开 
启 了 读 写 权限 。 文 件 和 文件 夹 分 别 继承 了 可 以 设置 的 属性 。 读 者 可 以 单 击 文件 图 标 并 选择 “属性 ”， 











然后 便 可 以 有 限 的 方式 选择 权限 属性 ， 如 Archive、Read-only 和 Hidden。 详 见 图 18-3 。 


如 果 是 Windows NT 平台 ， 则 只 能 在 NTFS 格式 的 驱动 器 上 设置 文件 和 文件 夹 的 权限 2?。 如 需 
更 改 权 限 ， 用 户 必 须 是 文件 所 有 者 ， 或 者 拥有 其 所 有 者 的 授权 。 如 果 使 用 的 是 NTFS， 读 者 可 以 进 
入 Windows Explorer， 然 后 选 定 要 设置 权限 的 文件 或 文件 夹 。 右 击 该 文件 或 文件 夹 , 单 击 “ 属 性 ”， 





然后 单 击 “ 安 全 ”选项 卡 ， 便 可 启用 、 拒 绝 或 删除 针对 组 或 用 户 的 权限 。 


如 需 维护 文件 权限 ,参阅 Win32 版 Perl Resource Kit 中 的 Win32::FileSecurity 模块 。 若 要 从 文 
件 或 目录 检索 其 文件 权限 ， 则 可 使 用 Win32::FileSecurity::Get($Path, %Perms) 扩展 ， 其 中 $Path 是 
需要 查询 权限 的 文件 或 目录 的 相对 路 径 或 绝对 路 径 ，%perms 是 一 个 散 列 的 引用 ， 其 键 代 表 用 户 和 








组 ， 值 代表 相应 的 权限 撩 码 。 表 18-6 显示 了 管理 文件 和 目录 的 Win32 扩展 。 





泊 
全 





全 NTEFS 是 为 Windows NT 设计 的 高 级 文件 系 
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表 18-6 管理 文件 和 目录 的 Win32 扩展 


扩展 


用 途 








Win32::File 
Win32::File::GetAttributes(path,attribute) 
Win32::File::SetAttributes(path,attribute) 


Win32::AdminMisc::GetFileInfo 


负责 检索 和 设置 文件 属性 的 标准 模块 
检索 文件 属性 
设置 文件 属性 
检索 文件 信息 字段 CompanyName、FileVersion、InternalName、 


LegalCopyright、OfriginalFileName、ProductName、ProductVersion、 
LangID、Language 























orepopoe 局 现 
General | 
| lie 
Type: File Folder 
Location Ex 
Size: 3.17 MB [3.333.120 bytes] 
Size on dsk: 3.23 MB [3.391.488 bytes] 
Contains: 7Files0Folders 
Created Today July 12. 2001. 12:04:34 PM 
上 attributes: 





厂 Achive 





Cancel 放 





图 18-3 文件 属性 〈Windows) 


chmod 函数 CUNIX)。chmod 国 数 负责 更 改 列表 或 文件 的 权限 。 用 户 必 须 首先 拥有 修改 这 些 文 
件 的 权限 。 这 些 文件 必须 是 带 引 号 的 字符 串 。 列 表 的 第 一 个 元 素 是 表示 新 模式 的 八进制 数字 值 〈 目 


前 ， 二 进 制 /八进制 表示 法 已 经 由 更 方便 记忆 的 权限 更 改 方法 代 夫 了 ， 不 过 Perl 并 没有 使 用 这 种 新 


方法 )。 
如 果 读 者 对 这 种 方法 还 不 熟悉 的 话 ， 

















表 18-7 列 出 了 所 有 八 种 用 于 更 改 权限 的 数字 组 合 。 


表 18-7 ”权限 模式 





八进制 二 进 制 权限 含义 
0 000 无 关闭 所 有 权限 
和 - 执行 
2 010 W 写 
3 011 -WX 写 、 执 行 
4 100 T-- 读 
5 101 IT-X 读 、 执 行 
6 110 TW- 读 、 写 
7 111 TWX 读 、 写 、 执 行 


注 : 请 确保 其 第 一 位 数字 为 0， 以 便 表 明 它 是 一 个 八进制 数字 。 请 不 要 使 用 记忆 模式 〈 例 如 +IX)， 因 为 它 会 关闭 


所 有 的 权限 。 
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chmod 函数 (Windows)。ActivePerl 只 支持 有 限 个 版 本 的 chmod 国 数 。 然 而 , 它 只 能 用 于 为 
文件 所 有 者 提供 读 / 写 访问 权限 “忽略 group 和 other 位 )。 
chmod 图 数 将 返回 经 过 更 改 的 文件 数目 。 


格式 


CGORNRS 二 古 
Cnmegil 十 下 SJT> 


示例 18.13 
ONE) 
由 BETIESUSCSOmEEChmod 几 0 了 5 用 定 ECORPD 让 OO 古 证 2 下 TS 


ESEcmanogEaRAN 
受 2 五 1es cpancea.， 
纪 SSEILEEOOREPRDOOEPE 
三 放 光 关 三 区 三 尖 汪 故人 区 本 下 本 以 惠风 二 天 
三 大 三 区 本 下 本 E 区 六 忆 生 和 人 天 ee 


襄 


1. 第 一 个 参数 是 八进制 值 07553,， 它 能 为 文件 所 有 者 开局 frwx 权限 , 为 组 和 其 他 人 打开 7 上 < 和 x 权 
限 。 接 下 来 的 两 个 参数 fpo.p 和 boo.p 是 需要 更 改 的 文件 。 标 量 $count 含有 经 过 更 改 的 文件 总 数 。 

2. $count 的 值 为 2。 因 为 上 面 两 个 文件 的 权限 都 改 成 了 0755 。 

3. 打印 UNIX 的 1s -1 命令 的 输出 ， 表 明文 件 foo.p 和 boo.p 上 的 权限 都 已 经 改 成 了 0755 。 


chown 函数 CUNIX)。chown 函数 负责 改变 文件 列表 的 所 有 者 和 组 。 只 有 文件 所 有 者 和 超级 用 
户 才能 调用 该 函数 8。 列表 的 前 两 个 元 素 必 须 是 数字 形式 的 uid 和 gid。 每 个 授权 的 UNIX 用 户 在 口 
令 文 件 (password file) 引 中 都 赋予 了 一 个 uid〈 用 户 标识 号 ) 和 一 个 gid 〈 组 标识 号 )。 该 函数 将 返 
回 经 过 更 改 的 文件 数目 。 








格式 


CS 
局 本 下 S 业 > 


示例 18.14 
(The Scipt) 
世 $ uid=9496:; 
及 $ gid=40; 
3 S$number=chown ($Suid，$gid，'foo.P'，'boo.P'): 
4 Pint "The number of fles changed is SnumberAN.n"; 


AN 


OUEoU) 
4 Te Dumpbper of 五 Jes ChangeaQ 1I5 2. 


训 


1. 将 用 户 标 识 号 赋值 为 9496。 
2. 将 组 标识 号 赋值 为 40。 


鲁 在 BSD UNIX 和 某 些 基于 POSIX 的 UNIX (Solaris) 系统 中 ， 只 有 超级 用 户 才能 更 改 所 有 权 。 
提 ”如 需 获 得 uid 或 gid， 可 使 用 getpwname 和 getpwuid 函数 。 
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3. chown 函数 负责 修改 fogo.p 和 boo.p 的 所 有 权 ， 并 返回 经 过 更 改 的 文件 数目 。 


umaks 函数 CUNIX)。 在 创建 一 个 文件 时 , 该 文件 默认 就 拥有 一 组 特定 的 权限 。 该 权限 由 所 谓 
的 系统 掩 码 〈system mask) 来 决定 。 在 大 多 数 系统 上 ，, 该 掩 码 都 是 022, 并 由 登录 程序 予以 设置 9 。 
在 默认 情况 下 ， 目 录 会 拥有 777 (Crwxrwxrwx) 权限 ， 文 件 则 具有 666 (rw-rw-Trw-) 权限 。umask 
国 数 用 于 在 现 有 的 拓 码 中 删除 或 减 去 指定 的 权限 。 

如 要 取消 “others” 的 write 权限 ， 可 从 每 个 目录 或 文件 拥有 的 最 大 权限 值 中 减 去 相应 的 umask 值 





777 ( 目录 ) 666 (文件 ) 
一 002 (umask 值 ) -002 (umask 值 ) 
7373 004 


umask 函数 负责 为 本 进程 设置 umask 值 ， 并 返回 来 的 umask。 当 没有 参数 时 ，umask 国 数 将 ; 
回 当前 设置 情况 。 


遍 





格式 


umask (了 EXPR) 
UmasSsk 卫 XPR 


UmasSk 
示例 18.15 
于 $S Perl -e 'Printf("The umask is go.NXn"，umask) 
7TPe umask Is 22. 
又 $ Perl -e 'umask 027; Printf("The new mask is go.N\Xn"，umask) 


Tpe mnew mask 1I5 217. 
1. 不 带 参 数 的 umask 函数 将 打印 当前 的 umask 值 。 
2. umask 函数 将 掩 码 重新 设置 为 八进制 值 027 。 


18.1.9 硬 链 接 和 软 链 接 


UNIX。 当 创建 一 个 文件 时 ， 它 就 拥有 一 个 硬 链接 ， 即 目录 中 的 一 项 。 用 户 也 可 为 文件 创建 额 
外 的 链接 ， 该 链接 只 是 同一 个 文件 的 不 同名 称 而 已 。 内 核 在 文件 信息 节点 中 维护 了 一 个 值 ， 负 责 跟 
踪 文 件 有 多 少 个 链接 。 只 要 存在 指向 文件 的 链接 ， 其 数据 块 就 不 会 对 系统 释放 。 让 文件 具有 多 个 名 
字 的 好 处 在 于 只 需 提 供 一 组 数据 或 主 文 件 ， 并 通过 很 多 种 不 同 的 名 称 来 访问 该 文件 。 硬 链接 不 能 跨 
越 文件 系统 ， 并 且 必 须 在 链接 创建 时 出 现 。 

软 链接 又 称 为 符号 链接 (Symbolic link)， 有 时 也 称 为 symlink。 符 号 链接 只 是 一 种 很 小 的 文件 
《具有 权限 、 所 有 权 、 大 小 等 信息 )。 它 只 含有 另 一 个 文件 的 名 称 。 当 访问 有 具 有 符号 链接 的 文件 时 ， 
内 核 会 指 癌 符号 链接 中 包含 的 文件 名 。 例 如 , 从 thisfile 到 /usrpin/joking/otherfile 的 符号 链接 会 把 
名 称 thisfile 链接 到 /usr/bin/joking/otherfile 上 。 当 打开 thisfile 时 ， 实 际 访问 的 文件 则 是 otherfile 。 
符号 链接 可 以 引用 存在 或 者 不 存在 的 文件 ， 而 且 可 以 跨越 不 同 的 系统 ， 甚 至 是 不 同 的 计算 机 。 它 们 
还 可 以 指向 其 他 的 符号 链接 。 
































用 户 亦 可 在 .profile (sh 或 ksh) 或 .cshrc (csh) 初始 化 文件 中 设置 umask。 
符号 链接 最 初出 现 于 BSD 中 ， 并 得 到 了 许多 AIT 系统 的 支持 。 不 过 读者 的 系统 不 一 定 能 支持 它 。 








唱 
唱 
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Windows。Win32 系统 引用 了 快捷 方式 的 概念 , 它 是 一 种 扩展 名 为 .LNK 的 特殊 二 进 制 文件 。 快 





捷 方 式 类 似 于 UNIX 链接 ， 所 不 同 的 是 它 由 特定 的 应 用 程序 负责 处 理 ， 





它 也 是 文件 或 目录 的 别名 。 快 捷 方 式 是 一 种 图 标 ， 其 左 侧 的 白 框 中 会 


而 不 是 由 系统 自己 处 理 ， 此 外 
8 现 一 个 白色 箭头 。 在 Perl 中 ， 











读者 可 以 使 用 Win32::Shortcut 模块 来 创建 、 加 载 、 检 索 、 保 存 和 修改 快捷 方式 的 属性 〈 见 图 18-4)。 


General 5hortcut | 


所 | Iomega RecordIt 





Target type:; 上 application 
Target location; ktourdemo 


Target' 





底 LIRUmiTSEPSrSEEmEmor sp5cE 和 门 /Runiasdifferent User 





Startin; CAProgram FlestiomeoaiRecordt 
Shortcut key' pe 
Run'， [homawndmw 本 
Comment' | 





Find Target，， | Change on， | 





图 18-4 快捷 方式 和 .LNK 扩展 名 





link 与 unlink 函数 CUNIX)。1link 函数 能 在 UNIX 系统 中 创建 硬 链接 〈 即 两 个 具有 相同 名 称 的 


文件 )。1link 函数 的 第 一 个 参数 是 现 有 的 文件 名 第 二 个 参数 则 是 新 文件 名 ， 它 必须 是 不 存在 的 。 只 








有 超级 用 户 才能 创建 指向 目录 的 链接 。 在 删除 目录 时 应 当 使 用 rmdir。 


格式 


ink(OLDEILENRAME， NENWEILENRAME ) ， 


示例 18.16 


(UNIX) 
下 $ PerlLl -e '1Link("dodo"，"newdodo" ) ; 
受 $ 1s -1Li dodo newdodo 


0 0/eiclei 
人 0 Mar 7 13:46 nemwaoao 


解释 
1. 为 旧 文 件 dodo 提供 替代 名 称 newdodo 。 


2.1s 命令 的 i 选 项 给 出 了 文件 的 信息 节点 号 。 如 有 果 其 信息 节点 号 相同 ,就 说 明文 件 是 相同 的 。 
卓文 件 dodo 开始 时 只 拥有 1 个 链接 。 现 在 链接 数 从 2 开始 计数 。 因 为 dodo 和 mewdodo 是 链 
接 在 一 起 的 ， 它 们 是 同一 个 文件 ,更改 其 中 一 个 文件 就 会 造成 另 一 个 文件 的 变更 。 如 果 删 除 
其 中 一 个 链接 , 则 另 一 个 仍然 可 以 存在 。 如 要 删除 某 个 文件 , 首先 必须 删除 其 所 有 的 硬 链接 。 
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unlink 函数 在 UNIX 和 Windows 系统 上 都 能 删除 文件 列表 〈 等 效 于 UNIX 的 rm 命令 和 MS- 
DOS 中 的 del 命令 )。 如 果 文 件 含有 多 个 链接 , 则 将 链接 计数 减 去 1。 该 国 数 将 返回 成 功 删除 的 文件 
总 数 。 如 需 删 除 目 录 ， 则 应 使 用 rmdir 命令 ， 因 为 只 有 超级 用 户 才 能 使 用 unlink 函数 断 开 指向 目录 
的 链接 。 





格式 


三 而 出 二 入 故人 
司 下 REALST 


示例 18.17 
ES 
于 nm aRLOOURECO JE emowesSNNDO 
匀 S$count=un1lLink <*.c>: 
PEint "The number of fles removed was S$ScountANnn 


解释 
1. 删除 文件 a、b 和 。 
2. 删除 所 有 以 .c 结尾 的 文件 〈 即 C 源 文 件 )。 删 除 的 文件 数目 保存 在 标量 $count 中 。 


symlink 和 readlink 函数 CUNIX)。symlink 国 数 负责 创建 符号 链接 。 如 果 引 用 了 旧 文 件 名 的 
话 ， 符 号 链接 文件 就 会 访问 该 文件 的 名 称 。 


格式 


SYTmnROEDRIEARNEBWRIDE) 


AN\ 


示例 18.18 
世 $ Perl -e 'symlink("/home/jody/test/old" ，"new") 
易 $ 1s -1Ld new 
了 FwWXFWXTWX 1 elIie 6 Feb 21 17:32 new -> /home/7yoay/test/old 


解释 
1. Symlink 图 数 创建 新 文件 名 new， 并 将 它 链接 到 旧 的 文件 名 /home/jody/test/old 。 
2. 1s -1d 命令 能 列 出 符号 链接 的 文件 。 符 号 -> 指向 新 的 文件 名 。 位 于 权限 前 面 的 1 表明 它 是 一 
个 符号 链接 文件 。 


readlink 国 数 会 返回 符号 链接 的 值 ， 如 果 该 文件 不 是 符号 链接 ， 则 返回 未 定义 。 








格式 


ESGduGSYNEGEGENNIS)E 
ESadmneesYMBEOICEINNIKY 


示例 18.19 
$ Perl -e 'readlink("new") ' 
[home/7oay/Atest/ ola 


解释 
文件 new 是 一 个 符号 链接 ， 指 向 home/jody/testold。 这 也 是 readlink 函数 所 返回 的 值 。 
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18.1.10 更改 文件 名 


rename 函数 CUNIX 和 Windows )。rename 国 数 负责 更 改 文件 的 名 称 , 等 效 于 UNIX 中 的 mv 

令 。 其 本 质 是 创建 一 个 指向 现 有 文件 的 新 链接 ,然后 删除 原 有 文件 。 如 果 调 用 成 功 ,rename 国 数 

会 返回 1， 否 则 便 会 返回 0。 该 命令 在 工作 时 不 能 跨越 文件 系统 的 边界 。 如 果 已 经 存在 了 有 具有 新 文 
件 名 的 文件 ， 则 其 内 容 将 受到 破坏 。 





由 合 





格式 

rename (OLDEFILENRAME， NENWEILENAME ) ” 
示例 18.20 

zename ("tmPp" ，"datafile") ， 


解释 
将 文件 tmp 改名 为 datafileg。 如 果 datafile 已 经 存在 ， 甚 原 有 内 容 将 受到 破坏 。 


18.1.11 ”更改 访问 与 修改 时 间 


utime 函数 。utime 国 数 负责 更 改 文件 列表 中 每 个 文件 的 访问 和 修改 时 间 ， 类 似 于 UNIX 中 的 
touch 命令 。 列 表 的 头 两 个 元 素 必 须 是 数字 形式 的 访问 时 间 和 修改 时 间 , 并 且 其 顺序 不 能 颠倒 。time 
国 数 负责 为 utime 国 数 提供 当前 的 时 间 。 该 函数 将 返回 成 功 更 改 的 文件 数目 。 该 函数 将 把 列表 中 每 
个 文件 的 信息 节点 (inode) 修改 时 间 设 置 为 当前 时 间 。 





格式 


Enmme (STR 
utime LIST; 


示例 18.21 
aeSCeeE 三 三 这 9 
灿 ESE 王 weuseouceeaes oceanmoe ins 汪 SEamia)E ae 
chop (Smy 革 Ile=<STDIN>) ; 
包 Snow=time” 井 TIz5S exampJe makes tphe 五 Je IF IE aoesn ' 上 exist 
光 utime( S$now，S$Snow，S$myfile) || open(TMP,">>5$myfile") ” 


(The_ Command Line) 
$ 1s -1 brandnewfile 
PananewpaJe， No sucn Je or Qirectory 


$_ update .P 
1 What 方 1e WII 7You toucn (create or Upaate time stamp) ?2 brananew 磋 Je 


$ 1Ls -1L brandnewfile 
2 二 生 岂 二 下 二 二 一 二 1 ellie 0 Mar 6 了 7:713 Pranamnemw 石 1e 


a. Wall, 工 ., Christianson, T., and Orwant, J.,，Progy7a11117118 Pej/ 31d ed., O Reilly & Associates: Sebastopol, CA, 2000 。 


解释 
1. 用 户 输入 文件 名 ， 然 后 更 改 其 访问 时 间或 修改 时 间 ， 或 者 当 文件 不 存在 时 ， 创 建 该 文件 。 
2. 将 变量 $now 设置 为 函数 time 的 返回 值 ， 它 是 从 UTC 时 间 1970 年 1 月 1 日 开始 的 非 半 秒 数 。 
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3. $now 的 第 一 个 参数 是 访问 时 间 ， 第 二 个 参数 是 修改 时 间 ， 第 三 个 参数 则 是 函数 影响 到 的 文 
件 名 。 如 采 由 于 文件 不 存在 而 导致 time 国 数 调用 失败 的 话 ， 便 调用 open 函数 创建 新 文件 ， 
并 以 TMP 作为 文件 句柄 。 该 畏 数 类 似 于 UNIX 中 的 touch 命令 。 


18.1.12 文件 统计 量 


文件 信息 存储 在 称 为 信息 节点 〈inode) 的 数据 结构 中 ， 由 系统 内 核 负 责 维护 。 对 于 UNIX 用 
户 , 可 使 用 1s 命令 检索 其 中 很 多 信息 。 而 在 C 和 Perl 程序 中 , 则 可 使 用 stat 函数 直接 从 信息 节点 中 
检索 这 些 信 息 。 见 File::stat 模块 ， 它 能 为 stat 函数 创建 用 户 界 面 。 虽 然 这 里 强调 是 面向 UNIX 的 ， 
但 在 Win32 系统 上 也 可 使 用 stat 国 数 。 
stat 和 lstat 函数 。 stat 国 数 会 返回 一 个 13 元 素 的 数组 ， 其 中 含有 从 文件 信息 节点 检索 得 到 的 
统计 量 。 数 组 中 的 最 后 两 个 字段 只 与 块 (block) 有 关 ， 它 们 只 定义 在 BSD UNIX 系统 中 。@ 
lstat 国 数 与 stat 国 数 功能 相同 ， 但 如 果 文 件 是 一 个 符号 链接 ， 则 lstat 会 返回 该 链接 本 身 的 信 
息 ， 而 不 是 它 引用 的 文件 信息 。 如 果 系 统 不 支持 符号 链接 ， 则 应 使 用 一 般 的 stat 函数 。 
特殊 文件 局 部 underscore 用 于 从 最 近 一 次 统计 的 文件 中 获取 stat 信息 。 其 返回 的 13 元 素数 组 
含有 保存 在 stat 结构 中 的 如 下 元 素 〈 其 顺序 与 UNIX 系统 调用 stat 的 略 有 不 同 )。 
1. 设备 号 
. 信息 节点 号 
. 模式 . 
. 链接 计数 
用 户 ID 
.组 ID 
. 对 于 特殊 文件 ， 表 示 甚 引用 的 设备 号 
. 以 字 节 (byte) 为 单位 的 大 小 ， 针 对 常规 文件 
. 上 一 次 访问 时 间 
10. 上 一 次 修改 时 间 
11. 上 一 次 状态 更 新 时 间 
12. 文件 系统 首选 的 IO 块 大 小 
13. 分 配 的 512 字 节 块 的 实际 数目 


























Doo ~ 人 下 ww 上 hi 


格式 
stat (FEILEHANDILE) ， 
SS 七 七 也 工 工 筷 下 六 入 矶 开 厄 ” 
SEEUERESERR 


示例 18.22 


(UNIX) 

再 SeIUMRRNRRL ET ROUTE OSIESIINO 
久 Qstatistics=stat(MYEIILE) : 

ELESIESEOEEEOESNUO 





折 Wall,L.,Christianson,T.,and Orwant,J. ,Progra1111118g5 Per1，37rd ed.，O "Reilly 和 Associates: 
Sebastopol,CA,2000, p.188 。 


总 龙 乔 .LoRui 
本 PDF 书签 由 龙 鹤 。LoRaui 制作 。 


WwWwW.LoRui.com 





来 看 看 这 些 世 < 东 ee 
仿 “Yahoo! 疯 了 ! 
今 “ HP 笔记 本 激活 Windows 7 








域名 转让 : 
”DaNanPing.com〈 大 南平 ) 
15300.net 
Gn7c.com 


0 


DaLongNan.com 〈 大 陇南 、 大 龙南 ) 
51perlLcom 〈 无 忧 Perl) 
LoRui.com 
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Clese MYRITTE7 


4 Qstats=stat("Pez1L1") ; 


瑟 Eeesnoas munosrsasaEsmaReeETOREEE 二 OANDOE 
sse si 本 有 Si SEE 本 是 < 
6 Print "The file has read andqd write permissions.NXn"nv 


了 生生 开本 证 CE 


ORGUE) 

电 区区 局 情 是 二 区 的 1 靖 本 用 用 的 二 2 竹本 人 太 2 有 用 有 时 和 罗 区 大 区 2 用 允 用 
本 Tpe Inoae Dumper 1I5 14244]J anaQa tpe UIQ 1I5 9496. 

6 Te 石 Je has Feaa anaQa Write Permisszons. 

] 


解释 
. 通过 文件 句柄 MYFILE 打开 文件 Perll 。 
2. stat 国 数 从 文件 的 信息 节点 中 检索 信息 ， 并 将 信息 返回 给 13 元 素数 组 @statistics 。 





3. 打印 13 元 素数 组 。 数 组 的 最 后 两 个 元 素 是 块 的 大 小 以 及 512 字 市 块 的 数目 。 块 的 大 小 和 数 
目 可 能 有 所 不 同 ， 因 为 在 块 数 中 并 设 有 统计 尚未 分 配 的 块 。 负 值 表 示 NIS 设备 数 。 
4. 此 次 stat 国 数 以 文件 名 作为 参数 ， 而 不 是 文件 句柄 。 


5. 打印 数组 的 第 二 个 和 第 五 个 元 素 。 
6. 特殊 的 下 划 线 〈(_ ) 文件 句柄 负责 从 上 一 次 stat 调用 中 检索 当前 文件 的 统计 信息 。 文 件 测 试 
运算 符 工 和 -w 则 使 用 当前 的 stat 信息 检查 该 文件 的 读 写 权限 。 


示例 18.23 


(Winaows) 
# SIipce UNIX ana inaomws treat 石 1es aifferentIyv 
# some of the 右 eJads here are 
# DJIanKk or values FetuxneaQ are Dot meanzno9Eu 了 


了 Qstats = stat("C:N\NellieN\N\testing") ; 

县 TDENTESEE SEE 由 ON 

本 ET 从 

4 ET 
SEESCILS SS SEESISINLY 

6 TELeEE TREE 本 愉 

也 en GOOIDDR SSESESTSINNT 

8 DEC SSIESESOIRNDU 

9 EN 

下 0 TS 本 acEEE 晤 人 ES 
ET 
1 2 用 TEODEISEEEECE ES 人 EOINE 








下 2 
Nm 


ouEsuay) 

2 Dev7Iice:” 2 

号 Tnoae 井 : 0 

4 FIIe moae: 16895 

与 寺 E 

6 Ownez ID 0 

网 EC 

8 Device TID: 2 

8 于 ESUES ER 

下 W 关 SS 过 ES 
的 央 2 中 总 全 届 全 全 0 三 玫 克 
12 Dast change Inoae time: 977267372 
攻 S 

14 Numper of PPJocKks: 
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18.1.13 底层 VO 文件 


read 畏 数 (fread)。 read 国 数 负 责 从 文件 句柄 中 读 取 指 定数 量 的 字 节 ,并 将 这 些 字 节 放 在 标量 
型 变量 中 。 读 者 如 果 熟 悉 C 的 标准 IO 国 数 fread 的 话 , 就 会 发 现 Perl 的 read 函数 也 是 以 相同 方式 
处 理 IO 缓冲 的 。 为 了 提高 效率 ，read 国 数 并 不 是 一 次 读 取 一 个 字 节 ， 而 是 读 取 一 块 数据 并 保存 到 
临时 存储 区 中 。 然 后 ，C 的 fread 国 数 与 Perl 的 read 国 数 会 从 临时 缓冲 区 将 数据 一 次 一 个 字 节 地 传 
送 给 程序 。(sysread 国 数 可 用 于 模拟 C 的 底层 IO 函数 read。) 该 国 数 会 返回 读 取 的 字 节 总 数 ;， 或 
者 在 发 生 错误 时 ， 返 回 未 定义 的 数字 。 如 果 碰 到 了 EOF (文件 结束 符 )， 则 返回 0。 
在 Perl 中 ，print 国 数 〈 而 不 是 write 国 数 ) 负责 输出 read 国 数 返 回 的 实际 字 节 。Perl 的 print 
国 数 类 似 于 C 中 的 fwrite 国 数 。 


























格式 


zeaQ(EIIRHRANDIE， SCALIAR， LIENGIH，ORFRRSEI) 7; 
zeaQ(EIIEHANDLE， SCALIAR，IENGTIH) ; 


示例 18.24 


(The Script) 

由 SemERASSND 有 REEcOaRSSwOS II 民 GE EDETRERESNIL 
习 S$bytes=read (PRSSWD ，S$buffer，50) ; 

瑟 ONEmasE SOEEEEESd 是 ER 

4 1 全 SEE ES 


OUESUOG) 
妃 7Tpe Dumper of pytes 1I5 250. 
4 Tpe Durffer conta7Ins: 
六 有 大 0 有 丽人 辣 全 下 避 下 辣 下 下 攻 人 区 CS 帮 
五 避 万 Og 7 
解释 


1. 通过 文件 句柄 PASSWD 打开 并 读 取 文 件 /etc/passwd。 
2. read 函数 尝试 从 文件 句柄 中 读 取 50 个 字 节 ， 并 将 读 到 的 字 节 数 返 回 给 标量 Sbyte。 


sysread 和 syswrite 国 数 。 sysread 国 数 类 亿 于 C 的 read 函数 。 它 避 开 了 标准 的 IO 缓冲 模式 ， 
能 直接 从 文件 句柄 中 读 取 字 节 到 标量 型 变量 。 混 用 read 和 sysread 可 能 会 造成 问题 , 因为 read 国 数 
用 到 了 缓冲 区 ， 而 sysread 将 直接 从 文件 句柄 读 取 字 节 。 

SySWwWriite 国 数 负责 将 数据 字 节 写 到 文件 句柄 中 ， 它 类 似 于 C 的 write 国 数 。 





格式 


SYSFeaaEIDRRANDLIRR SCAIARA DENGIHA OORRSRT) 
SysreaQ(EILEHANDLE， SCAILAR， LENGIH) ， 


SYSNWCDESIUERIIRHANDEEALSCATDARAEBNGIHAORRSETI) 玉 
SYSWEILLte(EIILEHANDIE ，SCALAR，LILENGIH) 


seek 函数 。 Perl 的 seek 了 国 数 等 效 于 C 的 标准 IO 国 数 人 eek, 用 于 随机 访问 文件 。 它 会 在 文件 
中 设 定 一 个 位 置 ， 并 从 文件 开头 以 字 节 为 单位 表示 该 位 置 ， 其 中 第 一 个 字 节 是 字 节 0。 如 果 调 用 成 
功 ， 该 国 数 会 返回 1， 否则 就 返回 0。 
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格式 


SeeKk(ERIIERHANDLIEA OFRRSEPTI BEOSIITION) 7 


POSITION=The absolute positicn in the 菇 Le WwWheze 
0=Begalnnanogio6 Ele 

CeEEOCSESIEEGT is 

2=EnQ of 1e 


OFRSET=NUmberc of Dytes from POSITION.A Positive offset aaQvances the Position forwazxa 
in the 玫 Lle.A negative offset moves the Position backwaraQ in the 菇 le.A negative OFRSET 
SS 加 TEST EECOCEEOSTEEONRTE 生 2 


示例 


18.25 


Eeeoa 


业 oemENSSNDRRELAEEcIasswdO IEOTECSmDERCDET ESTND 
受 while ( chomp($1ine = <PASSWD>) )1{ 
泡 亲生 攻击 避 央 二 二 三 生 二 疝 生 二 和 本 本 用 二 天王 本 有 条 
} 
4 seek (PASSNWD，0，0) |1| aie "$INn"y # Start back at the bpe9IznnIna 
十 方 由 5 人 7 本 57 EE 
5 while(<PRARSSWD>){pPrint if /ellie/:l} 
6 Close(EASSWD) ; 
em 
池 -=--oot:7yhTIR4PeBadxFfw:0:1:0perator:/: /pin/esp--- 
5 eJJie:aVD17USsBMyG9:9496:40:FJIie Sava9e:/home/JoayeJJie:/bin/vcsp 
解释 
1. 通过 文件 句柄 PASSWD 打开 文件 /etc/passwd。 
2. while 语句 循环 遍历 文件 句柄 PASSWD， 一 次 一 行 地 读 取 其 内 容 ， 直 到 文件 未 尾 。 
3. 如 果 文 件 舍 有 正则 表达 式 root， 则 打印 该 行 。 
4. seek 国 数 在 文件 开头 的 位 置 0 设 定 文件 位 置 , 其 字 节 偏 移 量 (byte offset) 为 0。 由 于 这 里 


( 


没有 关闭 文件 句柄 ， 因 此 它 会 一 直 保持 打开 状态 ， 直 到 使 用 close 函数 关闭 它 。 


. While 语句 循环 遍历 该 文件 。 
6. 正式 关闭 PASSWD 文件 句柄 。 


tell 图 数 。tell 国 数 能 针对 常规 文件 返回 其 文件 句柄 的 当前 位 置 ， 该 位 置 可 作为 调用 seek 函数 
的 参数 ， 以 便 移动 到 文件 内 的 某 个 位 置 上 。 


格式 
廿 elL1 (FILEHRANDLE) 
telL1 FILEHRANDIE， 
七 e11 7 
示例 18.26 
ESETnty 
于 oemEANSSNDR 有 LEECISESSAWOO IEOTE ESGECDETRRESIN 
while ( chomp($Line = <PASSWD>) )1{ 
IE 
包 S$curLrent = 七 elL1: 


1 
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司 rneRNIEEDCESEOCOnEETeEUEESRSY EDTE 汪 ON ES 
4 Seek (PASSNWD ，S$current 上 ，0) : 
while(<PASSWD>) { 


已 1 这 攻 六 
】} 
OUwEoEy) 
多 三 三 轨 史 和 训 囊 丽人 用 生 和 下 到 
司 ES GT 了 EEC 二 EW20 


0 
sunaia9:x*:0:1:System Diag9nostic:/usr/aia9/sunaiac/sunaiac 
间隔 [全 二 三 忆 有 7 有 总 SEEMFGDR OO 人 全 有 7 届 厅 二 本 7 和 的 用 汪 区 和 而 必用 


解释 
1. 通过 文件 句柄 PASSWD 打开 文件 /etc/passwd。 
2. 如 果 到 达 了 含有 正则 表达 式 sync 的 行 , 由 tell 图 数 将 当前 字 节 位 置 返回 给 标量 $current。 当 
前 的 位 置 是 上 次 读 取 的 字 节 的 下 一 个 字 节 。 
3. 打印 tell 函数 返回 的 字 节 位 置 。 
4. seek 国 数 从 文件 开头 定位 到 tell 国 数 所 返回 的 当前 位 置 的 偏 移 量 上 。 


18.1.14 ”压缩 和 解压 缩 数 据 


读者 还 记得 printf 和 sprintf 国 数 吗 ? 它们 能 把 参数 格式 化 为 浮 点 数 、 十 进 制 整数 、 字 符 串 等 形 
式 。pack 和 unpack 函数 则 更 进 了 一 步 。 这 两 个 函数 能 把 字符 串 表 示 成 比特 、 字 节 、 整 数 、 长 整数 、 
浮 点 数 等 形式 。 格 式 类 型 负责 告诉 pack 和 unpack 函数 应 当 如 何 处 理 这 些 字符 串 。 

pack 和 unpack 国 数 具 有 多 种 用 途 。 这 两 个 国 数 可 以 用 于 将 列表 压缩 成 二 进 制 结构 ， 再 从 压缩 
值 重 新 展开 成 列表 。 当 处 理 文件 时 ， 读 者 可 使 用 这 些 函 数 创 建 uuencode 编码 文件 、 关 系 型 数据 库 
和 二 进 制 文件 。 
在 处 理 多 个 文件 时 ， 并 非 所 有 的 文件 都 是 文本 文件 。 例 如 ， 有 些 文 件 可 能 会 压缩 成 某 种 二 进 制 
形式 ， 以 便 节 省 空间 、 存 储 图 像 ， 或 者 可 压缩 为 uuencode 格式 ， 以 便 通 过 电子 邮件 传递 文件 。 这 
些 文件 都 不 是 可 读 的 。pack 和 unpack 函数 还 可 用 于 转换 文件 中 多 行内 容 的 格式 。pack 国 数 可 以 把 
列表 转换 为 保存 在 计算 机 内 存 中 的 标量 值 。 表 18-8 中 列 出 的 模板 用 于 规定 字符 类 型 以 及 需要 格式 
化 多 少 字 符 。 例 如 ， 字 符 串 c4 或 cccc 表示 把 列表 压缩 为 4 个 无 符号 字符 ，al4 表示 将 列表 压缩 为 
14 个 字 节 的 ASCII 字符 ， 并 填充 null 值 。unpack 数 能 将 二 进 制 格式 的 字符 串 转 换 为 列表 。 它 是 
pack 的 逆 操 作 ， 能 将 字符 串 转换 回 Perl 格式 。 
































表 18-8 模板 pack 和 unpack: 类 型 和 值 














模板 描述 

a ASCII 字符 串 〈 填 充 空 值 ) 

和 A ASCII 字符 串 〈 填 充 空 格 ) 

b 位 字符 串 《〈 从 低位 到 高 位 顺序 ， 与 vec 相同 ) 
B 位 字符 串 《〈 从 高 位 到 低位 顺序 ) 








5 带 符号 的 char 值 
C 无 符号 的 char 值 
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〈 续 ) 

模板 描述 

d 本 地 格式 的 双 精 度 浮 点 数 

f 本 地 格式 的 单 精度 浮 点 数 

h 十 六 进 制 字符 串 〈 低 四 位 在 前 ) 

于 十 六 进 制 字符 串 《〈 高 四 位 在 前 ) 

i 带 符号 的 整数 

I 无 符号 的 整数 

1 带 符号 的 长 整数 

工 无 符号 的 长 整数 

衣 “network”( 高 位 优先 ) 顺序 的 短 整 数 

N “network”( 高 位 优先 ) 顺序 的 长 整数 

p 一 个 指针 ， 指 向 一 个 以 空 值 结束 的 字符 串 

P 一 个 指针 ， 指 向 一 个 结构 〈 长 度 固 定 的 字符 串 ) 
dq 带 符号 的 64 位 值 

Q 无 符号 的 64 位 值 

S 带 符号 的 短 值 (16 位 ) 

S 无 符号 的 短 值 (16 位 ) 

U uuencode 编码 字符 串 

v “VAX”( 低 位 优先 ) 顺序 的 短 整数 

V “VAX”( 低 位 优先 ) 顺序 的 长 整数 

w 以 128 为 基数 的 BER 压缩 的 无 符号 整数 ， 高 位 在 先 
x 空 字 节 

入 备份 字 贡 

@ 空 值 填 和 人 绝对 位 置 


格式 


S$string=pack(Template，QG@list ):， 
Qlist = unpack(Template，S$Sstring ) 


示例 18.27 


ESCeneny 
由 S$bytes=pPack ("c5"，80,101,114，108，012); # 5 aSCTT characters 
包 EN 


WOWEUEy) 
Per 了 
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解释 
1. 列表 中 的 第 一 个 元 素 是 模板 《〈 见 表 18.8)， 它 由 类 型 和 压缩 值 的 数目 组 成 ; 在 本 例 中 ， 它 是 
四 个 带 符 号 的 字符 。 列 表 的 其 余部 分 由 字符 P、e、r 和 1 的 十 进 制 值 构 成 。 将 该 列表 压缩 为 
二 进 制 结构 。 返 回 含 有 压缩 结构 的 字符 串 ， 并 将 它 保存 到 $bytes 中 。 (参阅 ASCII 表 。) 
2. 打印 四 个 字 节 的 字符 串 。 


示例 18.28 
SG 
中 $string=Pack("A1L5RAR3"，"hey" "you"):; # ASCTIT strzin9 space paaaed 
包 EEC 


ES 
Dey you 


下 ， 一 


和 


. 使 用 模板 A15A3 将 两 个 字符 串 hey 与 you 压缩 为 结构 。A15 表明 把 字符 串 hey 转换 为 由 15 
个 字符 组 成 的 ASCII 字符 串 , 并 填充 空格 。A3 表示 把 字符 串 转 换 为 由 3 个 字符 组 成 的 字符 
串 ， 并 填充 空格 。 

2. 根据 pack 函数 的 格式 模板 打印 字符 串 内 容 。 它 们 都 是 左 对 齐 的 。 


示例 18.29 


ES 
#!1V/bin/pPer1l 
# PFO9Fam to Uuencoae a 故 Je ana then ucaecoae 工 
开 SetREN EECNRDSRSENSE AIREONIEEGCSTRIEEOEEmEEEINOS 
包 SeteopRDRNRE oaqeaow 居 川 由 ED CS 和 全 OSI 


了 While(<BEW>) 1{ 


4 $uuline=Pack("ux"，$S ); # uuencoaea String9 
写 Pint CODEDPW S$Suuline: 

) 

CoSG ENW- 


Close CODEDPNW;” 


6 SceneRUnesaeodowdneaeanEEcsn SEN 
while(<UUPW>) { 
史 IE 


】} 
Close UUPW;” 
NI 


8 OoPen (DECODED ，"codedpPw") 11 die: 
包 While(<DECODERD>) 1{ 
8 QQdecodeline = UnPack("ur"，$S ); 
外 册 ormiaaedeoseeswemie 
} 
ouEsuay) 


吕 过 9 三 入 下 K 本 CE 二 2 环 攻 三 尖 庆 本 过 已 历 用 六 二 BA 过 BERTOXOSNERLAA 
ON 人 GBS 2 记 外 本 名 训 O 本 全 
2 全 作用 丽 国 计 及 辣 度 局 人 三 交 二 民 直 记 庆 导 基 本人 
0 
下 
人 


与 系统 交互 549 





有 党 和 区 有 和 有 用 枯 全 用语 用 

媚 =75C<#IX.C423-3TU=6-P(S8SD76EN.BIJU< 克 (0O7&BB+15D8 克 20QI 
MrG50U811 3>#F7Y.CD3=75C<"11419&0T7CHO=RSR+11- 

忆 7VJZI+1155817P=6) 工 :6 

1815S<BJDO(OE75CRIUE6ET 5 

U7r&ES=&5N.GQZ 5S<Z= 关 IT.977 克 1)K(SSD>6BEN.])U< 克 (OPR5THFVYT<ST#+ 
本 证 放生 思 全 区 本 全 二 区 区 本 疙 人 全 区 侣 

工 7 焉 ] 肌 8V- 五 < 友 ， 2 >#HV7 关 "PCHV7# 忆 CTIT.7RI18V-E<1W 657- 瑟 <CHO. 6 
和 
M9607 :6423># 厅 了- 

隐情 0 天 司 站 57 有 玫 有 人 作 2 攻 可 汪 和 三 布 各 区 及 攻克 OO 放 的 放 60 而 和 区 囊 155 
人 


国人 人 人 放风 而 基山 各 有 且 的 和 
加 辣 辣 故居 
本 
司 了 用 
站 
人 
smtp:x:0:0:Mail Daemon User:/: 
和 避 和 有 且 六 生生 有 区 用 且 7 和 让 本 瑟 
而 人 
有 志 本 有 玫 放 以 瑟 攻克 NE 有 太 避 天 大 本 有 记 页 瑟 天 太 二 芝 帮 交合 二 有 可 三 区 
0 
站 CE 
站 OO 
司 局 夺 世 区 9 多 玫 作 二 克 和 了 二 本 的 古 辣 可 全 天 万 记 页 全 尖 人 可 厨 古训 有 玉 癌 且 瑟 故宫 页 允 e 3 





解释 
1. 以 读 方式 打开 本 地 文件 passwd。 
2. 以 写 方式 打开 另 一 个 文件 codepw。 
3. 将 文件 句柄 的 每 一 行 读 取 $_， 直 到 文件 末尾 。 
4. pack 国 数 对 该 行内 容 ($_) 进 行 uuencode 编码 ,并 将 编码 后 的 行 赋予 标量 Suuline。uuencode 


编码 通常 用 于 将 二 进 制 文件 转换 为 可 供电 子 邮件 发 送 的 编码 格式 。 
.将 uuencode 编码 字符 串 发 送 到 文件 句柄 。 
. 以 读 方式 打开 含有 uuencode 编码 文本 的 文件 ， 并 将 它 附加 给 文件 句柄 UUPW 。 
. 打印 每 一 行 uuencode 编码 文本 内 容 。 
. 以 读 方式 打开 uuencode 编码 文件 。 
9. 从 文件 句柄 中 读 取 每 一 行内 容 ， 并 保存 到 $_ 中 。 
10. unpack 国 数 负 责 将 uuencode 编码 字符 串 转 换 回 原来 的 格式 ， 并 赋值 给 @decodeline 。 
11. 打印 uuencode 编码 行 。 


示例 18.30 


人 nEO 
#1/bin/Ppez1l 


Go = En 





灿 Snmts=Pack( 3 5 二 十 01L 5) 到 1 有 EEC 
受 ES 

号 RS 

4 Seek (BINRARY，0,0) |11 aiey” 


while(<BINARY>) { 
己 (Sasn2FSn3hEunpackeo3 SS 是 ) 下 


550 争 18 章 





6 生生 风 宙 关 和 和 SN 7 
】} 
OUEsuey) 
6 二 二 0 
解释 


1. 将 三 个 整数 5、10、.-5 压缩 为 三 个 带 符号 的 整数 。 返 回 值 是 一 个 二 进 制 结构 。 将 它 赋 值 给 $ints。 

2. 以 读 写 方式 打开 文件 句柄 BINARY。 

3. 将 压缩 得 到 的 整数 发 送 到 文件 中 。 该 文件 是 一 个 压缩 文件 , 并且 完 全 是 不 可 读 的 。 如 要 读 取 
该 文件 ， 读 者 必须 先 将 其 转换 回 ASCII 格式 。 可 使 用 unpack 国 数 完成 该 项 任务 。 

4. seek 国 数 将 文件 指针 置 于 文件 顶部 的 字 闻 0 处 。 

5. 一 次 从 文件 中 读 取 一 行内 容 。 解 压 $_ 中 的 每 一 行内 容 ， 并 返回 原先 的 列表 值 。 

6. 打印 原先 的 列表 值 。 


示例 18.31 


人 msccnety 
$stzr="0x123456789RABCDE el1lie..."; 
下 EeeSiS ES 





$bytes=unPack ("Hx",S$Sstr); # Phex Strin9 (re9ulIar Oraer) 
肥 EN 


$str2 = Pack("Hx"，S$Sbytes) : 
本 DSS RN 


S$bytes = unpPack ("hx",S$Sstz); # Phex Strin9 (reversea orader) 
4 SEEN 


$strl = Pack("hxr"，S$Sbytes) ; 





号 TSSETEINOTEL 
ouEewy 
下 OKI2345967689APC 有 PR EAIITEO 
2 3078313233343536373839474243444520656c6c69652e2e2e 
要 [9 
4 038713233343536373839314243444540256c6c69656e2e2e2 
号 区 
解释 
1. 该 字符 串 含 有 一 个 十 六 进 制 整数 和 一 些 文本 。 
2.“h” 和 “ 玉 ” 字 段 表明 对 长 度 为 多 个 nybble〈 四 位 组 ， 表 示 一 个 十 六 进 制 数 ， 即 0-9a-f) 的 
字符 串 进 行 压 缩 。pack(O) 函数 输入 的 每 个 字 节 都 将 在 结果 中 生成 一 个 4 位 组 。 变 量 $bytes 中 
的 十 六 进 制 字符 串 以 常规 十 六 进 制 顺序 排列 而 成 ， 原 字符 串 中 的 每 个 字符 都 会 表示 为 两 个 
十 六 进 制 数 字 。 例 如 ,“ellie” 表 示 为 63 6c 6c 69 65， 而 三 个 点 号 则 可 表示 为 e2 e2 e2。 
18.2 ”进程 





Perl 脚本 是 驻 留 在 磁盘 上 的 程序 。 当 把 一 个 程序 载 入 内 存 并 开始 执行 它 时 ， 就 称 它 为 进程 。 每 
个 进程 都 拥有 很 多 从 父 进程 《又 称 调 用 进程 ) 继承 而 来 的 属性 。Perl 提供 了 一 些 用 于 检索 进程 信息 
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的 函数 。 在 介绍 这 些 函 数 之 前 ， 为 帮助 读者 理解 这 些 Perl 系统 调用 的 目的 ,首先 简要 地 介绍 一 下 有 
关 进 程 的 知识 。 








18.2.1 UNIX 进程 





每 个 进程 都 有 惟一 的 进程 ID, 它 是 一 个 正 整数 ,又 称 作 pid。 除 了 进程 0 〈 即 交换 器 ，swapper) 
之 外 ， 每 个 进程 都 有 自己 的 父 进程 。 第 一 个 进程 是 init， 其 pid 为 1， 是 所 有 未 来 进程 的 共同 祖先 。 
后 来 出 现 的 进程 称 为 其 后 代 〈descendant)， 通 常 又 称 为 子 进程 (child process )。 

在 图 18-5 中 ，Perl 进程 是 shell (sh) 的 后 代 。 

每 个 进程 也 都 属于 某 个 进程 组 (process group )。 进 程 组 是 用 于 作业 控制 和 信号 处 理 的 进程 集 
合 。 每 个 进程 组 也 都 拥有 惟一 的 pid， 并 有 一 个 进程 领导 (process leader )。 在 登录 时 ， 进 程 组 领导 
可 以 是 登录 shell。 从 shell 创建 的 任何 进程 都 是 相应 进程 组 的 成 员 。 进 程 组 领导 打开 的 终端 又 称 作 
控制 终端 (controlling terminnal), 从 它 产生 的 任何 进程 都 会 继承 它 。 任 何 发 送 给 进程 组 的 信号 都 会 
发 送 到 组 中 所 有 的 进程 上 。 这 就 是 为 什么 按 下 <Ctrl>-c 时 ， 正 在 运行 的 进程 及 其 子 程序 都 会 终止 。 
Perl 提供 了 负责 获取 进程 组 ID 和 设置 进程 组 的 函数 。 





















































Starting Up 


Login:joe 
Passwd: 
Welcome! 

$ perl -e “hel1o” 





图 18-5 Perl 进程 是 shell 的 一 个 后 代 





在 创建 进程 时 , 应 当 为 其 指定 四 个 数字 , 以 表明 进程 的 所 有 者 。 它 们 必须 是 真实 有 效 的 用 户 ID 
和 真实 有 效 的 组 ID 。 用 户 ID 又 称 uid, 是 一 个 与 登录 用 户 名 相关 联 的 正 整 数 。 真 实 uid 是 /etc/passwd 
文件 中 的 第 三 个 字段 。 在 登录 时 ， 创 建 的 第 一 个 进程 又 称 作 登录 shell (login shell)， 并 为 它 指 定 
用 户 ID。 从 shell 产生 的 任何 进程 都 将 继承 这 个 uid。 任 何以 该 uid 运行 的 进程 都 称 为 根 进程 (root 
process) 或 超级 用 户 进程 ， 具 有 特殊 的 权限 。 

此 外 还 有 一 个 组 ID 号 ， 又 称 真实 的 gid， 负 责 把 组 关联 到 登录 用 户 名 上 。 默 认 的 gid 是 口令 文 
件 中 的 第 四 个 字段 ,任何 子 程序 也 都 会 继承 它 。 系 统管 理 员 可 以 通过 指定 /etc/passwd 文件 中 的 设置 
项 来 允许 某 个 用 户 成 为 其 他 组 的 成 员 。 

下 面 是 passwd 文件 中 的 一 项 ， 说 明了 它 是 如 何 存储 uid 和 gid 值 〈 字 段 之 间 由 冒号 隔 开 )。 
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示例 18.32 


( Entry Erom /etc/passwa) 
本 二 交 了 必 MG 可 3 三 9 5 天赋 OmE ES 


解释 
4《 写 中 7 
1 
2 本 用 党 局 的 册 芝 
3. uid 
4. gid 
是 2Cos 
6. home 目录 
7. 登录 shell 


通常 会 把 进程 的 有 效 uid (euid) 和 有 效 gid (egid) 设置 为 与 运行 进程 的 用 户 的 真实 uid 和 gid 
相同 。UNIX 会 根据 uid 和 gid 决定 进程 使 用 的 权限 。 如 果 文 件 的 euid 和 egid 变 成 其 他 所 有 者 ， 则 
该 用 户 会 在 执行 程序 时 成 为 进程 的 实际 所 有 者 ， 并 获得 其 访问 权限 。 负 责 设 置 有 效 uid 和 有 效 gid 
的 程序 称 作 用 户 ID 设置 程序 ， 又 称 setuid 程序 。 在 更 改口 令 时 ，/etc/passwd 程序 将 setuid 为 root 
身份 ， 从 而 为 用 户 提供 在 passwd 文件 中 更 改口 令 的 特权 ， 该 特权 由 root 拥有 。 



































18.2.2 ”Win32 进程 


Windows 的 进程 模型 不 同 于 UNIX 系统 。 由 于 Perl 原本 是 为 UNIX 系统 设计 的 ,因此 标准 Perl 
库 添 加 了 很 多 库 例 程 ， 以 便 适 应 Windows 环境 。Win32 目录 〈(C:/PerUlib/Win32 ) 是 一 个 专用 于 
Windows 的 目录 ， 它 随 Perl 的 Windows 版 发 布 ， 其 中 含有 很 多 模块 ， 可 用 于 创建 、 挂 起 、 恢 复 和 
撤销 进程 。Win32::Process 模块 中 含有 很 多 能 够 操纵 进程 的 函数 。 下 面 列 出 的 是 Win32 目录 中 的 模 


块 清单 : 
AuthenticateUser.pm Internet .pm Redistzy.pm 
ChangeNotify.pm Mutex. pm Semaphore .pm 
Cl1ient.PLl NetRAdmin .pm SerVer .pP1 
Cl1Lipboard.pm NetResource .pm SerVvice.pm 
Console .pm ODBC .pm Shortcut .pm 
也 vent .PPm OLEE Sound. pm 
EventLodg .pm OLE . pm Test .P1 
FEIle.Ppm PerfLipb .pm TieRegisttry.Ppm 
EilLeSecurziIity.Ppnm Pipe .Pm WinErzor .Pm 
工 已 已 3 在 韦 Process .pm test-async.P1l 


18.2.3 环境 CUNIX 和 Windows ) 


在 登录 时 ,shell 程序 会 继承 一 组 环境 变量 , 后 者 由 其 他 登录 程序 或 某 个 shell 启动 文件 〈.profile 
或 .login) 负责 初始 化 。 在 这 些 变 量 中 含有 有 关 进 程 的 有 用 信息 ， 璧 如 搜索 路 径 、 主 目录 、 用 户 名 
和 终端 类 型 等 。 在 设置 并 导出 环境 变量 后 , 该 进程 旦 化 的 任何 子 进 程 都 能 继承 它们 shell 进程 会 把 
环境 变量 信息 ,传送 给 Perl 程序 。 

特殊 关联 数组 %ENV 含有 一 些 环境 变量 方面 的 设置 。 如 果 改 变 了 Perl 脚本 中 的 环境 变量 设置 
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值 ， 则 会 影响 该 进程 及 其 所 有 子 进程 的 设置 。 而 父 进程 “一 般 是 shell) 中 的 环境 变量 将 保持 不 变 。 


示例 18.33 


meESCeneEy 

(UNIX) 

| foreach $key (keys (s$ENV) ) { 

也 TESTREYANTDO 

号 Print "Your login name 1s SENV{'LOGNRAME ' } \n"y; 

4 Spbwd=SENV{'IPND' 1: 

GeVONEEEDTEESEDEESOEI SEC 生生 QIANOL 


ou 
2 OPENTNEOM 
MANPAT 万 
FONTPAT 万 
工 ODGNAM 
USER 
了 五 RMCAP 
也 RM 
局 瓦 百 工 研 
忆 IDD 
万 OM 玉 
了 AT 
1TNDO_ PFARNT 
MGR NV_ PITAC 玉 万 OTDR 
习 OU SITE 下 e 司 < 
4 Zhe Present working9 airectory Is /home/7Tody/ elII11ie 


1. 使 用 keys 国 数 从 %ENYV 数组 中 获取 当前 设置 的 所 有 环境 变量 。 这 些 变量 都 继承 自 甚 父 进 
程 Shell。 

2. 打印 每 个 环境 变量 。 

3. 打印 LOGNAME 的 值 ， 即 用 户 名 。 

4. 将 PWD 的 值 “ 即 当前 工作 目录 ) 赋值 给 $pwd， 并 打印 之 。 


示例 18.34 


(Winaows) 
while((S$SkeyvS$value)=each(sENV) ) { 
ELSIEEYSVT SIUENTO SS 7 
】} 
人 ED 


下 PRROMRPE5DSC 

PROCESSOR TDENTTIFTER: X86 FamiIy 6 Moae] 5 Stepping 2， 
GenuIzneTInte1 

证人 辣 全 天 三 让 证人 语 及 加 全 六 有 TS 
NOCIRNVORRNWI SI 7NBINOCNORRATTIN95NVNBTINVRCRNPERTNEIN 
C:\VMKSNT2C:\WINDOWS2C: WINDO 克 

全 村 和 人 人 夺 交 全 古 和 夺 天生 人 六 克 关 放 且 局 大 王八 届 9 人 SR 汪 岂 二 六 

PROGRAMFTTES: C:\PROGRA~1 

PRROCERSSORIARCZTTRCTURED RE86 

BROGRSSORERRURSONE 由 50 史 

罗 同 局 号 T 有 有 二 有 三 天 了 本 和 
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FROCRSSOR 75V5T 6 
解释 
使 用 each 国 数 从 %ENV 数组 中 获得 当前 设置 的 所 有 环境 变量 。 这 些 变量 都 继承 自 甚 父 进程 
MS-DOS shell 。 


18.2.4 ”进程 和 文件 句柄 


正如 在 第 10 章 “ 获 得 文件 句柄 ”所 讨论 的 ， 在 Perl 中 可 以 通过 输入 或 输出 文件 句柄 来 打开 进 
证 例如 ， 如 要 查看 机 器 上 正在 运行 的 所 有 进程 ， 可 以 为 UNIX 的 ps 命令 创建 一 个 文件 句柄 〈 详 
第 10 章 ， 另 见 本 章 “system 国 数 ” 一 节 )。 








AN\ 
国 | 


示例 18.35 


全 Semi) 
# UNIX Ps commana 
下 openm (PROC，"pPs =aux |") |1| Qie "SINn"7 
1 和 用 用 生 
浊 EROCE 


OU 
2 
加 0 局 光 用人 玫 和 的 玫 呈 全 人 用 信 用 7 
JejeiE 5 由 二 0 0 王侯 号 思 局 证 27 是 人 2 
下 GO 让 2 与 狐 0 D Fep 5 0:02 pageaaemnon 
这 21oie OO 5 光 CE 


<more Processes here> 
ERE EUEOSSUECS RECORD SEC 全 7 和 和 区 天 玫 三 帮 7 有 和 克 
e 了 II1ie 7 
e 了 11Ie OO 0 


<Some of the OutpuL Was cut to savre Space> 


用 后 X 22 OO 0 0 大 万 证 20 硕 00 二 二 ie 

Eee 2ORORI 十 2 帮 c 半生 信人 全 几 琶 二 下 | 有 se 
有 
elIJie 3824 0.0 了 .8 汪 2 症 22S0 


解释 
1. 以 读 方式 打开 文件 句柄 PROC。 它 又 叫 作 输入 过 着 器 Cinput filter)。 将 ps 命令 输出 的 内 容 
通过 PROC 文件 句柄 发 送 给 Perl。 
2. 将 过 让 器 的 内 容 打 印 到 STDOUT 中 。 


登录 信息 一 -getlogin 函数 。getlogin 函数 负责 从 /etc/utmp 中 返回 当前 的 登录 信息 。 如 果 
getlogin 函数 返回 null， 则 可 使 用 getpwuid。getpwuid 函数 以 用 户 的 uid 作为 参数 ， 能 够 从 口令 文 
件 中 返回 该 uid 的 关联 项 。 

$< 变量 是 该 进程 的 真实 uid。 














格式 


et1ogim7 
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示例 18.36 


ES 





于 $1Loginname=getlogin || (getpwuia(S$<)) [0]11 aie "Not a use herzellI7"7; 
多 EeeoannameE 瑟 OnmanmeRNn 
ES 


N 一 


MG ooeoooESS 


圳 


和 


.getlogin 国 数 从 /etc/utmp 中 返回 登录 名 。 如 果 调 用 失败 ， 则 使 用 getpwuid 函数 检索 口令 文 
件 。 变 量 $< 含有 该 进程 的 真实 uid。 
2. 标量 $loginname 含有 用 户 的 登录 名 ， 即 口令 文件 的 第 一 项 内 容 。 


特殊 进程 变量 (pid、uid、euid、gid、egid)。Perl 提供 了 一 些 特殊 字符 ， 负 责 存储 执行 脚本 
的 Perl 进程 信息 。 如 果 要 让 程序 易于 阅读 ， 可 使 用 标准 Perl 库 中 的 English 模块 以 英语 形式 表达 这 





$$ 运行 脚本 的 Perl 程序 的 进程 ID 
$< 进程 的 实际 uid 
$> 进程 的 有 效 uid 
$( 进程 的 实际 gid 
9$) 进程 的 有 效 gid 





父 进程 1D 一 一 getppid 函数 和 $$ 变量 。 系 统 上 的 每 一 个 进程 都 由 其 进程 标识 号 (pid) 予以 标 
识 ， 该 进程 标识 号 是 一 个 正 整数 。 特 殊 变 量 $$ 中 含有 该 进程 pid 的 值 。shell 也 使 用 这 个 变量 来 维 
护 当前 进程 的 进程 ID 号 。 

getppid 国 数 会 返回 父 进 程 的 进程 ID 号 。 


示例 18.37 


人 esSCisEny 
下 IE 
2 和 WE 二 和 天 间隔 生 并 二 王者 和 作 7 


OUESULE) 
业 Eee 
甩 工 mE 本 局 Eee 万 DCROT ED OCSesSE 00 


(At the_ Command Line) 
3 S_ echo 55$ 
区 0 


解释 
1. 打印 该 进程 《 即 该 Perl 脚本 ) 的 进程 标识 号 〈pid ) 。 
2. 原来 的 shell 是 旷 化 该 进程 的 进程 ， 也 就 是 它 的 父 进程 。 父 进程 的 pid 为 ppid。 
3. 退出 Perl 脚本 后 ， 使 用 $$ 打印 shell 的 pid。Perl 脚本 的 ppid 是 2340 也 就 是 其 父 进程 “ 即 
shell) 的 pid 。 




















进程 组 ID 一 一 pgrp 函数 。pgrp 国 数 返 回 指定 pid 的 当前 组 进程 。 如 果 没 有 参数 或 者 以 0 作为 
参数 的 话 ， 该 函数 将 返回 当前 进程 的 进程 组 ID 。 
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格式 
getBogrp(PID) 7 
eepoqe 晤 ETEB7 
SetpPgrpP: 


示例 18.38 
msc 
也 esi 二 ae 几 osaoESSECOEEREUoiinic SEE 
色 Grameacnneoonon sosreme sqRSEIESSN SSEEenG 
加 Printf "The Process group's Pid is %sdNn"，getpPgrP (0) : 


euEsuey) 

也 ECEESE 本 EN 
到 SEE 是 

悦 Ecowo 晤 SO 和 


18.2.5 “进程 优先 级 和 Nice 值 


内 核 为 每 个 进程 维护 着 一 个 选 定 的 调度 优先 级 。 大 多 数 具 有 交互 性 的 短 作 业 都 具有 高 优先 级 。 
UNIX 的 nice 命令 允许 用 户 修改 进程 C(BSD、pre-System V) 的 调度 优先 级 。 当 系统 负载 较 重 时 ， 
应 当 让 CPU 密集 型 作业 暂缓 执行 ， 以 便 较 高 优先 级 的 作业 能 够 更 快 地 访问 到 CPU。 不 贪 禁 使 用 处 
里 器 的 作业 又 称 作 是 nice 的 。 

nice 值 用 于 计算 进程 的 优先 级 。nice 值 为 正 数 的 进程 将 运行 在 较 低 的 优先 级 上 ， 意 味 着 其 收 到 
的 CPU 时 间 要 少 于 它 的 CPU 时 间 份额 。nice 值 为 负数 的 进程 将 运行 在 较 高 的 优先 级 上 ， 甚 收 到 的 
CPU 时 间 要 多 余 它 的 CPU 时 间 份 额 。nice 值 的 范围 是 从 -20 到 19。 大 多 数 进程 都 运行 在 优先 级 0 
上 ， 以 便 平衡 它们 对 CPU 的 访问 。( 只 有 超级 用 户 才能 将 nice 值 设 置 为 负数 。) 

下 面 的 getpriority 和 setpriority 国 数 是 根据 相应 的 系统 调用 而 命名 的 ， 读 者 可 以 在 UNIX man 
页 面 的 第 二 部 分 中 找到 它们 。 

getpriority 函数 。getpriority 函数 能 返回 进程 、 进 程 组 或 者 用 户 的 当前 优先 级 (nice 值 )。 并 不 
是 所 有 的 系统 都 能 支持 该 函 数 。 如 果 不 能 实现 ， 该 国 数 会 产生 致命 错误 。WHICH 有 三 种 值 : 0 表 
示 进 程 优先 级 ，1 表示 进程 组 优先 级 ，2 则 表示 用 户 的 优先 级 。WH9O 的 解释 是 与 进程 优先 级 、 进 程 
组 优先 级 和 用 户 优先 级 的 进程 标识 符 相 关联 的 。 值 0 表示 是 当前 进程 、 进 程 组 或 用 户 。 








NA 共 















































格式 


EPON ENWRLGN)E 


示例 18.39 
ES 
业 S$niceval = getPriority( 0,0) ; 


副 EAIE 汪 FINEVRENOICE SIIEA SCTFEEnOEE TSCESS SET 
oOEewe) 
冯 ES 


释 
1. getpriority 国 数 返 回 当前 进程 的 nice 值 。 
2. 该 进程 的 nice 值 为 0。 该 进程 在 享用 CPU 时 间 方 面 没有 优先 权 。 
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setpriority 函数 。setpriority 国 数 负责 对 进程 、 进 程 组 或 用 户 设置 当前 的 优先 级 ， 并 修改 进程 
的 调度 优先 级 。 如 果 在 系统 上 不 能 执行 setpriority 系统 调用 ， 则 setpriority 国 数 将 返回 错误 。 

WHICH 有 三 个 可 选 值 0 表示 进程 优先 级 , 1 表示 进程 组 优先 级 ,2 则 表示 用 户 的 优先 级 。WHO 
的 解释 是 与 进程 优先 级 、 进 程 组 优先 级 和 用 户 优 先 级 的 进程 标识 符 相 关联 的 。 值 0 表示 是 当前 进程 、 
进程 组 或 用 户 。NICEVALUE 表示 nice 值 。 较 低 的 nice 值 能 够 提高 进程 的 优先 级 ， 而 较 高 的 nice 
值 则 能 降低 进程 的 优先 级 。 

除非 拥有 超级 用 户 特 权 ， 否 则 就 不 能 设置 负 的 nice 值 。 如 果 强 行 这 么 做 ， 则 当前 的 nice 值 将 


不 会 改变 。 




















格式 


SEO NT ENTECRVRRUER 


示例 18.40 


mesh 

册 Sieceeval = 三 getpriority(070) 7 

色 TELOREEEnEEE7STUEE ACT BoCSSE ES 
setPriority(0,0，( S$niceval + 5 )):， 

4 Raeeue 三 ac ae 本 各 划 二 放下 前 DESIGN E 0 有 天 


wmeeuey 
到 EC 全 ECSS SR 
4 ESEES 人 2 


1. getpriority 国 数 返 回 当 前 进程 的 nice 值 。 

2. 打 印 mice 值 。 

3. setpriority 国 数 将 当前 进程 的 nice 值 加 上 5。 该 进程 将 拥有 更 低 的 优先 权 , 也 就 是 更 为 “nice ”。 
4. getpriority 国 数 返 回 的 nice 值 为 5。 


18.2.6 ”口令 信息 


UNIX。 下 列国 数 能 返 代 遍历 /etc/passwd 文件 ， 并 从 该 文件 中 检索 信息 。 这 些 函 数 的 命名 方 
式 和 系统 库 中 的 国 数 相 同 〈 参 阅 UNIX 手册 的 第 三 部 分 )， 并 能 完成 相同 的 任务 。 如 果 读 者 对 有 关 
/etc/group 文件 的 信息 感 兴趣 , 不 妨 使 用 Perl 国 数 getgrent、getgrgid 和 getgrnam， 它 们 都 能 返回 含 
有 4 个 元 素 的 数组 ， 其 中 含有 组 〈gourp ) 项 目的 相关 信息 。 读 者 可 以 在 UNIX 手册 页 中 找到 这 些 
国 数 的 描述 信息 。 下 面 是 /etc/passwd 文件 示例 ; 








root:YhTLIR4heBdxfw:0:1:0Operator:/:/bin/csh 

页 GO 本 0553 了 06553 汪 2 

总 省 2 CS 

本 于 通 汪 于 二 全 玉生 生 的 主 而 

uucp:x*x:4:8::/var/spool/uucppublic: 
news:x*x:6:6::/var/spool/news:/bin/csh 

Sync::1:1::/:/bin/sync 

ellie:aVD17TSsBMftYgd:9496:40:El1lie Shellie:/home/jody/ellie:/bin/ksh 


Windows。Windows2000 和 NT 把 有 关 用 户 的 信息 都 存放 在 一 个 二 进 制 数 据 库 SAM (Security 
Accounts Manager) 中 。 该 数据 库 是 注册 表 的 一 部 分 。 由 于 它 是 以 二 进 制 形式 存储 的 ， 因 此 一 般 的 
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Perl 读 操 作 将 不 起 作用 。 最 好 使 用 Win32 扩展 来 获取 用 户 信 息 。Win32::NetAdmin 在 \Perlsitelip' 
win32 下 与 ActiveState 绑 定 在 一 起 〈 详 见 表 18-9)。 读 者 可 使 用 该 模块 的 两 个 函数 来 操纵 用 户 账号 ; 
UserGetAttributesO) 和 UserSetAttributes() 。 另 一 种 好 的 扩展 是 David Roth 的 Win32::AdminMisc， 
可 在 www.roth.net 处 获得 。 

Win32 的 net'exe 命令 也 能 显示 有 关 用 户 与 系统 的 信息 。 


ETEEYT 


由 C:\ net helP 
2 





人 N 巨 卫 万 PP commana 
本 本 
NET commana /FETP 


Cormmanas avrailapblIe are: 


NE 了 ACCOUNTS NET 五 P 工 已 NT SHARD 
JE NE CNEDPMSC JN 王 T STAR 
Je NET7 TOCaTDGROUP NO 的 性 攻 凡 忆 els 
NT CONRTG SERVER NET NAMPE TO 

NET CONETITG WORKSTATTITON IN 瑟 了 三 有 US 古 NET TTME 
ON 人 IN 区 区 

人 再 工 下 了 工 了 五 蕊 NET SENDD INT US 玉 R 
JE VBASSON NET VI 巨 克 


NRT REPPUSERVICPSUOSCSLIe nEOOFKSES7Ces ycUCaLS 世 35 
NRT RPRDP S7NTAX expazns how Lo FeaQ NEPT HRTP 5S57YnLtax 1 Ines ， 
NE EBDP Comnmnana | MORD QispJays HeIPpP one Screen at aa tme- 


2 C:N\ net userL 


User accounts For \\EOMPBOUND 


有 QimIDnIStZatoF JJIe ou2zoJey Guest 
SOPaAodenEcmapxec 
The commana compJetea successrfruJIy， 


表 18-9 Win32::NetAdmin 扩展 
Win32::NetAdmin:: UserhetAttributes( 8AMacj7i7ze， 


8UserNMa11e， 
SPasswora， 
SPassword4dsge， 
SPrivilesge， 
SFomedir7 
8Co7az7111e11 
Flagsy， 
SSc7iPIPath) 
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Win32::NetAdmin:: UserSetAttributes( 8Macjimne， 
8UserNa1ae， 
SPassword， 
SPassword4ge， 
SPrivilege， 
SFomedi7 
8Co7a117e11 
SF1asgsy， 
SSc7iPtIPatA) 


示例 18.42 


站 Use Win32::NetAamin dqw(GetUsers UserGetALtzCiputes) : 
2 GetUsers (""， FILTER _ NORMAL ACCOUNT,，\g%$hash ) oF Qie7 
foreach S$Skey(sort Keys shashn) { 
NT 
(OwenuEy) 
用 ODS SEOP 
五 JJIe Cu2zogIey 
Euesn 
SOLA9entCmaxec 


加 密 的 口令 不 能 从 UNIX 传送 到 Win32 系统 ,反之 也 不 能 。 它 们 的 加 密 方式 是 不 兼容 的 。 如 需 
管理 口令 ， 应 当 使 用 Win32::AdminMisc 或 Win32::NetAdmin 模块 扩展 。 详 见 表 18-10。 


表 18-10 Win32 口令 扩展 
Win32::AdminMisc::UserCheckPassword($Machine, $User, $Password); 
Win32::AdminMisc::SetPassword(($Machinel|$Domain), SUser, $NewPassword); 
Win32::AdminMisc::UserChangePassword(($Machinel|$Domain),$User,$O1dPassword,$NewPassword); 


Win32::NetAdmin::UserChangePassword(($Machinel|$Domain),$User,$O1dPassword,$NewPassword); 


对 于 Windows 用 户 ， 下 列 这 几 个 国 数 能 获得 无 法 从 ActiveState 中 实现 的 组 和 用 户 信息 : 


endgrent ()，endqpwent ()，getgrent ()，getgrgid()，getgrnam()， 

getpPwent ()，getpwnam()，getpwuid()，setgrent ()， setpwent () 

获取 口令 项 CUNIX) 一 一 getpwent 函数 。 getpwent 国 数 能 从 /etc/passwd 文件 中 检索 信息 。 
getpwent 函数 的 返回 值 是 一 个 9 元 素数 组 ， 由 如 下 内 容 组 成 : 

1. 登录 名 
2. 加 密 后 的 口令 
3. 用 户 ID 
4. 组 ID 
5. 配额 (Quota ) 
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. Gcos〈 用 户 信 息 ) 
主 目 录 
. 登录 的 shell 


DC oo ~ 个 


格式 
(manmneeseasswonasnodnesonaons usEsRESccmnnemi geSs 辣 是 On 
S$she1l1 )=getpwent 1， 
示例 18.43 


ES 
下 while( Qinfo=getPwent) 1{ 


AN 


2 ET 汪 人 
} 

ouEeuy 

及 nobody 
Qaemon 
SYS 
二 有 
iaiej 

解释 


1. getpwent 国 数 从 /etc/passwd 文件 中 获得 一 行内 容 , 并 保存 到 数组 @info 中 。 循 环 持续 执行 ， 
直到 getpwent 无 法 从 /etc/passwd 中 读 取 项 目 为 止 。 
2 如果 数组 的 第 三 个 元 素 舍 有 至 少 三 个 星 号 xs 入 则 打印 其 第 三 企 元 素 ， 即 用 记名。 


通过 用 户 名 获得 口令 项 一 -getpwnam 函数 。getpwnam 函数 以 用 户 名 作为 参数 , 并 返回 一 个 9 
元 素数 组 ， 该 数组 对 应 于 /etc/passwd 文件 中 的 用 户 名 。 





格式 


Seprwnamiooaunnmamej) 


示例 18.44 
人 WESCTEsEn 
#1V/Ppin/VpPezr1l 


本 EResenEsmname OSI 可 可 本 Te 人) 汪 | 
骂 if (($1ogin，S$Spasswd，S$uid)=getpPwnam(Sname) ) { 
已 站 
) 
】 
ee 


本 CE 
elI1ie--9496 
感 了 六 二 三 3 
解释 
1. foreach 循环 列表 中 含有 一 组 范围 从 1 到 10 的 uid 号 ， 依 次 处 理 其 中 每 一 个 号 码 。 








2. getpwnam 国 数 从 /etc/passwd 检索 信息 ,并 将 信息 的 前 三 个 字段 分 别 存储 在 数组 元 素 $login、 
$passwd 和 $uid 中 。 
3. 打印 登录 名 及 其 相应 的 uid。 


通过 uid 获得 口令 项 一 -getpwuid 函数 。getpwuid 函数 以 用 户 的 ID 号 作为 参数 ， 并 返回 一 个 
9 元 素数 组 ， 该 数组 对 应 于 /etc/passwd 文件 中 的 用 户 uid 项 。 


格式 


getpulilada(UID) 


示例 18.45 


SScenoty 


并 ESEEIEISOI ES OA 
玉 if (($1login，S$Spasswd，S$uid)=getpPwuid(S$Snum) ) { 
本 EN 


上 


人 ED 
引 Qaemon== 了 
三 之 
力克 二 必 
UUCP--4 
mews==6 
三 三 这 
忆 CE 
解释 
1. foreach 循环 列表 中 含有 一 组 范围 从 1 到 10 的 uid 号 ， 依 次 处 理 其 中 每 一 个 号 码 。 
2. getpwuid 函数 从 /ete/passwd 检索 信息 ,并 将 信息 的 前 三 个 字段 分 别 存储 在 数组 元 素 $login、 
$passwd 和 $uid 中 。 
3. 打印 登录 名 及 其 相应 的 uid。 





18.2.7 ”时 间 和 进程 


当 程序 在 计算 机 环境 中 工作 时 ， 经 常 需要 获取 并 操纵 当前 的 日 期 和 时 间 。UNIX 系统 维护 了 两 
种 类 型 的 时 间 值 : 日 历时 间 〈calendar time) 和 进程 时 间 (process time ) 。 

日 历时 间 是 从 UTC (Coordinated Universal Time, 是 Greenwich Mean Time 的 又 一 个 名 称 ) 时 
刻 1970 年 1 月 1 日 00:00:00 开始 计 时 而 得 到 的 秒 数 。 

进程 时 间 又 称 作 CPU 时 间 , 它 通过 时 钟 时 间 、 用 户 CPU 时 间 和 系统 CPU 时 间 来 测量 进程 使 用 
的 资源 情况 。CPU 时 间 的 计量 单位 是 每 秒 的 时 钟 滴答 〈tick) 数 。 

Perl 提供 了 一 些 和 时 间 有 关 的 函数 。 它 们 能 与 系统 交互 ， 并 检索 其 时 间 信 息 。 

times 函数 。times 国 数 返回 一 个 4 元素 数组， 其 中 含有 进程 的 CPU 时 间 信 息 ， 包 括 : 

。 用 户 时 间 一 一 用 于 执行 用 户 代 码 的 时 间 

。 系统 时 间 一 一 用 于 执行 系统 调用 的 时 间 

。 子 进程 的 用 户 时 间 一 一 所 有 已 终止 的 子 进程 的 总 执行 耗 时 

。 子 进程 的 系统 时 间 所 有 已 终止 的 子 进程 执行 系统 调用 的 耗 时 
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格式 


(Suser，S$Ssystem，， S$Scuser，， S$csystem) = 七 imesy” 


示例 18.46 
SS 
术 ASTOBETT 


业 FTnEERUSSTELETme TREEOE EECOOams23EESECcnOSNDO AtEImnes) 吕 0O]F 

到 PrintEf "System time in this Program %2.3f secondsNxn"， (times) [1]:; 
OUEUE) 

电 机 SEE 0 宝 7 

4 System LIme In tnhzs Erocoram 0.600 seconas 

1.times 函数 返回 一 个 4 元 素数 组 。 打 印 基 中 第 一 个 元 素 ， 即 用 户 时 间 。 


2. times 国 数 返 回 一 个 4 元 素数 组 。 打 印 其 中 第 二 个 元 素 ， 即 系统 时 间 。 
time 函数 CUNIX 和 Windows )。time 函数 返回 从 UTC 1970 年 1 月 1 日 开始 计时 而 得 到 的 非 
头 秒 数 。 读 者 可 以 借助 gmtime 国 数 和 localtime 函数 使 用 其 返回 值 ， 以 便 将 时 间 设 置 为 可 供 人 阅读 
的 格式 。 此 外 ， 当 比较 文件 修改 时 间 与 访问 时 间 时 ，stat 和 utime 国 数 也 用 到 了 time 函数 。 
gmtime 函数 。gmtime 国 数 会 把 time 国 数 的 返回 值 转换 为 由 UTC 字符 构成 的 一 个 9 元 素数 组 。 
如 果 读 者 曾经 是 C 程序 员 , 就 应 当 想 到 这 些 值 是 模仿 了 头 文件 /usrinclude/time.h 中 的 tm 结构 〈 详 
见 表 18-11 )。 





格式 
gmtime( 卫 XPR) 7 
9mtime 卫 XPR7 
(S$sec，S$min， Shour，S$Smonthday， Smonth，S$year，， S$Sweekdqayr 
S$Syearday S$isdqay1light)=gmtime: 


表 18-11 gmtime 函数 返回 值 











列表 元 素 涵义 

gsec 分 之 后 的 秒 : [0, 59] 

311771 小 时 之 后 的 分 : [0, 59] 

8HPoz7 从 午夜 开始 计算 的 小 时 数 : [0, 23] 
81O7111pday 月 份 里 的 天 数 : [1, 31] 

81tO111 从 1 月 开始 计算 的 月 份 : [0, 11] 
8year 从 1900 年 开始 计算 的 年 份 

eekday， 从 周 日 开始 计算 的 天 数 : [0, 6] 
Jearday， 从 1 月 1 日 开始 计算 的 天 数 : [0, 365] 
1sdaJLigAt 夏令 时 标志 


示例 18.47 


siScenoty 
本 BE 
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由 (S$sec，S$min， Shour，S$monthday， Smonth，，S$year， S$weekday S$yeardayr 
$isdqaylight) = gmtime: 
乌 Pint "The weekqday is $weekday and the month is S$month.NXn"i; 


CLD 


EeeEme mascnas 本 Sneeanmarcage is 于 
EECS 
4 EncoreonnaecsdgRUnnersume EEC Smal 
ETCEETIIOTOESNE 
GE 
Suaa 
Jo SS EC 
ER 
Tpe Coorainatea nreral Time 5 3:35 5ince man7lcnt。 
<9OUoEEDRE 二 


GTAOUNKO LO 


刷 


1. gmtime 国 数 返回 表 18-11 中 定义 的 数组 。 

2. 以 UTC 格式 打印 当前 是 星期 几 和 当前 的 月 份 。 

3. 利 用 UNIX 的 date 命令 打印 加 利 福 尼 亚 州 时 间 。 

4. 打印 UTC 时 间 。 

5. 如 果 使 用 夏令 时 , 则 将 $isdaylight 设置 为 非 0 值 。 由 于 这 里 夏令 时 是 无 效 的 , 所 以 不 会 打印 
任何 内 容 。 





localtime 函数 。localtime 国 数 会 把 UTC 时 间 转 换 为 本 地 时 区 的 一 个 9 元 素数 组 。 


格式 


Localtime ( 卫 XPR) 

localtime 王 XPR; 

(SECAESmDRRSONT ESmOSY ETmSDR VESE ROSSY7OSY 
S$isqdst)=1Llocaltime (七 ime) ， 


示例 18.48 


(At the Commanad Line) 
工 $ PerlL -e "Print scalar (localLtime) :" 
全 台 晤 Me 0 区 全 条 生 亿 人 7 


全 本 了 See 
2 $localtime=localtime' 
enneeiccaenme 


解释 
1. 这 里 的 localtime 函数 用 在 标量 上 下 文 语 境 中 ， 甚 返回 值 类 似 于 UNIX/Win32 date 命令 的 输 
出 内 容 。scalar 函数 强制 使 用 标量 上 下 文 语 境 。 
2. 将 localtime 的 返回 值 赋值 给 标量 。 


示例 18.49 


EScrcneotay 
后 
于 ($sec，S$min，S$Shour，S$mday，S$Smon，S$Syear，S$wday，S$yday，$isdst) = 
LocalLtime (time) : 
习 当 weekqay= 人 
SDDSIEIWA 
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"=>"Monaay"ny 
"=>"Tuesaday"， 
"=>"Weadnesaday"n 
USICLS 
0 
"=>"Satuzcaqay"yv 


UN FE 
中 
MY 


EEC 之 人 2 于 
3 ES 汪汪 TEST 二 | 忆 汪 定 ee 

} 

else 1{ 

二 

} 
0 ETETOOEECSIAOQSV7EEEEESwEeEEQayHSWOSYT RD 站 EE 
与 ER 
休克 


OUEo) 

司 且 二 全 
4 Toaay Is eanesaay. 
人 
OSI 


解释 
1. localtime 函数 把 time 国 数 的 返回 值 转换 为 本 地 时 间 。 
2. 关联 数组 %weekday 把 星期 一 到 星期 日 分 别 关联 到 一 周 内 的 各 天 上 面 。 
3. 打印 小 时 和 分 。 
4. 从 localtime 国 数 返回 的 标量 $wday 是 一 个 数字 ， 负 责 从 0 开始 表示 星期 儿 。 把 该 数字 当 作 
关联 数组 %weekday 的 键 来 使 用 ， 以 便 获 得 字符 串 Wednesday 的 值 。 
于 洒 到 和 。 崩 国有 
6. 如 果 夏 令 时 有 效 ， 数 组 元 素 $isdt 打印 为 1; 否则 为 0。 





18.2.8 UNIX 进程 创建 


Perl 程序 在 开始 执行 时 会 发 生 什 么 ? 这 里 简要 介绍 一 下 。 一 般 而 言 ， 用 户 都 是 从 shell 命令 行 
下 执行 Perl 程序 的 。 输 入 Perl 脚本 名 〈 及 其 参数 ), 然后 按 下 回 车 键 。 这 时 shell 就 开始 工作 了 。 首 
先 它 会 创建 (fork) 一 个 叫 作 子 进程 的 进程 。 这 个 子 进 程 实质 上 就 是 创建 它 的 shell 的 副本 。 现 在 就 
有 两 个 进程 正在 运行 , 即 父 进程 和 子 进 程 。 当 创建 好 子 进 程 后 ,shell 父 进程 一 般 就 会 进入 休眠 状态 
Cwaits)， 并 由 子 进程 负责 准备 执行 Perl 程序 ， 即 ， 处 理 管道 重 定向 〈 如 果 需 要 的 话 )、 执 行 后 台 处 
理工 作 ， 等 等 。 当 shell 子 进 程 完成 了 准备 工作 后 ， 就 会 在 其 内 部 开始 执行 (execs) Perl 程序 。 当 
Perl 进程 执行 完毕 时 ， 它 也 会 退出 〈exits) 执行 ， 并 将 其 退出 状态 返回 给 正在 等 待 的 shell 父 进程 。 
这 时 ，shell 会 再 次 醒 来 ， 并 在 屏幕 上 出 现 命令 行 提 示 符 。 如 果 用 户 输入 的 是 UNIX 命令 ， 也 将 重复 
上 述 流程。 

可 以 想象 ， 有 的 Perl 程序 也 需要 启动 子 进 程 ， 以 便 处 理 特定 的 任务 ， 璧 如 数据 库 应 用 程序 或 客 
户 端 / 服务 器 程序 。 

fork 函数 。 fork 函数 负责 在 UNIX 系统 上 创建 进程 。 调 用 fork 进程 一 次 会 返回 两 次 结果 。 它 
创建 父 进程 〈 调 用 进程 ) 的 副本 。 新 的 进程 又 称 作 子 进 程 。 子 进程 继承 了 父 进 程 的 上 下 文 、 打 开 的 
文件 、 真 实用 户 ID 、 掩 码 、 当 前 工作 目录 、 信 号 等 。 父 子 进程 都 执行 相同 的 代码 ， 从 fork 函数 调 
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用 之 后 ， 指 令 才 开 始 执行 。 
fork 国 煞 可 以 区 分 父 进程 和 子 进程 ， 因 为 它 会 ee， 对 于 子 进 程 它 会 返 
回 0， 而 对 父 进 程 则 返回 其 子 进程 的 pid。 调 用 fork 函数 后 ， 能 保证 首先 执行 其 中 的 某 个 进程 。 
wait、exec 和 exit 国 数 一 般 都 和 fork 函数 配合 使 用 ， ， 例 
如 ， 让 父 进程 等 待 子 进程 完成 某 项 任务 ， 并 在 子 进程 退出 后 恢复 该 父 进程 。 
图 18-6 说 明了 UNIX shell 是 如 何 使 用 fork 系统 调用 来 创建 新 进程 的 。 当 用 户 在 shell 提示 符 
下 输入 Perl 程序 名 后 ,shell 会 旷 化 一 个 进程 ,并 创建 其 本 身 的 各 5 ， 然后 父 进程 进 
入 休眠 〈wait) 状态 。 子 进程 代替 它 执行 Perl 进程 。 子 进程 始终 不 。 请 注意 ，ENYV 环境 变量 、 
标准 输入 、 标 准 输出 和 标准 错误 消息 都 是 继承 得 来 的 。Perl wo 父 shell 恢复 执行 。 
最 终 ，shell 提示 符 重 新 出 现在 屏幕 上 。Perl 程序 也 可 使 用 fork 函数 孵化 出 其 他 的 应 用 程序 。 



































S$scripft,perl 
Parent shell running 


Parenf shell sleeping 











pid=1256 
Chlld shellrunning 
env variobles 
本 人 HH， env voriobles pid=1258 
， HOME. PATH. = 
ee USER, etc， env variobles 
0:stdin terminal HOME, PATH， 
0:stdin, terminaol USER, etc. 


1: stdouf, terminal 
0 1: stdout, terminal ji 
2: stderr terminol OU 0:stdin, terminol 


2:stderr terminal 1 stdout terminal 























localvoriables 
forshell 了 
和 locol variobles 2:stder. terminaol 
forshell 
localvariables 
wait(&status) forshell 
Parent shellseeping exec(0 










Perl running in exit0 returns the 
ploce of child stotus to Parent 
via wait0 





envvariobles Parenf shell runs 
HOME, PATH， 
USER, efc. env variobles pid=1256 
HOME, PATH， Eee 
0stdin terminal USER, etc. env varioables 
RCR HOME, PATH， 
0: stdin. terminol USER, etc. 


exit0 


pid=1258 


1:stdout, terminal 






2.stder terminal 1:stdout, terminal 0:stdin, terminol 





local voriables 











由 ] 1:stdout terminaol 
forshell 2: stder terminal 
local voriobles 2: stderr terminaol 
local variobles 














图 18-6 从 shell 创建 Perl 进程 


岂 





格式 


下 三 改 


示例 18.50 


人 meet 
业 S$return_ valL=Eork: 
包 LOESEetcucn7al = OIL 
EeessnE 汪 站 IE 是 proessE 汪 E 志 m 匡 ss 
EN 
】} 
区 SS UshmeogEESetEucn7sal gl) 
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zanYNnESRESEIE 硬 Camemaiocecsss7 ERY7aUS 
于 司 交 SEVERE 
】 
elsel 
可 国生 SN 
上 


[SEE 
二 放生 全 
总 避 有 三 亿 下 区 交 二 有 


( 
2 
习 
1. 调用 fork 函数 创建 该 进程 的 副本 。 
2. 检查 返回 值 。 如 果 返 回 值 为 0， 则 执行 子 进程 代码 。 
3. 如 果 返 回 值 非 0， 则 执行 父 进程 。 
4. 如 果 fork 函数 调用 失败 ， 则 执行 本 行 语 句 。 如 果 进 程 表 已 满 ， 该 语句 也 可 能 会 失败 即 ， 系 
统 达 到 了 所 允许 的 最 大 进程 数 。 


exec 函数 。fork 函数 能 创建 新 的 进程 ， 而 exec 国 数 则 能 在 当前 进程 中 启动 新 的 程序 。 一 般 都 
是 在 fork 国 数 之 后 调用 exec 国 数 的 。Perl 是 从 shell 中 继承 属性 的 , 而 从 Perl 执行 的 进程 也 将 继承 
Perl 的 属性 ， 如 pid、gid、uid、 信 号 、 目 录 等 等 。 如 果 在 Perl 脚本 中 直接 调用 exec 国 数 ， 则 新 程 
序 会 代替 当前 正在 运行 的 Perl 程序 执行 。 当 程序 运行 完毕 后 ， 不 返回 Perl 程序 。 由 于 exec 国 数 不 
会 清除 输出 缓冲 区 ， 因 此 必须 手动 设置 变量 $1， 以 确保 顺利 地 缓冲 命令 。 

在 调用 exec 国 数 后 ， 文 件 句 柄 STDIN、STDOUT 和 STDERR 仍 将 保持 打开 状态 。 

在 系统 层面 ， 有 六 种 不 同 的 exec 国 数 可 以 用 于 初始 化 新 程序 。 如 果 给 exec 国 数 传递 了 多 个 参 
数 ,Perl 会 调用 C 的 execvp 库 国 数 。 其 参数 是 执行 程序 名 和 传递 给 该 程序 的 其 他 参数 。 如 果 给 exec 
国 数 传递 单个 参数 , 并 且 其 中 含有 任意 的 shell 元 字符 , Perl 则 会 将 它 传 送 给 shell 命令 /bin/sh -c 来 
解释 。 



































格式 


exXxec(UNIX COMMAND ) ; 
exXxeC UNIX COMMAND 


示例 18.51 


人 Eee 
于 exec 'echo hi there Youl ' : 
2 | 


Www 
外 hi thezce You 


meet 
也 exec SC 
昌 RISE 本 汪 TORD 


人 Si 
的 清国 区 全 全 站 太 e 儿 有 生态 关 性 且 


与 系统 交互 67 





1. 在 这 两 个 示例 中 ，exec 函数 都 执行 了 UNIX 命令 。 
2. 在 这 两 个 示例 中 ，print 语句 都 没有 执行 ， 因 为 exee 始终 不 返回 。 本 例 执行 了 UNIX 命令 ， 





而 不 是 Perl 程序 。 


wait 和 waitpid 函数 。wait 函数 负责 等 待 子 进 程 执行 完毕 。 在 调用 fork 国 数 后 , 父 进程 和 子 进 





格式 


程 都 将 得 以 执行 ，wait 国 数 将 强制 父 进程 等 待 ， 直 到 子 进 程 执 行 完 毕 ， 并 将 子 进程 的 pid 返回 给 父 
进程 。 如 果子 进程 不 存在 ，wait 就 返回 -1 9 。 








区 


示例 18.52 


Et 


册 
甩 


( 
4 
到 
习 
己 


解释 


人 ET 动 


SEN 三 Csts 

下 时 | 1 
ENET 局 scniaiagipeeee SET 世人 起 册 下 ae 

SSE 
exec "/bin/date" || die "exec failed: S$INn"; 

】 

SSsmLOshnsods2etEucnva gl)H ca 
GTAOOE 琶 Teaosarceneococsss en aEETS 本 STR 
S$Pid = wait: 
ET 
EECEsESNEEEDOECS 尖 让 

】} 

elsei1 
QiEASEREEEEESP SN 

} 

SEE 

SEE 

SWEET7 

BacKk Im the Parent Process ， 

于 Eeeeaee<c 是 芭 0E 


1. fork 函数 创建 当前 进程 的 副本 。 现 在 就 有 两 个 进程 同时 运行 父 Perl 进程 和 子 Perl 进程 。 二 





者 都 在 调用 fork 后 直接 开始 执行 代码 。 在 子 进 程 中 返回 值 是 0, 而 在 父 进 程 中 的 返回 值 则 是 
子 进程 的 pid。 

如果 是 在 隆 进 程 中 ”执行 这 语句 块 。 

. exec 国 数 执行 UNIX 的 date 命令 ， 并 且 不 返回 。 

如 果 是 在 父 进程 中 ， 执 行 els 诈 语句 块 。$return_val 的 值 是 子 进程 pid。 

进程 调用 wait 国 数 等 待 子 进程 执行 完毕 。 返 回 完成 子 进程 的 pid。 

. 如 果 fork 失败 〈 无 法 创建 更 多 进程 ? )，die 函数 负责 打印 错误 信息 并 退出 程序 。 























加 ”waitpid 国 数 也 能 等 待 子 进程 完成 , 不 过 它 能 指定 等 待 哪 一 个 子 进程 ， 它 还 拥有 控制 阻塞 的 特殊 标志 位 。 
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exit 函数 。exit 函数 负责 退出 程序 。 读 者 可 以 为 它 提 供 范 围 从 0 到 255 的 整数 型 参数 。exit 值 
将 通过 wait 国 数 返 回 给 父 进 程 。 一 般 而 言 , 以 状态 0 退出 的 UNIX 程序 就 是 成 功 的 , 而 以 非 0 状态 
退出 的 程序 则 是 失败 的 程序 〈 当 然 ， 程 序 成 功 与 否 的 标准 并 不 是 相同 的 )。 








格式 


exit (Integez) ; 
exit Integer7 


示例 18.53 


ES 
# 7Tpe pname of the script Is ar9s.P 
灿 exit 12 1f S$#ARGV == 0 


Out 
站 $ args .P 
用 SS echo 8$? 


上 
IN 


解释 
1. 脚本 缺少 参数 。 
2. shell 的 $? 变量 含有 Perl 程序 的 退出 状态 。 如 果 使 用 C shell, 则 退出 状态 会 保存 在 $status 中 。 


18.2.9 Win32 进程 创建 


在 Win32 系统 上 ,读者 也 可 以 像 在 UNIX 系统 上 一 样 使 用 system 国 数 、exec 函数 和 反 
中 学 。 

start 命令 。Windows 和 UNIX 都 使 用 system 函数 启动 操作 系统 命令 。system 负责 执行 程序 ， 
并 在 程序 完成 之 前 不 返回 。 如 果 将 Windows start 命令 作为 参数 提供 给 Perl 的 system 国 数 , 便 会 运 
行 新 的 应 用 程序 ， 同 时 脚本 仍 将 继续 执行 。 











示例 18.54 
se Waniangs:” 
山 Sreturn Value = System ("start /Program 


Eiles/NetscapPe/Communicator/Program/netscapPe.exe") : 


2 EREEOOESmEESneonUss NEEEESESEEEORRNTTIORNDO 
习 PEint "The zeturn Value from System 1s Sretuczn Value.Nn": 
Gu 


PFooramn contInues”Netscape 工 5 Funning， 
的 全 证 疝 交 同和 本 下 轴 国 太 加 3 人 


解释 
1. Perl 的 System 国 数 启 动 新 的 进程 。 通 过 使 用 Win32 start 命令 ， 可 以 启动 新 的 进程 。 与 此 同 
时 ，Perl 脚本 还 将 继续 运行 ， 而 不 是 等 待 新 进程 执行 完毕 。 如 果 进 程 局 动 成 功 ，System 国 数 
将 返回 0。 
2. Netscape Communicator 已 经 启动 ， 并 将 继续 运行 ， 直 到 关闭 所 有 窗口 。 
3. 打印 System 图 数 的 返回 值 。 


与 系统 交互 609 





Win32::Spawn 模块 。 Win32::Spawn 国 数 的 行为 类 似 于 system 国 数 和 Windows start 菜单 。 


格式 


use Win32; 
Win32::Spawn(SProgramName，SCommandLinerSProcessID) ， 


示例 18.55 


业 Use Warcnings:， 
吧 Use Win32:， 
包 5 古本 
4 SAPP1ication="Cc:/mksnt/date .exe" 
5 SCcCommanadLine="qdqate +g%sD" 7; 
6 Sstatus=Win32::SPawn(S$SAPP1Lication，S$SCommandLine，S$SProcessID) : 
也 ERESSESEUE 汪 本 0 人 
8 站 下 站 站 大 SORT 
} 
edsei 
岛 ET 
0 0 汪 放 人 全 人 攻 辣 计 下 才 王 各 和 下 生生 人 时 
} 
(GEGUE) 
8 Pia is 448 . 
0 


解释 


[四 


LD 


warmnings 编译 指示 符 将 负责 发 送 语法 警告 、 未 初始 化 的 值 等 等 ， 并 对 程序 中 可 能 发 生 的 问题 
提供 帮助 信息 。 


. 加 载 Win32 模块 。 这 是 ActiveState 带 有 的 模块 ,读者 可 在 site/lib/Win32 目录 下 的 标准 Perl 





库 中 找到 它 。 它 含有 许多 对 Windows 程序 员 而 言 非常 有 用 的 模块 ， 能 够 处 理 服务 器 、 客 户 
端 、 注 册 表 、 时 间 、 网 络 管理 、 进 程 等 任务 。 


. 将 特殊 标量 $1 赋值 为 1， 以 确保 在 使 用 了 print 函数 之 后 及 时 清空 输出 缓冲 区 。 
. 应 用 程序 是 位 于 C:\drive 下 的 MSK 工具 包 。 该 工具 包含 有 模拟 UNIX 命令 的 .exe 文件 。 





date.exe 文件 能 得 到 当前 的 日 期 。 


5. 在 命令 行 中 含有 传递 给 应 用 程序 的 参数 。 


7 





. 以 三 个 参数 调用 Win32::Spawn 图 数 。 其 中 两 个 参数 已 经 给 出 了 值 ,而 $ProcessID 的 值 仍 然 


未 知 ， 它 将 在 应 用 程序 启动 后 给 出 。 


. 如 果 Win32::Spawn 国 数 返回 的 状态 值 为 0， 则 打印 进程 ID 号 。 
8. 
2 


进程 ID 号 是 448 。 
如 果 .exe 文件 不 退出 ， 则 显示 Didn't spawn C:/mksnt/date.exe。 


10. 如 有 果 因 为 应 用 程序 没有 退出 而 不 能 启动 进程 ， 则 GetLastError 函数 会 打印 : 
nesySstemcamnno no Ene beSESET 和 SGQR 
EggeamESeEUEE 训 汪汪 于 


这 是 Windows 生成 的 错误 信息 ,是 由 操作 系统 无 法 启动 程序 而 引起 的 。FormatMessage 畏 数 能 
为 错误 信息 创建 一 份 可 读 的 输出 。 


a. Windows NT 和 Windows 93 上 的 MSK 工具 包 ，6.1 版 ，Mortice 开 ern Systems Inc. 
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Win32::Process 模块 。 用 于 运行 Windows 应 用 程序 的 另 一 种 扩展 模块 则 是 面向 对 象 的 Win32:: 
Process 模块 〈 详 见 表 18-12)。 访 模块 提供 了 很 多 可 用 于 创建 和 管理 进程 的 方法 。 用 户 可 使 用 该 模 
块 实现 进程 的 挂 起 、 恢 复 和 撤销 。 

















表 18-12 Win32::Process 方法 























方 法 用 途 
Createf8OD1 84PPName, 8Co71aa1101112e,， 8112jer 让 8CreateFyags， 81011iGLDim) 创建 进程 对 象 
8OD1->GetExXIICodef8EXIICode) 获取 进程 退出 代码 
8OD1->CetPrioribyClassf(8C1ass) 获得 进程 优先 级 类 
ProcessOD1->CetProcess7D( 获得 进程 ID 
3OD1->KI18ExItCode) 使 用 退出 代码 撤销 进程 
8OD1->Resxymae( 恢复 挂 起 的 进程 
8OD1->SetPrioriDClass(8C1ass) 设置 进程 优先 级 掩 码 (NT) 
8YOD1->SuSPe1d( 挂 起 进程 
$Obj->wait($Timeout); 等 待 进程 执行 完毕 

示例 1856 


出 Useuwin32 Process7 
2 use Win32:， 
忆 ; SUpEEEoRSDSEEH 
ENnSEZEROCmSEMSSSSOEL NECRREESETSSEEEEOCE 三 
) 


4 Win32::Process::Ccreate($Processobj， 
CNNAIOSWNESNRNNOEEDSQRERE NOEESESGRTVNUIERE GAO 
RM 有 靖 昌 区 国民 T 贡 CASES 站 咱 上 E 玫 玫 全 训 Cei 人 及 
print "Notepad has startedxn" 
己 En Deexa code as 


SRTFSCESSODE 汪 GE 区 ES 直下 RECOQSRTNT 


OUE 动 
Notepaa pas Startceda 
ESERDCEECRE NSS 


解释 
1. 加 载 Win32::Process 模块 ， 该 模块 用 户 运行 Windows 应 用 程序 。 
2. 加 载 Win32 模块 。 
3. ETTrorReport 国 数 负责 发 送 上 一 次 发 生 的 系统 错误 的 格式 化 错误 信息 。 
4. Create 畏 数 创建 进程 。 第 一 个 参数 $ProcessObj 是 进程 对 象 容器 ， 其 后 的 参数 包括 应 用 程序 
的 全 路 径 、 命 令 行 参 数 和 必需 标志 位 。 
5. 返回 进程 的 退出 代码 。 





18.3 与 操作 系统 交互 的 其 他 途径 


如 果 系 统 国 数 仍 不 能 满足 需求 的 话 ，Perl 还 提供 了 其 他 可 供 选择 的 操作 系统 处 理 途 径 。 读 者 还 
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可 使 用 syscall 国 数 、 命 令 替 换 、system 国 数 和 here 文档 来 获得 系统 信息 


18.3.1 syscall 函数 和 h2ph 脚本 


syscall 国 数 会 根据 其 参数 调 用 指定 的 系统 调用 。 如 果 系 统 无 法 执行 C 系统 调用 , 则 该 函数 会 

回 致命 错误 。 甚 第 一 个 参数 是 系统 调用 的 名 字 ， 以 &SYS_ 为 前 缀 。 甚 余 参 数 则 是 真实 系 0 
要 求 的 实际 参数 。 如 果 参 数 是 数值 型 的 ， 则 通过 C 整数 形式 予以 传递 。 如 果 不 是 ， 则 传递 指向 字符 
串 值 的 指针 。 如 果 参 数 不 是 实际 的 值 ， 且 无 法 在 上 下 文 语 境 中 予以 解释 ， 则 必须 通过 给 整数 添加 0 
的 方式 把 数组 强制 变换 为 整数 。 
在 使 用 syscall 国 数 之 前 , 首先 应 当 运 行 Perl 发 布 包 自 带 的 h2ph 脚本 〈 在 Windows 上 是 h2ph. 
bat)。h2ph 脚本 的 底部 〈 即 _END_ 之 后 ) 提供 了 h2ph 的 手册 页 ,说 明了 如 何 运行 该 脚本 。 该 脚本 
负责 把 适当 的 C 头 文件 转换 为 对 应 的 Perl 头 文件 。 如 果 所 用 国 数 要 求 使 用 它们 , 则 必须 将 这 些 文件 
添加 到 Perl 库 中 。 创 建 的 所 有 文件 都 应 当 拥 有 .ph 扩展 名 。 在 运行 h2ph 脚本 后 ， 还 应 确保 程序 中 
的 @INC 数组 含有 指向 这 些 库 函 数 的 路 径 9 






































格式 


SSECSSYSNRMEIREEESE 


示例 18.57 


(UNIX: At the Command Line) 
于 $ cd /usr/include; /usr/lLocalL/bin/Per1L/h2Ph * SYSV/* 


[So 区 ) 

#1/Pbin/VpPez1l 

# 7Tpe pame of the script Is ar9s.P 

ETRUQN 竹下 7 合作 攻 本 了 全 惠风 及 

eq SESSION 

S$bytes=syscal1l(&SYS_getpPagesize) : 

ES 
YESSNRORSDYEESD 


n 心 ON 


ES 
Jo 和 SEA 


解 


-图 。- 


执行 ha2ph 脚本 , 将 所 需 C 头 文件 转换 为 相应 的 Perl 头 文件 。 创 建 的 文件 将 放 到 /usrlocaUlib 

中 ， 并 以 .ph 作为 扩展 名 。 

2. 将 含有 .ph 文件 的 目录 载 入 @INC 数组 中 。 

3. 使 用 C 系统 调用 ， 需 要 用 到 syscall.ph 文件 。 

4. Perl syscall 国 数 会 调用 getpagesize 系统 调 有 用。 前缀 &SYS 是 必须 出 现 的 Perl 语法 ， 必 须 
预先 附加 到 真实 的 系 多 

5. Sun4c 的 分 页 大 小 为 4096 字 














名 在 Perl5 发 布 包 中 也 可 看 到 h2xs 脚本 ， 用 于 从 C 头 文件 中 建立 Perl 扩展 。 
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18.3.2 ”命令 替换 一 一 反 引 号 


在 前 面 第 4 章 中 ,本 书 已 经 讨论 了 命令 替换 和 反 引 号 。 由 于 命令 替换 是 与 操作 系统 交互 的 另 一 
种 方法 ， 因 此 这 里 再 简要 地 作 一 下 回顾 。 

UNIX shell 使 用 反 引 号 来 执行 命令 替换 , 在 Perl 脚本 中 的 执行 方式 也 与 之 类 似 。 例 如 ， 命令 行 
echo The present working directory is 'pwd' 会 执行 反 引 号 中 的 命令 ， 并 将 其 结果 替换 为 字符 串 。 与 
UNIX shell 相同 ， 把 命令 放 在 反 引 号 之 间 就 会 导致 它 的 执行 。 与 shell 不 同 的 是 ， 如 果 用 双 引 号 包 
围 反 引 号 字符 串 ， 命 令 替 换 动作 就 不 会 发 生 。 执 行 命令 所 生成 的 输出 内 容 将 保存 到 标量 变量 中 。 


示例 18.58 
ESeoiona 
#!1V/bin/pPer1l 
中 PEint "The houz is "，'date': 


























Qd='date' : 
本 an 


4 Gd=sPlLit(/ /，'date') ; 
怠 ON 

6 Smachine='uname -n' 
这 TESTmaCnONENID YL 


OUwEeE) 

并 下 
下 显 总 

号 NI 

以 机 后 三 问 六 

习 


1.UNIX 的 date 命令 位 于 反 引 号 之 间 。 执 行 该 命令 ， 并 将 它 附加 到 字符 串 The hour is 后 面 。 

2. 将 数组 @d 赋值 为 date 命令 的 输出 内 容 。 该 属 主 以 单个 字符 串 的 形式 存储 ， 与 shell 不 同 。 
后 者 的 输出 内 容 是 保存 为 列表 的 。 

. 由 于 命令 的 输出 内 容 是 以 单个 字符 串 形式 存储 的 ， 因 此 $d[0] 就 是 整个 字符 串 。 

. split 命令 根据 date 命令 返回 的 输出 内 容 创建 列表 。 

这 时 ， 数 组 的 第 一 个 元 素 也 就 是 列表 的 第 一 个 字 ， 即 Thu。 

. 将 标量 $machine 赋值 为 UNIX 命令 uname -n, 其 中 含有 主机 名 (在 BSD 上 可 使 用 hostname 命令 )。 

. 打印 主机 名 。 





18.3.3 Shell.pm 模块 


通过 该 模块 ， 用 户 可 以 在 Perl 脚本 中 使 用 类 似 于 在 shell 提示 符 下 输入 的 那些 UNIX 命令 。 这 
些 命令 都 将 当成 Perl 子 例 程 来 对 待 。 其 参数 和 选项 将 以 字符 串 列 表 的 形式 传送 给 相应 命令 。 


示例 18.59 
全 mscecmety 
和 及 E 二 下 
业 use Shel1l qw(Pwd 1Ls date) : # SneJJ commanas JIistea 
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7]3 





EPERSOSNEE Gae 人) 瑟 
TEARIEEEEmeeis 且 Gate ) 瑟 


S$S1list=ls( "-aR); 


色 
4 SESSION ceEOEYTEO PRO 
号 
6 


商 下 下凡 


SEE 人 人 


The Present workin9 Is /home/el111Ie/sockets 


5 克 

人 

万 晤 EGRE 扣 汉 
JR 年 语 

直 ImecJieDn 志 赤 
tImecJIient595x* 
ttImesSerVe 开 
tImesSerVer5* 


解释 


( 
易 
二 全 于 全 证 
4 
6 


1. 在 该 程序 中 使 用 Shell.pm 模块 。pwd、1s 和 date 这 三 个 UNIX 命令 将 当 作 普 通 的 Perl 子 例 





程 来 对 待 。 


. 执行 pwd 命令 。 


. 将 date 命令 作为 子 例 程 执行 。 这 是 对 反 引 号 机 制 的 另 一 种 实现 。 
. 传递 给 date 命令 的 参数 是 位 于 引号 中 的 字符 串 。 


.将 1s 命令 的 输出 内 容 赋 值 给 标量 $list。 其 参数 是 以 单个 字符 串 的 形式 传递 给 函数 的 。 





人 上 iMP 


.1s -aF 命令 会 输出 当前 工作 目录 中 的 文件 列表 。-a 开关 项 表明 包含 点 文件 ， 而 下 则 表明 为 可 


执行 文件 标记 星 号 〈*)， 并 对 目录 标 上 /号 。 


18.3.4 system 函数 


与 C 中 的 相应 函数 类 似 ,system 国 数 也 是 以 系统 命令 作为 其 参数 点 。 它 将 把 命令 发 到 系统 shell 
上 解释 , 并 将 控制 权 返 回 给 调用 程序 ,， 即 脚本 。 该 函数 的 功能 与 exec 几乎 相同 ,所 不 同 的 是 它 首先 

















会 调用 fork 图 数 ， 因 此 其 探 M 





央 权 会 返回 








给 Perl 脚本 。 由 于 它 不 会 自动 清空 输出 缓冲 区 ， 因 此 需 


将 特殊 Perl 变量 $| 设置 为 1， 以便 在 print 和 write 语句 之 后 强制 清空 缓冲 区 9 。 





格式 


System("system CommanaQ" ) 
System "system Commana" 


示例 18.60 


(UNIX: The Commanad Line) 
外 System("cal 1 2007") : 
PEint "HapPpy New YearlINnn7 


USE) 
间 全 交 区 思 岂 天 





四 fork 执行 完毕 后 ， 脚 本 将 等 待命 令 执行 ， 并 将 控制 权 返 回 给 脚本 。 
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SO 
也 治 杞 也 避 6 
网 8 号 
2 
2 间作 人 2 弥 
22 请 0 居 必 沁 
SaDD7FENSmzeas 


(Winadaows) 
System("notepPad .exe") : 


3 
释 

1. System 国 数 执行 UNIX 的 cal 命令 ， 打 印 出 2007 年 1 月 的 日 历 信息 。 

2. System 国 数 执行 Windows 的 notebook.exe 命令 ， 并 启动 Notepad 记事 本 会 话 。 


示例 18.61 


We) 

二 EN 册 E 加 有 

2 EeemnSmemoEEEnasmaciname 量 is 

马 System ("unarme -n");” # Buffer Is not 妖 usheda 
4 EYE 


mm 。 
区 


《ER 训 动 
孔 瑟 GoEEnEEe 
习 7Joay 
2 届 电 二 本 E 忆 和 这 是 2EADDEEXIE 旺 0 


1. 按 计 划 执 行 第 一 个 print 语句 。 

2. 由 于 Perl 依赖 于 默认 的 IO 缓冲 机 制 ， 因 此 在 执行 完 print 后 可 能 并 没有 立刻 清空 缓冲 区 ; 
首先 打印 由 shell 负责 执行 的 System 函数 的 调用 结果 。 

3. System 国 数 令 shell 执行 UNIX 命令 uname -n。 

4. 直接 在 第 2 行 的 print 语句 之 后 打印 Print 语句 。 


示例 18.62 
ES 
#1V/bin/VPez1l 
工 $1=1; # Set special variapble to ush the outpPut DuEfFer 
2 TEST 
司 EROE 汪 sme 有 ERmacehevs 
ESEESmH 人 REmSE= 直下 
4 EREIEEEIIE 汪 saEe 


ouEewuey 

2 FeJJIo tbhere 

下 于 捷 改 人 本 天上 疙 区 和 maEAe 有 7 

4 Tpe tizme 工 5 TUe vam 26 13:43:54 PS 2001 


解释 
当 特 殊 Perl 变量 $| 的 值 不 是 0 时， 将 在 每 个 print 与 write 语句 之 后 强制 清空 缓冲 区 。 
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18.3.5 _ here 文档 
Perl 的 here 文档 机 制 是 从 UNIX shell 中 的 here 文档 机 制 派 生 而 来 的 。 和 在 shell 中 一 样 , Perl 中 


的 here 文档 也 是 面向 行 的 引 











用 表单 ， 要 求 提供 << 运算 符 ， 甚 后 跟随 一 个 初始 的 终止 字符 串 。<< 之 


后 可 以 不 出 现 空格 。 如 果 终 止 字 符 串 没 有 加 上 引号 或 双 引 号 ， 则 允许 执行 变量 表达 式 。 如 果 终 止 字 


符 串 上 加 了 单 引 号 ， 则 不 执行 


了 变量 表达 式 。 用 户 应 当 把 文本 的 第 一 行内 容 插入 到 第 一 个 和 最 后 一 个 





终止 字符 串 之 间 。 最 后 一 个 终止 字符 串 必 须 位 于 该 行 上 ， 且 周围 不 允许 出 ， 
与 UNIX shell 不 同 的 是 ，Perl 不 允许 在 here ee 令 替 换 。 另 一 方面 ， 如 果 将 终止 字 
符 串 包含 在 反 引 号 中 的 话 ，Perl 也 人 允许 在 here 文档 中 执行 该 命令 。 


示例 18.63 


oa 
#!1V/bin/pPer1 
SPrice=100: 

站 PEiInt << 了 OF : 





# No Guotes arouna terminator 玉 OF are Same 
# as aoubIJe 9uotes 


包 Te 本 ET 井 VariapJes are expanaea 
ieja 
4 PERE<<RRNESNE 
号 The Price of $price is Light。 

# Tpe varziable is not expanaea 

# IE 上 termzinator Is enclosea in sin9le G9uotes 
6 EREES 


史 PEint << X 47 


# Priznpts the Jine 4 times 


8 raisemacsesmesmanea 
# BJIanKk Jine Is necessary here as termIinatIin9 strzn9 


岛 EnmEE<<RNDD 


10 echo hi there 


# 工 E terminator 1I5 ID PacKk9uotesv 
# wzIIJI execute UNIX commanads 


REECSEEEREEESEiTEED 


12 aate 
二 和 三 ND 
GE 二 


( 

2 遇 人 DEC OUR 村 帮 夏 

己 亲王 玫 全 有 汪 人 全 二 于 区 全 生生 让 二 

8 [1 
[7 
人 
全 


10 Phi there 
TPe LIzme 工 S 下 7 了 工 


TV 


18.3.6 Globbing《〈 文 件 名 扩展 和 通配符 ) 





在 使 用 UNIX 和 MS-DOS 命令 行 时 ， 已 经 引入 了 一 些 shell 元 字符 ， 它 们 用 于 扩展 文件 名 。 其 





中 ， 星 号 〈*) 用 于 匹配 文 们 
匹配 文件 名 中 某 一 组 字符 中 


FF 名 中 的 所 有 字符 ， 回 号 〈?) 负责 匹配 文件 中 的 单个 字符 ， 而 方 括号 则 
的 一 个 。 将 这 些 shell 元 字符 扩展 为 文件 名 的 过 程 就 称 作 globbing。 
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如 果 将 文件 名 放 到 读 运 算 符 《〈 角 括号 ) 中 ， 则 Perl 会 自动 支持 globbing。Perl 5 中 也 提供 了 一 
个 专用 于 globbing 的 函数 ， 如 示例 18.64 所 示 。 


示例 18.64 


ES 
全 9 玉 人 so 
Qmyfiles=<*. [1-5]>:， 
TENTEESNDO 
osacheshliE 本 个 过 pp22 下 吧 三 5] 之 > 让 

1 
】 
OUEE) 
之 忆 X 忆 天 是 ee 本 4 了 2 关 ES 汪 生 让 eE 关 证 全 在 全 帮 二 让 人 有 于 丰 G 天 站 2 用 CE 7 二 上 起 二 才 是 记 eE 二 玫 
Per 了 .4.1 
4 三 eF 了 

感 EL2 

ET 

Pei4 

PerzJ4.1 

Wei 


性 WU 户 情 


解释 

1. 在 数组 上 下 文 语 境 中 ， 当 执行 完 globbing 之 后 ,返回 舍 有 所 有 匹配 文件 的 列表 ， 并 返回 数组 
@myfiles。 该 列表 由 文件 构成 , 其 中 每 个 文件 名 都 以 0 到 多 个 字符 开头 , 其 后 是 一 个 点 号 ， 
末尾 是 1 到 5 之 间 的 数字 。 

2. 打印 匹配 文件 的 列表 。 

3. 进入 foreach 循环 。 每 次 循环 时 ， 就 将 $file 设置 为 成 功 执行 glob 操作 的 下 一 个 文件 ， 即 符合 
下 列 条 件 的 任意 文件 : 其 文件 名 以 p 开头 ， 后 面 跟随 任意 两 个 字符 ， 再 后 是 一 个 1， 再 后 则 
是 1 到 5 之 间 的 数字 ， 并 以 零 到 多 个 任意 字符 结尾 。 

4. 如 有 宁 该 文件 是 一 个 文本 文件 〈-T)， 打 印 其 文件 名 。 








glob 函数 。glob 国 数 与 运算 符 <*> 的 作用 完全 相同 。 它 能 扩展 文件 名 中 的 元 字符 ， 并 返回 扩 
展 后 得 到 的 文件 名 。 





示例 18.65 


(Commanad Line) 
业 $ Perl -e 'while(gLob("P???[1-5]")) {Pzint SENTEW 可 虹 
有 Der 
PE 
3 
Per 了 4 
Srl5 


SEO 
习 Was 本 (证 SEOobi PE 2 NS )N 
马 1 
上 
人 GESiERE) 
| er 
Der 
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er 
Per 了 4 
1 


解释 
1. 在 命令 行 中 ，glob 国 数 能 “glob” 当 前 目录 中 符合 条 件 的 任意 文件 ， 这 些 文件 的 名 字 应 当 以 
p 开头 ， 随 后 是 三 个 任意 字符 《〈 即 ??2)， 了 最 后 是 1 到 5 之 间 的 数字 《〈 即 [1-5])。 将 匹配 这 个 
表达 式 的 所 有 文件 名 赋值 给 $_， 并 将 它们 打印 出 来 。 

2. 这 一 次 在 脚本 中 使 用 glob， 甚 行为 与 第 一 个 示例 完全 一 样 。 

3. 打印 扩展 得 到 的 文件 名 。 











18.4 错误 处 理 





在 很 多 情况 下 ， 系 统 调 用 可 能 会 失败 ; 例如 ， 淮 试 打开 不 存在 的 文件 ， 或 者 删除 某 个 仍 含 有 文件 
的 目录 ， 或 者 尝试 读 取 疫 有 读 权 限 的 文件 。 在 前 面 的 示例 中 ， 我 们 已 经 用 到 了 die 函数 ， 本 节 将 详细 
讨论 有 关 错 误 处 理 和 错误 处 理 函 数 的 相关 内 容 。 这 些 国 数 包括 die 函数 、warn 国 数 和 eval 国 数 。 

。 die 国 数 用 于 在 命令 或 文件 句柄 失败 时 退出 Perl 脚本 。 

”warn 国 数 类 似 于 die 国 数 ， 但 它 不 会 退出 脚本 。 

"eval 畏 数 具有 多 种 用 途 ， 但 它 主要 还 是 用 于 异常 处 理 。 

读者 想必 还 记得 短路 运算 符 放 & 和 | 儿 ， 这 两 个 运算 符 首 先 会 求 其 左 侧 操作 数 的 值 ， 然 后 才 会 求 
其 右 侧 操作 数 的 值 。 如 果 有 && 左 侧 操作 数值 为 true， 则 求 其 右 侧 的 操作 数 。 如 果 || 左 侧 操作 数 的 值 
为 false， 这 才 求 其 右 侧 的 操作 数 。 

Carp.pm 模块 。 有 很 多 种 退出 脚本 的 途径 可 供用 户 选 择 。Perl 5 提供 的 Carp 模块 扩展 了 die 和 
warn 的 功能 。( 详 见 示 例 12.10。) 















































18.4.1 die 函 数 


如 果 系 统 调用 失败 的 话 ，die 函数 会 把 字符 串 打 印 到 STDERR 上 ， 并 以 $1! 的 当前 值 退 出 脚本 。 
$! 变量 中 含有 errno 的 当前 值 ， 后 者 是 一 个 UNIX 全 局 变量 ， 含 有 一 个 表示 系统 错误 的 数字 。 只 有 
在 系统 调用 失败 时 才 会 更 新 errno 的 值 。 当 系统 调用 失败 时 ， 会 癌 errno 赋予 一 个 数字 代码 ， 以 表 
明 错 误 的 类 型 。 如 果 在 字符 串 中 省 略 了 换行 符 ， 则 会 打印 出 带 有 行 号 的 销 息 〈 参 见 /usrinclude/sys 
中 的 完整 列表 )。 

下 面 是 /usrinclude/sys/errno.h 文件 中 的 示例 : 

#qaefine 刁 PERM 

#qaefine ENOENT 

#define 忆 SRCH 


#qaefine 己 INTR 
#aqdefine 王 IO 
































/xx Not owner */ 

/* No Such 玫 le or qirectory */ 
/*x No such process */ 

/* Interrupted system cal1l1 *x/ 
/* I/O error */ 


Cn 心 WIN 情 


Win32 的 错误 代码 不 同 于 UNIX 错误 代码 ， 因 此 不 能 依赖 于 $! 返回 的 值 。 有 很 多 Win32 扩展 
都 提供 了 自己 的 错误 国 数 ， 以 便 为 用 户 提供 更 有 意义 的 结果 。 详 情 可 参阅 ActiveState 中 标准 Perl 
库 里 的 Win32::GetLastError 相关 文档 。 
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格式 
qie (LIST) 
GETeES 
Qie 


示例 18.66 
人 
下 QIESTEE<OEEESKEESUNTOEOEEEE 旺 ET 


emeuwey 
业 an c ES 全 2SEEBS 


解释 
chdir 调用 失败 。$! 中 含有 来 自 errno 的 错误 消息 。 换 行 符 导 致 打印 了 die 函数 后 面 的 字符 串 ， 
该 字符 串 中 含有 变量 $! 的 值 。 


示例 18.67 
Se 
工 EREnESE<OEE ORG 


OutEewuey) 
由 Diea at croak.per1 Jine 4. 


解释 
chdir 调用 失败 。 这 一 次 $! 并 不 在 die 字符 串 中 ， 打 印发 生 错误 的 行 。 


示例 18.68 
人 Sen 
负 CuO 二 dmESEooBESR 


NOuesuay 
也 Stoppea at croaKk.perJ Jine 4. 


解释 
本 示例 的 输出 内 容 与 前 一 个 示例 相同 ， 但 它 使 用 了 不 同 的 语法 。 如 果 chdir 调用 失败 ， 就 执行 
or 右边 的 die 国 数 。 


18.4.2 warn 函数 





warn 函数 〈 运 算 符 ) 和 die 几乎 一 样 ,所 不 同 的 是 前 者 会 让 程序 继续 运行 。 如 果 在 eval 块 中 调 
用 die 函数 ， 则 传递 给 die 的 参数 字符 串 将 同样 赋值 给 特殊 变量 $@。 在 调用 die 之 后 ， 访 变量 可 以 
作为 一 个 参数 传递 给 warn 函数 ， 其 输出 将 发 送 到 STDERR 上 (参阅 “ecal 函数 ”一 节 )。 





18.4.3 eval 函数 


eval 函数 用 于 处 理 异 常 ， 即 捕捉 错误 。 位 于 eval 之 后 的 语句 块 是 作为 单独 的 Perl 程序 来 处 理 
和 解析 的 ， 但 其 所 有 的 变量 设置 、 子 例 程 以 及 格式 定义 都 将 保持 到 eval 执行 完毕 。 
eval 国 数 返 回 的 值 是 上 一 个 表达 式 的 值 。 如 果 出 现 了 编译 或 运行 时 错误 ， 或 者 执行 了 die 语句 
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的 话 ， 则 会 返回 未 定义 的 值 ， 并 将 特殊 变量 $@ 设置 为 错误 消息 内 容 。 如 果 没 有 发 生 错误 ， 则 $@ 
将 是 空 字符 串 。 
借助 eval 求 Perl 表达 式 的 值 


示例 18.69 


Escsoioiay 
#1V/Pbin/VPez1l 


# Thpe eval Function WII evaJuate each Jine You type 
1 
# 开 nnzina aa IIttJIe zinaoepenaent PerJl Script. 
六 三 Se 已 克 太 
并 人 ooiEoSejoie 
包 while(<STDIN>) { 
交 Sesult=eval 7 evayerayueLtes LEpe exPpresscn 5 
4 Wan SQRTEESQ 外用 厂 基 FOOTERES 人 了 相生 SEE 证 SC 
号 Pint "S$resultN\n if $result": 
6 和 庆 全 人 seo 
} 
(GuEGUE) 
(The_ Command 1Line) 
S$ P1Lsh 
包 宝 EN 
己 DeJJo 
也 之 本 后 愉 e 
可 也 Ye 
加 区 
吕 多 
多 会 业 3 3 
5 2 了 GO 
多 全 人 
4 IlLlLegal division by zero at (eval 5) 1Line 3，<STDIN> 1Line 5. 
> "Op 工 5ee 
Can't find string terminator '"' anywhere before EOR at (eval 6) 
1ine 1， <STDIN> Ine 
> EXTI 
解释 


1. 本 行 向 用 户 打印 出 一 个 提示 信息 。 该 程序 类 似 于 小 型 Perl shell。 它 能 帮助 用 户 在 把 表达 式 放 
进程 序 之 前 检查 它 的 好 坏 ， 特 别 是 在 不 确定 Perl 会 如 何 处 理 该 表达 式 时 。 

2. 进入 while 循环 。 每 次 进入 循环 时 ， 就 从 用 户 处 读 取 一 行 输入 ， 并 赋值 给 3$_。 

3. 不 带 参 数 的 eval 将 对 $_ 中 的 表达 式 求 值 ， 并 将 求 值 结 果 赋 予 Sresult。 

4. 如 果 eval 发 现 了 求 值 表达 式 引 起 的 语法 错误 或 系统 错误 的 话 , 就 将 返回 的 错误 信息 赋值 给 变 
量 $3@。 如 果 没 有 发 现 错误 ， 则 把 $S@ 赋值 为 空 字符 串 。 

5. 如 果 对 表达 式 求 值 成 功 ， 打 印 甚 结果 。 

6. 显示 提示 信息 ， 并 再 一 次 进入 循环 。 


使 用 eval 捕捉 程序 中 的 错误 


CE 
#1V/bin/pPper1l 
ai eeme 本 DUOSER 
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chop ($Sa=<STDIN>) ， 
SnowVSEECbaSes 
Eee 二 RNE) 
纪 evalf die unless S$Sanswer = $a/Sb ; }: 
也 warn S$SQ ifE S$SQ:; 
旺 2 
Sanswer 1IfE S$Sanswer ， 
4 TO 


ou 

GIve me aa Pumpber.45 

GI7Ye me aa airv7sor.6 
本 0 
4 Tim here nomw。Gooa=aay! 


OUWEea) 

GIV7e me aa 了 umper.2 

GIve me a aivisor.0 
及 六 全 二 必用 玖 有 二 本 对 由 从 上 汪 时 用 区 
4 mm here nomw。 Gooa=aay! 
驻 


尝 

1. eval 函数 会 计算 除法 ($a/$b)， 并 将 结果 保存 到 $answer 中 。 请 注意 ， 必 须 首 先 在 eval 中 使 
用 $answer， 它 会 一 直 保 留 到 eval 执行 结束 。 

2 请 并 且 除法 运算 顺利 完成 ， 如 果 发 现 错误 〈 例 如 除 以 0)， 则 将 
$@ 变量 设置 为 系统 错误 信息 ,然后 通过 warn 国 数 将 消息 打印 到 STDERR, 并 恢复 程序 执 
行 。 如 果 在 eval 块 中 调用 了 die 函数 ， 则 程序 不 退出 ， 而 是 在 退出 eval 块 之 后 继续 执行 。 

3. 如 果 运 行 成 功 ， 则 打印 除法 运算 的 结果 。 

4. 打印 该 行内 容 只 是 为 了 说 明 , 程序 即使 失败 了 也 会 继续 执行 , 因为 warn 函数 不 会 导致 脚本 
退出 。 





eval 函数 和 here 文档 


A\\ 
中 


示例 18.71 
Enoia 
#1V/bin/pPper1l 





有 evalL<<" 卫 OE" : 
多 SOTIGKEEE IE Ca OSI 
习 画 @@ 责 
4 EEiInL "The ecor message fcrom Qie: SSQ"; 
5 RE 
(GuEGUE) 
4 TPpe error messa9ge From QIie” Can't ca no Sucn 万 Je or arectory 
瑟 5 三 册 作 间 二 用 机 和 
解释 
1. here 文档 类 似 于 一 种 特殊 形式 的 引用 。eval 函数 获得 位 于 第 一 个 EOF 和 最 后 一 个 EOF 之 间 
的 所 有 内 容 。 





2. 如 果 chdir 函数 调用 失败 ， 则 调用 die 函数 ， 并 在 here 文档 的 最 后 一 个 EOF 之 后 恢复 程序 。 
3.EOF 表明 here 文档 到 此 结束 。 
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4. 将 die 国 数 的 错误 消息 保存 在 变量 $@ 中 。 
5. 程序 继续 执行 


18.5， 信号 


信和 号 负责 把 消息 发 送 给 进程 ， 一 般 会 造成 进程 结束 。 它 们 通常 是 由 某 些 意外 事件 触发 的 ， 璧 如 


非法 除 


除 0、 分 段 冲 罕 〈segmentation violation )、 总 线 错 误 (bus error) 或 者 电源 失效 等 等 。 内 核 还 





把 信号 当 作 计时 器 来 使 用 ， 例 如 向 进程 发 送 警告 信号 。 当 用 户 胡 击 BREAK、DELETE。QUIT 或 
STOP 键 时 ， 也 会 发 出 相应 的 信号 。 

内 核能 够 辨别 31 种 不 同 的 信号 ， 它 们 都 列举 在 /usrinclude/signalh 文件 中 。 如 需 获 取 一 份 信 
号 列表 ， 读 者 可 以 直接 在 UNIX 提示 符 下 键入 kill -1 命令 〈 见 表 18-13 )。 








表 18-13 信号 C(BSD) * 














名 称 数字 默认 值 描述 
3S7GCDUP 1 Terminate 挂 起 
S7GTNT 2 Interrupt 中 断 
SIGOUIT 3 Terminate 退出 /生成 核心 文件 
97G7ZL 4 Terminate 终止 
部 分 信号 的 清单 























获 信 号 。 信 号 是 一 种 异步 事件 ， 也 就 是 说 ， 进 程 不 知道 信号 将 何 时 到 达 。 用 户 可 以 通过 编程 
方式 去 忽略 某 些 进入 进程 的 信号 ， 或 者 设置 信号 处 理 程序 在 信号 到 达 时 执行 特定 的 子 例 程 。Perl 程 














序 在 关联 数组 %SIG 中 设置 了 需要 处 理 的 信号 。 如 需要 忽略 某 个 信号 ， 则 应 在 调用 fork 或 exec 国 
数 之 后 再 忽略 它 。 
用 户 还 可 对 程序 内 的 某 个 分 段 实现 忽略 或 处 理 某 个 信号 , 然后 再 重 置 其 默认 行为 。 详 见 示例 18.72 。 





格式 








SEE 二 本 用 


示例 18.72 


全 


下 
多 
习 
4 


CN On 


#!/Pbin/VPez1l 
Sub handleri 


local ($sig) = @_ :; # FIrst ar9ument is signal Pname 
ON 
起 攻 和 国 层 < 
】} 
SSIGCIEIND 定 二 Danmale 上 人 SC 人 归 这 二 
$SIG{'HUP'1}='IGNORE ' : 
OIC 
Sleep (10) ; 


SSICLUINTUTE1DEERAUDT 
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ke 
况 ermen ez 
< <CtFrJI>=-C Is PresseaQ WhyJe the Process 5Jeeps > 
人 


也 

释 

1. 定义 子 例 程 handler 。 

2. local 国 数 将 其 第 一 个 参数 《〈 即 信号 名 ) 设置 为 标量 $sig。 

3. 如 果 信号 到 达 ， 则 执行 处 理 程序 例 程 ， 并 打印 该 语句 。 

4. 程序 以 值 1 退出 ， 表 明 出 现 了 蜡 常 。 

5. 设置 $SIG 关联 数组 的 值 。 它 的 键 是 没有 SIG 前 绥 的 信号 名 。 它 的 值 是 需要 调用 的 子 例 程 名 。 
如 果 在 程序 运行 期 间 按 下 了 <Ctrl>-e 中 断 键 ， 则 会 调用 相应 的 处 理 例 程 。 

6. IGNORE 表示 忽略 挂 起 信和 号。 

7. 执行 print 语句 ， 程 序 休眠 10 秒 钟 。 如 果 信 号 <Ctrl>-c 到 达 ， 就 调用 处 理 程序 例 程 。 

8. 将 SIGINT 信号 重 置 为 默认 状态 ， 以 便 在 按 下 <Ctrl>-c 时 能 终止 程序 。 














向 进程 发 送信 号 一 kill 函数 。 读者 如 需 把 信号 发 送 到 进程 或 进程 列表 的 话 , 可 使 用 kill 函数。 
列表 的 第 一 个 元 素 是 数字 值 ， 如 果 加 引号 的 话 ， 则 是 信号 名 。 该 国 数 将 返回 成 功 接收 该 信号 的 进程 
号 。 如 果 信 号 数字 是 一 个 负数 ， 就 表明 取消 该 进程 组 。 如 要 取消 进程 ， 首 先 必 须 拥 有 该 进程 ， 也 就 
是 说 ，Kkill 信号 发 送 进程 和 Kill 信号 接收 进程 的 有 效 uid 与 真实 uid 必须 是 相同 的 。 

如 需 了 解 更 为 复杂 的 信号 处 理 机 制 ， 请 参阅 Perl 标准 库 中 提供 的 POSIX 模块 。 





格式 
kill(LIST) ; 
IT 


AN 


示例 18.73 


1 SS slLeeP 100& 
加 JoDS 本 = 

后 电压 
多 SETDerl eukll 9 65050 

/1 KIJJIea sJeep 7100 


解释 
1. 在 UNIX shell 提示 符 下 ， 以 后 台 方 式 执行 sleep 命令 。sleep 命令 将 使 进程 暂停 100 秒 。 
2. jobps 命令 会 列 出 后 台 运 行 的 进程 。sleep 进程 的 pid 为 6505。 
3. 在 命令 行 下 执行 Perl。Kkill 函数 的 参数 有 两 个 。 第 一 个 是 信号 数值 9, 以 确保 终止 进程 。 第 
二 个 参数 是 sleep 进程 的 pid 号 。 


alarm 国 数 。alarm 函数 负责 让 内 核 在 规定 秒 数 之 后 将 SIGALARM 信号 发 送 到 调用 进程 。 如 果 
在 alarm 信号 仍然 有 效 时 调用 alarm 函数 ， 则 会 覆盖 前 面 已 有 的 值 。 

















格式 
二 直 matSRCONBSJ> 
alarcmnSsPoONDSL 
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示例 18.74 
ES 
业 alLarm(1L) : 
乌 OSIOEEN SC 
司 NA 
人 EnE 
色 TD aa Forever IDoop/! 
GO 
全 交 丰 林 晤 IO 汪 于 本 于 下 
人 
国 加 DIE 
Eeen os 和 
2 
四 


本 到 


| 一 


LO PP 一 


. 一 秒 钟 后 ， 将 SIGALARM 信号 发 送 到 该 进程 。 
. 打印 该 语句 。 
. 开始 循环 。 首 先 等 待 1 秒 钟 。 这 里 可 以 关闭 对 实际 秒 数 的 解析 精度 。 读 者 可 使 用 syscall 国 


数 调 用 其 他 的 函数 。 例 如 ，setitimer (2) 和 getitimer (2)， 以 便 提供 更 好 的 计时 精确 度 。 
4. 当 alarm 信号 冰 失 后 ， 国 数 将 消 息 Alarm Clock 打印 到 屏幕 上 。 


sleep 畏 数 。sleep 国 数 会 让 进程 暂停 一 定 的 秒 数 ， 或 者 在 没有 指定 秒 数 时 永远 停止 该 进程 。 读 
者 可 使 用 alarm 国 数 来 中 断 休眠 的 进程 。 


格式 


Sleep (SECONDS) :; 


SUIESSESECONESF 


Sleep;” 





示例 18.75 
EUoiay 


#!V/bin/pPer1 


册 $ |=1L # 五 sh outpPut DufFer 
受 ELEDS 
EPEalc ECXEERENL 


引 SleepP 100: 


4 NSS 


we 
受 RE # Proc9ram pauses nomw for 5 seconas 
4 (Beep) Wake UP now. 


解释 


1. 变量 $| 强制 在 执行 完 读 写 操作 后 刷新 缓冲 区 。 

2. alarm 图 数 要 求 内 核 在 5 秒 钟 之 内 把 信号 SIGALARM 发 送 给 进程 。 
3. 进程 休眠 100 秒 ， 或 者 直接 向 它 发 送信 号 。 

4.\07 表明 在 语句 Wake up now ! 出 现 之 前 发 出 蜂 鸣 声 。 
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请 Windows 用 户 注意 ! 如 需 在 Win32 系统 上 使 用 ActivePerl, 则 必须 首先 实现 下 列 未 完成 的 函 
数 。 其 中 最 主要 的 国 数 是 alarm()， 它 只 用 在 不 多 的 几 个 Perl 模块 中 。 由 于 ActivePerl 缺少 其 实现 ， 
因此 用 户 将 无 法 使 用 这 些 用 到 它 的 模块 。 下 面 是 尚未 实现 的 函数 的 完整 列表 : 

有 关 进 程 和 进程 组 的 国 数 : 

alarm()，fork()，getpgrp()，getppid()，getpriority()，setpgrpP ()， 

Setpriority() 


有 关 获 取 用 户 和 组 信息 的 函数 : 


endgrent ()，endqpwent ()，getgrent ()，getgrgid()，getgrnam()， 
getpPwent () ，getpwnam()，getpwuid()，setgrent ()， setpwent () 


有 关系 统 / 进程 间 通 信 的 国 数 : 


msgct1l()，msgget()，msgrcv()，msgqsnd()，semct1l()，semget()， 
Semop () ， Shmct1l ()， shmget ()， Shmread()， Shmwrite() 


有 关 文 件 句柄 、 文 件 或 目录 的 函数 : 
link()，symlink()，chroot () 
有 关 输 入 和 输出 的 国 数 ; 
syscall () 

有 关 和 获取 网 络 信息 的 国 数 : 


getnetbyname ()，getnetbyaddr ()，getnetent () ，getprotoent ()， 
getsSservent ()， Sethostent ()， setnetent ()， setprotoent () ， 
SetserVent ()， endqhostent ()，endqnetent () ， endqprotoent () ， 
enadqservent ()， Socketpair () 


有 关 ActivePerl 内 建国 数 的 可 移植 性 问题 ， 请 读者 参阅 perlport 和 perlwin32 上 的 相关 文档 页 面 。 




















< 
2 
O 〇 ) 


读者 应 当 学 到 的 知识 


. 什么 是 系统 调用 ? 

. Perl 是 如 何 执行 系统 调用 的 ? 

. 哪个 模块 能 用 于 遍历 文件 系统 ? 

. 如 何 创 建 和 删除 目录 ? 

. 环境 (environment) 说 明了 什么 ? 
什么 是 进程 ? 

fork 和 exec 国 数 实现 了 什么 功能 ? 

在 哪里 可 以 找到 处 理 Windows 进程 的 模块 ? 
当 需 要 执行 系统 命令 时 ， 使 用 系统 函数 和 使 用 命令 行 替 换 〈 反 引号 ) 有 哪些 不 同 ? 
10. 什么 是 globbing ? 

11. eval 畏 数 是 如 何 与 die 国 数 配合 工作 的 ? 


oo ~ 路 上 Di 一 





SO 
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12. 什么 是 信和 号? 

13. Perl 是 如 何 处 理 信 号 的 ? 

14. 如 何在 Perl 中 重 命 名 文件 ? 
15. 如 何在 Perl 中 删除 一 个 文件 。 

















18.7 下 章 简介 


在 下 一 章 中 ,读者 将 学 习 如 何在 文本 中 插入 Perl 图 像 ， 以 便 让 页 面 显 示 得 更 为 友好 。 用 户 还 将 
学 习 如 何 创建 模板 ， 以 便 根据 模板 规定 的 内 容 来 确定 打印 时 所 用 的 字段 宽度 和 数据 类 型 。 

此 外 ， 读 者 还 将 学 习 如 何 调整 页 面 大 小 ， 如 何 打 印 页 眉 、 页 脚 和 汇总 信息 ， 以 及 如 何 把 文本 内 
容重 定向 到 屏幕 或 另 一 个 文件 。 














第 19 章 借助 形象 行 编写 报表 


Perl 全 称 是 实用 摘要 和 报表 语言 。 当 用 户 在 文件 中 实际 提取 并 处 理 完 数据 之 后 ， 接 下 来 就 应 当 
编写 具有 一 定格 式 的 报告 ， 以 便 组 织 和 总 结 这 些 信息 。 如 果 曾 经 用 过 awk 编程 语言 编写 报表 的 话 ， 
读者 可 能 会 在 一 开始 觉得 Perl 的 格式 有 点 特别 。 








19.1 模板 


为 了 编写 一 份 报表 ，Perl 要 求 用 户 首先 定义 一 个 模板 ， 以 便 描 述 如 何 显示 这 个 报表 ;也 就 是 说 
如 何 格式 化 该 报表 。 辟 如， 需要 将 列 左 对 齐 、 居 中 还 是 右 对 齐 ?” 有 需要 格式 化 的 数字 型 数据 吗 ? 在 
每 一 页 顶部 需要 标题 或 列 标题 吗 ? 所 AR 

本 书 将 首先 为 一 份 简单 报表 提供 一 个 简单 的 模板 ， 然 后 再 提供 一 个 完整 的 示例 。 

格式 模板 〈format template) 的 结构 如 下 所 示 : 











Eorcmat 了 R 工 ILBHANDTIE= 


aeture 1ame 
Value ine (text to be formatted) 


WIIte7 


19.1.1 定义 模板 的 步骤 


一 个 模板 需要 历经 如 下 步骤 : 
。 首先 使 用 关键 字 format， 随 后 是 输出 文件 句柄 名 称 和 一 个 等 号 。 默 认 的 文件 句柄 
是 STDOUT， 即 屏幕 。 模 板 定 义 可 以 位 于 脚本 中 的 任何 位 置 。 


foOrmat 下 工 工 书 HANDT 了 = 


2. 虽然 模板 中 的 文本 内 容 会 按 原 样 打印 出 来 ， 但 模板 一 般 都 是 由 形象 行 (picture line) 构 
成 的 ， 后 者 负责 描述 如 何 显示 输出 内 容 。 形 象 (picture) 由 一 组 描述 字段 类 型 的 符号 〈 详 见 表 
19-1) 构成 。 这 些 字 段 可 以 是 居中 、 左 对 齐 或 右 对 齐 的 〈 详 见 表 19-2)。 形 象 行 还 可 用 于 格式 化 
数字 值 。 

3. 在 字段 标志 符 〈field designator) 即 @ 符号 之 后 , 按照 字段 符号 类 型 的 字符 数 重复 它 。 这 就 
决定 了 字段 的 宽度 。 如 果 直 接 把 >>>>>> 放 在 @ 符号 之 后 的 话 , 则 它 描述 一 个 7 字符 宽 的 右 对 齐 字 
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段 S。 是 不 是 感到 很 奇怪 ? 任何 实际 文本 内 容 是 不 能 直接 放 到 @ 符号 之 后 的 ,否则 就 无 法 解释 字段 
的 类 型 了 。 
表 19-1 字段 标志 各 表 19-2 ”字段 显示 符号 
字段 标志 符 用 途 字段 符号 类 型 字段 定义 类 型 
@ 表示 字段 的 开始 
> 右 对 章 
@* 用 于 多 行 字段 居中 
# 数字 
入 填充 字段 
9 旨 明 小 数 点 的 位 置 

















4. 形象 行 能 将 一 行内 容 打 断 成 多 个 字段 。 在 形象 行 后 面 则 是 值 行 (value line)， 其 内 容 将 按照 
形象 行 的 设 定 予 以 格式 化 。 值 行 中 的 每 个 文本 字段 都 由 逗号 隔 开 ， 并 且 与 形象 行 中 的 字段 符号 一 一 
对 应 。 它 会 忽略 值 行 中 的 任何 空白 字符 。 


3 
6 








在 创建 好 模板 后 ， 通 过 行 上 面 的 点 号 〈.) 结束 模板 定义 。 














定义 好 模板 后 ,使 用 write 函数 调用 格式 ， 并 将 格式 化 的 记录 发 送 到 指定 的 输出 文件 句柄 中 。 


此 时 的 默认 文件 句柄 是 STDOUT。 


示例 19.1 


ES 


#1!1V/bin/pPer1l 


下 Sname="Tommyn" 
S$Sage=251; 
SaaS 
Snow="03/14/97"7 
# Format TempIate 
讽 Eormat STDOUT= 
人 甩 和 生息 必 玫 = 一 二 二 二 一 一 一 
4 Name: G<<<<<< RAge :人 @##SalLarYy:G@### 井 # .## Date : Q<<<<<<<<<< 
5 Snamey Sagev SSsalacyr Snow 
6 
# 瑟 nDa TemPp7JIate 
WIILte: 
8 ES 
ou 
--------------------- REPORT------------------------- 
Name: 7ommy 5 
JANE So 
解释 


1. 为 变量 赋值 。 

2. 关键 字 format 后 面 跟 有 STDOUT , 它 是 默认 的 也 是 当前 选择 的 文件 句柄 。 再 后 则 是 一 个 等 号 。 
3. 按照 原样 打印 该 行内 容 。 凡 是 没有 专门 予以 格式 化 的 文本 ， 都 将 按照 原样 打印 出 来 。 

4. 该 行 又 称 作 形 象 行 (picture line)。 该 形象 负责 格式 化 输出 内 容 。@ 定义 了 字段 的 开头 。 这 





二 








符号 ， 但 @ 字段 标志 符 本 身 也 算 一 个 符号 ， 因 此 字段 宽度 为 7 个 字符 。 








虽然 这 
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里 有 四 个 字段 ， 第 一 个 字段 是 宽度 为 7 个 字符 的 左 对 齐 字段 ， 其 前 面 是 字符 串 Name:， 后 面 
则 是 字符 串 Age:;， 第 二 个 字段 由 两 个 数字 构成 ， 随 后 是 Salary:;， 第 三 个 字段 由 八 位 数 构 
成 ， 小 数 点 插入 到 第 6 位 之 后 ， 随 后 是 字符 串 Date。 
5. 根据 形象 对 这 些 变 量 进行 格式 化 。 每 个 变量 都 通过 喜 号 隔 开 ， 并 与 上 述 形象 字段 一 一 对 应 。 
6. 点 号 表明 模板 定义 到 此 结束 。 
7. write 国 数 调用 该 模板 ， 并 将 格式 化 后 的 输出 内 容 显 示 到 STDOUT 上 。 


19.1.2 更改 文件 句柄 


如 果 需 要 将 报表 写 入 文件 而 不 是 屏幕 上 ,， 则 应 在 打开 文件 时 将 其 指定 给 一 个 文件 句柄 。 在 定义 
模板 时 ， 应 当 把 同一 个 文件 句柄 用 作 格 式 文件 句柄 。 若 要 调用 格式 ， 可 以 以 输出 文件 句柄 的 名 称 作 
为 参数 调用 write 国 数 。 


示例 19.2 


#1!V/DinVPer1l 

站 Sname="Tommy" 
Sagde=25: 
$Ssalary=50000.00:; 
三 册 0S 人 2 本 OAE 














包 OoPen (REPORT ，">ePort" ) 11 die "eport: SINn" 
# REPORT 万 TehanaJe Is openea For mWFIEIDG 
风 Eormat REPORT= # 井 REPORT Is also usea for the format 五 1ehanalJe 


4 Name: Q<<<<<< 
号 Sname 


SalaLzy:@## 井 井 井 。 井 厅 
ET 


Date:Q>>>>>>>>>> 
Snow 


避 WIIte REPORT # Thpe write Function senas output to the 五 1e 
# associatea with the REPORT 石 1ehanaJe 


Name: Tommy 


二 
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局 己 志 忆 


0 


训 


计 


闫 
. 形 


An 


~ ww 口 一 


. 打开 文件 report， 并 将 它 附 加 给 文件 句柄 REPORT。 


键 字 format 后 面 是 输出 文件 句柄 REPORT。 
象 行 描述 了 文本 字符 串 Name:， 其 后 是 一 个 宽度 为 6 个 字符 的 左 对 齐 字 段 。 


. 按照 相应 形象 行 〈 见 上 一 行 ) 所 描述 的 格式 ， 对 标量 $name 进行 格式 化 。 


号 表明 格式 模板 定义 到 此 结束 。 


. Write 畏 数 调用 名 叫 REPORT 的 格式 ， 并 将 格式 化 后 的 输出 内 容 写 到 文件 句柄 中 去 。 如 果 没 


有 指定 文件 句柄 ， 则 文件 句柄 REPORT 将 不 会 接收 到 格式 化 的 输出 内 容 ， 因 为 本 行 并 没有 
告诉 write 国 数 应 当 输 出 到 哪里 去 。 


19.1.3 





调用 。 页 


特殊 变量 





页 眉 格 式 





在 下 面 的 示例 中 , 会 在 每 次 调用 格式 时 打印 标题 EMPLOYEE INFORMATION 。 应 该 只 在 每 一 


打印 该 标题 。Perl 允许 用 户 定义 页 眉 格 式 〈top-of-the-page 格式 )， 它 只 在 开始 新 页 面 时 
看 的 默认 长 度 为 60 行 。 打 印 60 行 之 后 ，Perl 会 在 下 一 页 的 顶部 打印 出 页 眉 格 式 〈 通 过 将 
3$= 设置 为 其 他 值 ， 便 可 改变 默认 的 页 面 长 度 )。 在 下 面 的 示例 中 ， 每 当 进 入 while 循环 体 
































时 ，write 函数 都 会 把 所 有 输出 内 容 发 送 到 STDOUT 上 。 


应 用 


页 眉 格 式 之 前 的 示例 如 下 所 示 。 


示例 19.3 


(The File) 


$ cat datafile 
REmmyeRUCKEESSRUUNUE 后 必 帮 66 
可 SC RS 二 二 证 及 下 全 UUSEE LGA 忆 
Peter Piper:32:35000:4/12/93 


辣 业 ES 


#1V/Ppin/pPezr1l 
opPen (DB， "datafile" ) 1| die "datafile: SINn" ; 
format STDOUT= 


Sname 


Salary: @# 提 井 间 井 。 井 井 
Ssalary 

ER 
SS 
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马 while(<DB>)T{ 
4 (SEE SEE SEE SS 本 间隔 下 
与 WILIte : 


】 


weemey 


网 本 忆 瑟 全 2 全 休 


Name:” wack Spa 


Salary: 425000.00 


亲本 起 5 大和 必 


Name: Peter PiIiPer 


解释 
1. 通过 文件 句柄 DB 以 读 方式 打开 文件 datafile。 
2. 使 用 形象 行 和 数据 创建 STDOUT 的 格式 。 
3. while 循环 从 DB 文件 句柄 中 一 次 读 取 一 行内 容 。 
4. 以 冒号 把 每 一 行内 容 拆 分 为 标量 数组 。 
5. write 函数 调用 STDOUT 格式 ， 并 将 格式 化 的 行 发 送 到 STDOUT.。 


页 眉 格 式 如 下 所 示 : 





格式 


SEEESODDOUDENOIS = 


petEurelanme 
Value ine (text to be formatted) 
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. (Ena of template) 


关键 字 format 后 面 跟随 着 带 有 下 划 线 和 TOP 的 文 作 














句柄 名 称 。 如 果 该 行 包含 有 形象 行内 容 ， 








则 值 行 将 由 格式 化 后 的 文本 构成 。 任 何 没有 通过 形象 子 以 格式 化 的 文本 都 将 按照 原样 打印 出 来 。 点 





号 表明 页 眉 格式 模板 到 此 结束 。 
$% 是 一 个 Perl 特殊 变量 ， 含 有 当前 的 页 码 。 
下 男 


ij 的 示例 显示 了 页 眉 格 式 的 结果 。 
































示例 19.4 


ssercnotny 
和 局 而 内 训 全 直下 


SN > 


王 open(DB，n7"adatafiile" ) | aie "datafile: 
到 format STDOUT_TOP= 
习 号 同 川 恰 : 
4 号 区 
瑟 | EMPLOYEE INEORMATION | 
6 。 
网 Eormat SITDOUT= 
Namsn 用 和 < 一 << 
Sname 
RARde : @## 
Sage 
Salary: @# 提 ## 间 # 。 井 井 
Ssalary 
Date: Q@>>>>>>> 
SS 
8 while(<DB>)1{ 
名 (amE 三 > 二 人 二 辣 生 二 局 可 下 7 和 直人 SEE 信人 尖 
10 WIILte: 
} 
GETUE) 
一 : 芝 


50000.00 


SEE 


7 
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Name uUack SDra 


SaJary: 45000.00 


JE 


Name: Peter PiIPper 


中 ULO 


ES 和 省 避 


示例 19.5 


ESErnety 
#!1V/pin/VpPez1l 


opPen (OUT ，">outfile" ) 1|1 die "outfile : 
Eormat OUT _ TOP= # New 五 TehpanaJe 
王国 加 | 
$% 


| 了 MPLOYEBE INEORMATION | 


TREE 六 邮 忆 


format OUT= 
Namen 有 < RE 一 < 
Sname 


SalaryYy: @# 提 井 间 井 。 井 井 
Ssalary 


四 
SEE 


While(<DB>) 1{ 


(Smname，S$Sage，， SSsalary，Sstact)=SP11it(": 


6 Wite OUT : 


(GenE) 
$ _ cat outfile 


SenlDBACSESNITE DSS 有 避 串 咱 大 GE GORESE 


NT 


5 
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SSE2OOOOSAO 


Name:>” wacKk SPDFat 


六 


本 


Name: Peter PumnPKzIi 


9 


19.1.4 select 函数 


Select 国 数 用 于 为 print 和 write 函数 设置 默认 文件 句柄 。 当 使 用 select 国 数 选 定 了 某 个 文件 句 
柄 之 后 ，print 和 write 图 数 就 可 以 不 再 需要 其 他 参数 。 在 调用 格式 或 调用 Print 函数 时 ， 所 选择 的 
文件 句柄 将 成 为 默认 值 。 

Select 国 数 会 返回 前 面 所 选择 的 文件 句柄 的 标量 值 。 

如 果 有 多 种 具有 不 同名 称 的 格式 ， 则 可 使 用 $_ 变量 来 维护 当前 所 选 输出 文件 句柄 的 报表 格式 
名 称 。write 和 print 函数 会 将 其 输出 内 容 发 送 到 当前 选择 的 输出 文件 句柄 中 。 
量 $^ 含有 用 于 当前 所 选 输出 文件 句柄 的 页 眉 格 式 名 称 。 
$. 则 含有 记录 数目 〈 类 似 于 awk 中 的 NR 变量 )。 


示例 19.6 


全 neseccmty 
#!V/usr/bin/per1l 
# rzte an amwKkKIIKe Fepor 
下 DemeMOER2T OOY) 串 本 E 
汉 $oldfilehandle= select (MYDB) : 
# MYDB is selectea as the 万 JehanaJe for mWFILe 
浊 Eormat MYDB_ TOP = 











并 寺 


am 昌 





DATEBOOK INEO 


Name Phone 四 SEE Salary 





4 fEormat MYDB = 
作用 攻 EECEEEE 由 号 
从 光 玖 Snamey S$Sphoney 局 5 辣 忆 二 有 
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配 Eormat SUMMRARY = 





6 The average Salary for all employees 1S S$SQ@### 井 井 井 井 . 井 井 。 


SS 
The number of lines left on the Page 二 SsS @####。 
SEE 
The aefault Page Length ss @### 。 
S= 
由 = 
SEEemtoBaosEaoo OOsanEESDEnEOSSGECOE STAND 
while(<DB>)1{ 
(ESmamensphnoneesaodres SR ESDOES SS ESDTOEE GO 人 为 志 
8 WIIte : 
BEE 
Stotal+=Ssal: 
】 
全 人 区 三 古本 相克 
司 5$S~=SUMMRRY : # New report format for MYDB 万 1ehanaJe 


0 write 


1 select ($olLdfilehandle) ; # S7TDOUT Is now selectea For 大 Urthper 
# writes or Prints 
2 5cntc2ReboeSuonitteo On QOaten 


(GEGIDE) 
全 必 吕 SS SONSEE 二 和 人 用 各 届 的 二 和 打 有 放生 下 和 岂 由 





(The Reportrt) 


$_ cat mydb 
DATREBOOK 工 NWFO 

Name Phone 证 辣 本 交 人 区 帮 六 全局 
世 Betty BooPp 六 梧 本 全 三 各 玫 二 元 2 0 
又 TI9oF ChevsKy 昌 忆 机 本 2 坷 三 局 汪 史 光 人 22 00OO 
忆 Norma Coraer 交友 国 三 和 7 攻 帮 加 区 区 72 隔 5 人 OOO 
本 时 二 总 本 及 呈 2 光 下 3 5 2 
26 Phphram 瑟 aray 六 于 3 二 用 宁 呈 3385 2 0600 
27 uames ITKeaa 辣 汪 交 二 多 号 岂 三 局 有 7 天 和 总 45000.00 


Zhe averacgel 5aJary for al empJoyees 15 582572.350. 
Tpe Dumper of Jines Jeft on the Pagce 1I5 32. 
Thpe aerfault pa9e Jen9th Is 60. 


1. 以 写 方式 打开 MYDB 文件 句柄 。 

2. select 国 数 将 write 和 print 国 数 的 默认 文件 句柄 设置 为 文件 句柄 MYDB。 将 标量 $oldfilehandle 
赋值 为 前 面 已 经 指定 的 文件 句柄 。 在 这 个 示例 中 ,前面 定义 的 文件 句柄 就 是 默认 的 SITIDOUT。 

3. 定义 文件 句柄 MYDB 的 页 眉 模 板 。 

4. 将 报表 主题 的 格式 设置 为 文件 句柄 MYDB。 

5. 使 用 新 名 字 SUMMARY 定义 另 一 个 格式 模板 。 然 后 可 以 通过 把 格式 名 SUMMARY 赋予 特 
殊 变 量 $~ 的 方式 来 调用 该 格式 〈 见 第 9 行 )。 

6. 定义 形象 行 。 

7. 结束 格式 模板 。 
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8. 调用 格式 ， 将 输出 内 容 写 入 当前 选择 的 MYDB 文件 句柄 。 

9. 将 变量 $~ 赋值 为 新 的 格式 名 。 将 该 格式 应 用 到 当前 选择 的 MYDB 文件 句柄 上 。 

10. write 国 数 调 用 当前 选择 的 MYDB 文件 句柄 的 格式 SUMMARY 。 

11. select 国 数 将 文件 句柄 设置 为 保存 在 变量 $oldfilehandle 中 的 值 STDOUT。 此 后 ，write 和 
print 函数 就 会 将 其 输出 内 容 发 送 到 STDOUT 中 ， 除 非 用 户 又 选择 了 其 他 的 输出 文件 句柄 。 

12. 将 该 行 发 送 到 屏幕 。 


19.1.5 多 行 字段 


如 果 值 行 “value line) 中 拥有 多 行内 容 ， 则 可 使 用 @* 变量 启用 多 行 字段 ， 并 在 格式 模板 中 将 
它 放 在 单独 的 行 上 ， 然 后 给 出 多 行 值 。 


示例 19.7 


Eee 
#!V/PbinV/Pez1l 
半 $Ssong="To markety Nn 
EnarketcNeoaony 天 生 瑟 STSRNR 
Eormat STDOUT= 
Qr* 
S$sond 
Q@x 
NOmsESJSINONECYWEESSIRNOIEOIES AIOINDEL 


Gan 性 WwW 


WIIte 


OUwEowy) 

时 已 本 7 二 天 在 导 

to marKketv 

下 所 由 人 人 辣 1 
了 Home a9ainyv 

古 ome a9a7zn7 

忆 丰 和 人意 避 


1. 标量 Ssong 含有 换行 符 。 
. 将 格式 模板 设置 为 STDOUT。 
. @* 字段 占 位 符 〈field holder) 表明 随后 是 一 个 多 行 字段 。 
. 值 行 含 有 标量 $song， 从 而 得 到 多 行 字 符 串 。 
@* 字段 占 位 符 《〈field holder) 表明 随后 是 一 个 多 行 字段 。 
在 值 行 中 含有 上 符 有 换行 符 的 字符 串 。 
. 结束 模板 定义 。 


19.1.6 ”填充 字段 


脱 字符 〈^) 字段 占 位 符 允 许 用 户 创建 一 个 含有 文本 的 填充 段落 ， 其 中 文本 是 根据 形象 所 定义 
的 规范 而 放置 的 。 如 果 文 本 在 一 行 中 填充 不 下 ， 则 会 换行 到 下 一 行 中 ， 直 到 以 段落 块 “paragraph 
block) 的 格式 打印 完 所 有 行为 止 。 文 本 的 每 一 行内 容 都 会 拆 分 为 多 个 词 。Perl 会 在 指定 行 中 放 入 








~1] 人 内 上 hi 
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尽 可 能 多 的 词 。 值 行 变量 可 以 在 多 个 行 上 重复 ， 它 只 打印 每 一 行 剩余 的 文本 ， 而 不 会 再 次 打印 整个 
值 。 如 果 值 行 数 目 多 于 实际 要 格式 化 的 行 数 ， 则 可 能 会 出 现 空 行 。 

读者 可 以 通过 使 用 特殊 的 一 字符 《又 称 作 抑制 指示 符 , 即 Suppression indicator ) 来 抑制 多 余 的 
衬 行 。 如 果 在 值 行 中 放置 了 两 个 连续 的 一 ， 则 待 填充 字段 〈 以 ^ 开 头 ) 将 持续 不 断 地 填充 ， 直 到 所 
有 文本 都 包含 到 段落 中 为 止 。 


示例 19.8 


(The ScEzEiRpt) 
#!1V/Dbin/Pezr1l 
Sname="Hamlet"; 
EasyoUEREaVorEE ns 二 commHamiieisS 





业 S$dquote = <STDIN>， 

允 Eormat STDOUT= 

瑟 P1Lay: 6G<<<<<<<<<< Quotation: 和 天 和 

4 Snamey Sadquote 

号 < 和 < 
S$quote 
< 天 < 
S$dquote 

6 到 < 关 关 和 < 
S$aquote 

WwWILIte 
emeuwey 


[6115a 二 站 区 = 亲属 证 OU 汪 届 人 oj 和 三 JETeCEAea os oora 帮 区 oo 下 人 天 Ta oo 
NMhetper- "ts nobJer In the mna to Surrfer the 5Jing9s anQ arrows of OUtrageous Tortune... 


PITIay: 万 amJyeE 四 acneReEOEEEo IOE 汪 22OE 省 记 0 下 汪 关 AS 
Guestion: Mnpetper "is nobJer In the 
1 
总 和 硬 ORS9eOUs 本 六 onE 天 下 


解释 


PE 


. 要 求 用 户 输 入 落 士 比 亚 的 Hamlet 中 的 一 行 〈 人 许 换行 )。 
2. 定义 STDOUT 的 格式 模板 。 

. 形象 行 中 含有 两 个 字段 , 其 中 之 一 是 戏剧 名 称 $name 或 Hamlet， 另 一 个 则 是 用 户 输入 行 $gquote。 
字符 占 位 符 ^ 用 于 创建 填充 段落 。 将 摘录 内 容 拆 分 为 多 个 单词 , 每 个 词 都 填 满 4 行内 容 。 如 果 
单词 数目 多 于 值 行 , 则 不 进行 格式 化 。 如 果 单 词 数 量 小 于 值 行 , 由 于 在 最 后 一 个 形象 行 之 前 出 现 
了 ~ 符号 ， 因 此 需要 抑制 空白 行 出 现 。 

值 行 中 售 有 根据 上 述 形象 完成 格式 化 的 变量 。 

如 果 在 第 一 行 中 放 不 下 ，$quote 的 第 二 行 会 放 在 此 处 。 

如 果 在 格式 化 三 行 以 后 就 用 完了 文本 ， 则 在 此 抑制 空白 行 出 现 。 


LD 





2 


示例 19.9 
ES 
#1/bin/Pez1l 
Sname="Hamlet"; 
WIISEDIS 和 OnEEE 
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NE 
Eormat SITDOUT= 


Play: 6G<<<<<<<<<< Cuotation: Ge 和 和 
于 Snamey S$dquote 
胞 一 ~ Se<<<< 关 和 < 和 
S$dquote 
纪 WIILte: 
eu 


OOEN EECSTSG Lo oocie ES 
Jpetper "tis nopJer in the mina to suffer the SJIin9s ana arromws of outra9eous fortune. .. 


有 77/ 在 三品 Cuaotat7on: 7Io be or noLt to bev 
tpat 5S tpe 
GuestIzon” pether 
人 EST 后 2900 
四 
9 
Outra9geous LEForune... 


1. 设置 值 行 ， 其 中 含有 戏剧 名 称 与 用 户 输入 内 容 。 

2. 使 用 两 个 一 《抑制 指示 符 ) 告诉 Perl 应 当 一 直 填 入 段 , 直 到 打印 了 $quote 中 的 所 有 文本 或 
者 磁 见 空白 行为 止 。 

3. wiite 国 数 调用 格式 。 


19.1.7 ”动态 报表 编写 


在 了 解 如 何 创建 报表 之 后 ， 读 者 还 能 根据 需要 在 模板 中 动态 地 更 改 各 个 字段 的 宽度 。 首 先 ,将 
指派 的 字段 类 型 赋值 给 变量 , 并 使 用 Perl 的 字符 串 重 复 运 算 符 给 出 每 个 字段 含有 的 字符 数 。 根 据 字 
段 宽度 的 不 同 ， 该 字符 数 可 以 赋值 为 不 同 的 数值 。 然 后 把 报表 模板 赋值 给 一 个 字符 串 ， 该 字符 串 中 
含有 多 个 代表 字段 类 型 、 字 符 数 和 字段 值 的 变量 。 在 需要 时 ， 用 户 可 使 用 Perl 的 eval 国 数 来 解释 
格式 字符 串 。 详 见 示 例 19.10。 


示例 19.10 


人 Eeenmety 
SEETRENAOaEEoSRE 二 人 纪 友 二 六 本 二 本 有 克 








ZemtSCGRTIISSIEONECE 汪 ee # OPen aa Pipe to Sort outPput 
SR 

全 有 三 于 二 祝 有 二 汪 二 有 坟 

eaB 三 2 

有 伞 E 二 本 4 三 于 直下 


# _ Create the Format tempIate 

S$SEormat=dqdq ( 

Eormat SORT= 
N\esSfieldl\esSfield2\e@sS$Sfield3\Q@sSfield4 
N\S$Sname，\S$SPhone， NS$Sbirth，A\$sal 


~] OO 旋 


J 
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8 eval $format:; 
机 
人 meSTSTE 且 5 和 攻 全 SEESESSUNESCIOILL 
(ES 和 EST 
Smame=Sl as SHE S 二 了 
10 write SORT: 
】} 
CaieSe 毋 二 有 
GE 和 RS 坝 杯 





(GERUIN 
Blenheim，StevVe 及 国 二 日 玫 司 = 了 汪 全 本 下 于/ 下 区 生生 2050000 
Boop，Betty 马 人 王 昌 3 人 三 直 二 避 了 3 14500.00 
GELOSE 本 几 晤 二 入 吸 二 三 直 必 引 3 全 人 ES 23400.00 
Corader，Norma 到 5 加 晤 SOOROU 
Cowany Jennifer 548-834-2348 的 多 克 作 沪 OO 
DeLoach，Jon 宇多 交 才 吾 二 让 放 肥 3 SSUIOURON 
EVich，Karen 284=758=2857 5 85100.00 
EVvich， Kacen 5 全 三 交 本 aa 这 二 38200000 
Evich，， Karen ES 和 6 全 820000 
FEardbarkle，EFred 5 本 个 | 人 2 SOSOOE ON 
FEaradbarkle，Fred 全 沁 二 站 人 人 2 OOORON 
性 忆 且 9 三 局 3 久 三 3 和 有 AAA5S 号 20 
解释 
1. 以 只 读 方式 打开 文件 datebook。 
2. 创建 一 个 管道 ， 以 便 把 Perl 的 输出 发 送 给 系统 提供 的 “排序 ”工具 。 该 排序 过 程 将 按照 姓 


氏 的 升序 排列 。 

3. 创建 变量 , 其 中 售 有 负责 表达 “形象 行 ”的 字符 串 。 运 算 符 “x ”负责 指定 字符 串 重 复 次 数 。 
这 人 么 做 使 得 用 户 可 以 方便 地 更 改 字段 的 宽度 ， 从 而 能 在 显示 报表 时 控制 其 外 观 。 

4. 变量 $format 含有 一 个 将 用 作 报 表格 式 的 字符 串 。 

5. 模板 将 通过 第 2 行 创建 的 管道 把 输出 内 容 发 送 到 SORT 文件 句柄 中 。 

6. 这 些 变 量 表示 每 个 字段 的 标志 符 及 其 宽度 。 请 注意 ， 这 里 在 @ 符号 前 面 加 上 了 一 个 反 斜 杠 ， 
以 免 Perl 在 条 件 成 熟 之 前 对 该 行 求 值 。 

7. 这 些 变 量 表示 实际 的 字段 值 , 这 些 值 将 基于 上 述 形象 行 而 显示 出 来 。 这 些 字 段 同 样 带 有 反 和 斜 
杠 ， 以 免 过 早 进行 求 值 。 

8. eval 函数 负责 对 变量 求 值 ， 并 将 得 到 的 变量 值 奉 换 回程 序 中 。 在 解释 每 一 行内 容 时 ，Perl 将 
会 看 到 如 下 所 示 的 当前 报表 格式 : 

Ecormat SORI= 


区 2 村 2 中 中 吕 串 咱 和 
[iTETI Eee e 划 所 本 0 有 


9. 现在 ， 每 次 一 行 地 遍历 文件 ， 同 时 拆 分 其 name 字段 以 获得 名 字 和 姓氏 ， 然 后 再 把 名 字 连 接 
到 姓氏 后 面 ， 以 便 按 照 姓氏 进行 排序 。 
10. write 国 数 调 用 SORT 模板 ， 程 序 将 按照 第 6 行 和 第 7 行 定义 的 报表 模板 将 每 一 行内 容 写 到 
屏幕 上 。 


19.2 ”读者 应 当 学 到 的 知识 





1. 读者 应 当 能 够 定义 出 创建 一 个 模板 所 需 的 步 又， 模板 负责 生成 格式 化 的 输出 。 





储 助 形象 行 编写 报表 
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. 了解“ 形象 行 (picture line)” 的 意思 。 
. 读者 应 当 能 够 对 页 眉 或 页 脚 进行 格式 化 。 
. 读者 应 当知 道 如 何 创 建 多 行 字段 (mnultiline field) 和 填充 字段 〈filled field ) 。 
. 能 够 更 改 格式 文件 句柄 〈format filehandle ) 。 

. 能 够 借助 eval 从 头 生 成 一 个 形象 行 。 





19.3 下 章 简 介 





在 下 一 章 中 ， 读 者 将 学 习 Perl 是 如 何 与 网 络 进行 交互 的 ， 以 及 客户 端 /服务 器 模型 。 读 者 将 学 


到 什么 是 网 络 协议 、 网 络 寻 址 、Perl 的 服务 器 与 协议 国 数 以 及 如 何 获取 主机 信息 。 此 外 还 讨论 了 和 套 


接 字 的 实现 途径 ， 以 及 如 何 使 用 它们 在 两 台 Sun 计算 机 之 间 进 行 点 对 点 通信 。 


练习 19 ”美观 如 画 ! 


从 下 面 的 文本 中 生成 一 个 报表 ， 并 将 它 发 送 到 一 个 文件 中 。 





+------------- 一 +---------------------------------------- 一 +----------------------------- 一 +----------------- 一 十 
SuppPlierid Companyname Contactname Phone 
+--------------+-----------------------------------------+------------------------------+------------- 一 -一 -一 十 
1 | Exotic Liquids Char1loctte Cooper ( 工 71) 555=-2222 
2 New Orleans Cajun Delights Shel1ley Burke (100) 555-4822 
汪 Grandma Kel1Yy"s Homestead Regina Murphy (= 二 7 
4 Tokyo Traders Yoshi Nagase 183)3 3555=50d] 沁 
5 Cooperativa de Quesos 'Las Cabras' RARAntonio qdqel Valle Saavedra 【196 与 9 76 34 
6 | Mayumi's Mayumi Ohno (06) 431-7877 
池 PavLova，Ltd . Ian DevlLing (03) 444-2343 
8 Specialty Biscuits， Ltd Peter Wilson (161) 555-4448 
9 PB KnSckebrocdq AB Lars Peterson 031-987 65 43 
0 Refrescos Americanas LTDR Carlos Diaz (11) 555 4640 
让 Heli Snwaren GmbH & Co。 KG Petra Winkler (010) 9984510 
立 P1Lutzer Lebensmitte1LgromSrkte RAG Martin Bein (068 99273S 
3 Nordq-Ost-EFisch Hanqelsgesel1schaft ribH Sven Petersen (04721) 8713 
4 Eormaggi Fortini S.z.1。 了 Lio Rossi (0544) 60323 
党 Norske Meierier Beate Vileid 102=953010 
6 | Bigfoot Breweries Chery1 Say1lLor 人 03) 555=-9931 
漳 Svensk Sjofoqa AB Michael BJorn 08-123 45 67 
8 | Aux joyeux ecclTsiastiques GuylEne Nodqier (1032833005S 
3 New Englanq Seafoodq Cannery Robb Merchant (所 人 535-3267 
20 Leka Trading Chandqra Leka 555=ST97 
21 Lyngbysil1d Niel1s Petersen 43844108 
尼 人 Zaanse Snoepfabriek Dirk Luchte 11823495 1212 
23 Karkki OY Anne Heikkonen (953) 10956 
24 G'qay， Mate Wendy Mackenzie (02y 555=5914 
25 | Ma Maison Jean-Guy Lauzon (514) 595=9022 
26 Pasta Buttini s.z.1. Giovanni Giuqdicji (089) 6547665 
交 汉 ESscargots NOuUVeauX Marie Delamare 全 瑟 了 和 人 v 亿 了 
28 Gai PGturage 了 Liane Noz 38.76.98,.06 
29 | FEorots dQ'Trables Chantal Goulet (514) 555=2955 
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20.1 网 络 与 Perl 


由 于 在 计算 机 之 间 共 享 信息 和 传输 文件 是 做 任何 事情 都 不 可 或 缺 的 , 因此 Perl 也 提供 了 很 多 函 
数 ， 用 于 在 程序 中 获取 网 络 信息 。 为 了 编写 用 于 进程 间 通 信 机 制 “和 套 接 字 、 消 息 队 列 等 ) 的 程序 ， 
了 解 一 些 网 络 相 关 的 技术 是 非常 必要 的 。 下 面 讨 论 的 内 容 只 是 介绍 一 些 常 用 的 网 络 术 语 ， 以 便 让 读 
者 在 分 析 或 编写 含有 这 些 函 数 的 程序 时 ， 无 需 查 阅 C 语言 书籍 或 手册 就 能 知道 它们 的 意思 。 











20.2 客户 端 /服务 器 模型 





在 前 面 的 章节 中 ， 当 连接 到 某 个 数据 库 或 web 服务 器 时 ， 我 们 已 经 介绍 过 了 客户 端 /服务 器 模 
型 。 大 多 数 网 络 应 用 程序 都 使 用 了 客户 端 /服务 器 模型 。 服 务 器 可 以 为 一 个 或 多 个 客户 端 提供 各 种 
服务 。 客 户 端 可 以 从 位 于 本 机 或 远 端 计 算 机 上 的 服务 器 发 送 服务 请 求 。 服 务 器 程序 可 以 提供 诸如 电 
子 邮件 、Telnet 和 FTP 之 类 的 服务 。 为 了 让 客户 端 和 服务 器 之 间 能 够 相互 通信 ， 必 须 在 两 个 进程 之 
间 建 立 连 接 , 这 时 通常 都 会 用 到 套 接 字 (socket)。 目 前 最 为 著名 的 客户 端 /服务 器 模型 莫 过 于 Web 
使 用 的 客户 端 〈 浏 览 器 ) /服务 器 〈Web 服务 器 ) 模型 了 。 


























20.3 网 络 协议 CTCPJ/IP ) 


在 网 络 上 发 送 数据 时 ， 必 须 有 某 种 可 靠 的 方式 让 数据 从 一 台 计 算 机 传 到 另 一 台 计 算 机 上 。 为 了 
完成 这 个 复杂 的 过 程 ， 可 以 将 网 络 组 织 为 一 系列 的 层 (layer)， 其 中 每 一 层 都 会 为 下 一 层 提供 具体 
的 网 络 服 务 。 这 些 层 相互 独立 ， 并 具有 明确 定义 的 接口 ， 负 责 为 下 一 层 提供 功能 。 高 层 会 把 数据 和 
信息 传输 到 它 下 面 的 层 ， 依 此 类 推 直到 最 底层 。 在 最 底层 ， 两 台 计 算 机 之 间 可 以 相互 物理 通信 。 负 
责 在 一 台 计 算 机 上 的 网 络 层 与 另 一 台 计 算 机 上 相应 的 网 络 层 之 间 进 行 通信 的 规则 和 过 程 称 为 协议 
Cprotocol)。 在 UNIX 中 最 常见 的 网 络 协议 包括 以 太 网 (Ethernet) 协议 、IP、TCP 和 UDP。 



































20.3.1 以 太 网 协议 〈 硬 件 ) 
以 太 网 层 是 网 络 的 物理 层 。 任 何 连接 到 以 太 网 总 线 上 的 主机 都 能 物理 地 访问 网 络 上 发 送 的 数 
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据 。 以 太 网 协议 负责 为 经 过 线路 的 传输 操作 准备 数据 。 它 会 把 数据 组 织 成 帧 〈frame)， 这 些 帧 含有 
48 位 的 以 太 网 产地 址 和 目标 地 址 。 以 太 网 层 是 网 络 的 最 底层 ， 代 表 了 物理 网 络 上 的 数据 传输 。 








20.3.2 Internet 协议 〈IP) 





了 层 位 于 以 太 网 层 之 上 ， 负 责 为 在 独立 网 络 上 的 路 由 操作 准备 数据 。 了 P 使 用 长 度 为 4 个 字 节 
的 Pnternet 协议 地 址 〈 即 下 地址 ), 并 将 数据 组 织 成 包 (package) 的 信息 片断 。 包 中 含有 卫 首部 ， 
带 有 源 地 址 、 目 的 地 址 、 协 议 类 型 以 及 数据 部 分 。 虽 然 王 协议 比 以 太 网 协议 更 为 复杂 , 但 它 在 传输 
包 时 却 是 无 连接 并 且 不 可 靠 的 。 它 不 保证 数据 能 顺利 接收 ， 但 是 如 果 待 传输 数据 太 大 ，IP 会 将 它们 
拆 分 为 较 小 的 单元 。 卫 协议 对 用 户 隐 藏 了 不 同 网 络 之 间 底 层 细 节 上 的 差异 。 





20.3.3 ”传输 控制 协议 CTCP) 


虽然 站 层 提 供 了 一 点 六 控 制 能 力 ， 但 不 能 保证 其 可 靠 性 也 就 是 说 ， 数 据 接收 顺序 可 能 会 不 同 
于 发 送 顺序 , 或 者 数据 根本 无 法 到 达 目 的 地 。TCP 协议 则 提供 了 可 靠 的 端 对 端 (end-to-end) 服务 ， 
并 且 其 流 控制 机 制 与 电话 呼叫 相同 。 一 旦 建立 了 连接 ， 两 端 便 可 相互 通 偿 并 且 即 便 在 同时 对 话 时 ， 
其 接收 请 息 的 顺序 与 发 送 顺序 也 是 相同 的 。 使 用 TCP 协议 的 程序 包括 rlogin、rsh、rcp 和 telnet 等 。 





20.3.4 用 户 数据 报 协议 CUDP ) 


UDP 是 一 种 能 替换 TCP 的 协议 ， 用 于 不 需要 连续 进行 连接 的 应 用 程序 ， 这 些 程序 往往 需要 有 周 
期 性 地 发 送 短 销 息 ， 而 不 必 芳 虑 某 些 数据 的 丢失 问题 。UDP 数据 报 〈datagram ) 类 似 于 邮寄 信件 : 
每 个 包 都 有 自己 的 地 址 ， 不 保证 递送 的 时 间 和 顺序 ， 并 且 充 许 发 送 重 复 的 包 2。 这 种 方法 避免 了 程 
序 在 等 待 结果 时 挂 起 。 使 用 这 种 协议 的 程序 包括 rwho 和 ruptime。 






































20.4 网 络 寻 址 


网 络 由 很 多 相互 连接 的 计算 机 构成 , 这 些 计算 机 又 称 作 主机 〈host)。 当 把 新 计算 机 诡 加 到 网 络 
上 时 , 系统 管理 员 会 为 它 指 定 一 个 主机 名 。TCP/IP/Enternet 型 网 络 上 的 每 一 台 主 机 都 拥有 一 个 主机 
名 和 三 种 类 型 的 地 址 : 以 太 网 日 志 、IP 地 址 和 TCP 服务 端口 号 。 当 信息 在 网 络 中 从 一 层 传 给 另 一 
层 时 ， 数 据 包 应 当 含 有 相应 的 首部 信息 ， 其 中 包含 了 将 包 发 送 到 下 一 个 目标 所 需要 的 地 址 。 














20.4.1 以 太 网 地 址 


由 于 以 太 网 地 址 在 制造 计算 机 时 就 已 经 烧 入 PROM 中 ， 因 此 它 不 是 系统 管理 员 分 配 的 编号 。 
它 只 用 于 标识 某 个 硬件 。/etc/ethers (CUCB ) 文件 含有 面向 某 种 特定 网 络 的 以 太 网 地 址 和 主机 名 


Chostname ) 。 











日 Rieken, B. and Weiman, 工 , 4dventures z UN NefhporK 4Pplications Progra1a1iz128g，John Wiley 廊 Sons， 
Wiley Professional Computing: New York,， 1992, p.7. 
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20.4.2 |IP 地 址 


IP 地 址 是 一 组 32 位 的 数字 ， 由 系统 管理 员 负 责 分 配给 网 络 上 的 主机 。 如 果 一 台 主 机 同时 连接 
到 多 个 网 络 上 , 则 必须 对 每 个 网 络 分 别提 供 一 个 耳 地 址 。 该 地 址 是 由 点 号 隔 开 的 4 个 十 进 制 数字 组 
成 的 〈 如 129.150.28.56)。 地 址 的 第 一 部 分 标识 了 主机 连接 的 网 络 ， 甚 余部 分 则 代表 主机 。 所 有 地 
址 可 以 分 成 多 个 类 《〈 从 A 类 到 C 类 )。 这 些 类 决定 了 地 址 中 哪些 是 属于 网 络 的 部 分 ， 哪 些 又 是 属于 
主机 的 部 分 。/etc/hosts 文件 舍 有 主机 的 地 址 、 主 机 名 以 及 与 之 关联 的 别名 《〈 详 见 gethostent 国 数 及 
其 相关 国 数 )。 








20.4.3 ”端口 号 


当 服 务 多 个 用 户 进 程 时 ， 在 服务 器 上 可 能 会 有 许多 客户 端 对 使 用 TCP 和 UDP 协议 的 特定 服务 
发 送 请 求 。 当 把 信息 传递 到 特定 的 应 用 层 时 ， 这 些 协 议 可 使 用 16 位 的 整数 端口 号 来 标识 某 个 主机 
上 的 特定 进程 。0 到 255 之 间 的 TCP 和 UDP 端口 号 又 称 作 通用 端口 , 是 为 一 些 通用 服务 预 留 好 的 。 
(有 的 操作 系统 还 为 专用 程序 保留 了 特殊 端口 。) 8 最 为 常用 的 服务 包括 Telnet 和 FTP, 其 TCP 端口 
号 分 别 是 23 和 21。 如 果 编 写 使 用 TCP 和 UDP 协议 的 应 用 程序 ， 就 必须 为 它 分配 惟 一 的 端口 号 。 
该 端口 号 应 当 是 一 个 在 保留 端口 号 范围 之 外 的 数字 。/etc/services 文件 中 含有 通用 端口 号 的 列表 。 











20.4.4 “Perl 协议 函数 





下 面 的 Perl 函数 用 于 从 /etc/protocols 文件 检索 信息 。 这 些 国 数 都 是 根据 UNIX 手册 页 第 2、3 
部 分 中 相应 的 系统 调用 和 库 国 数 而 命名 的 。 

getprotoent 函数 。getprotoent 国 数 会 从 网 络 协 议 数据 库 /etc/protocols 中 读 取 下 一 行内 容 并 返 
回 列 表 ， 其 中 的 项 目 是 协议 的 正式 名 称 、 协 议 的 别名 和 替换 名 、 还 有 协议 号 。setprotoent 国 数 则 负 
责 打 开 并 回 卷 (rewind) 文件 /etc/protocols 。 如 果 STAYOPEN 值 不 是 零 , 则 在 成 功 调用 getprotoent 
国 数 之 后 不 关闭 该 数据 库 。endprotoent 函数 负责 关闭 数据 库 。 




















格式 


getprotoent : 
Setpzotoent (STAYOPEN) : 
enadqptrotoent 


示例 20.1 


ES 

孔 while ((S$Sname， $aliases，S$SProto ) = getProtent) { 

及 Printf "name=gs-5s,aliases=%sg-6spPzroto=gs-8sNxn'"y 
Sname，S$aliases，， SProto: 


】} 


OOuEeuey) 
习 Darme=IPv aliases= 工 P PrFoto=O0 





暂 Stevens，W. R., and Wiight,G. R., TCPAP 1ustrated 耳 1ume 1: 7T1jpe Protocols, Addison Wesley Longman， 
1993, p.13. 
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Dame=Icmpv alJiases=TCMP Proto=1 
Dame=I9mpPpv aJiases=OGMP Proto=2 
Dame=99Pv aziases=CGCGP Proto=3 
Damne=tcPpv aeaSSs 三 和 CEP Proto=6 
Dame=DPupv aiases=PUP PFoto=12 
Dame=UuQpv aiases=TIDP PrFoto=I7 


解释 
1. getprotoent 函数 从 /etc/protocols 中 获取 项 目 内容 。 该 循环 将 遍历 读 取 整 个 文件 。 检 索 得 到 
协议 名 、 关 联 到 该 协议 的 任何 别名 以 及 协议 号 。 
2. 打印 每 一 项 及 其 值 。 


getprotobyname 函数 。getprotobyname 国 数 类 似 于 getprotoent 国 数 ,也 是 从 /etc/protocols 文 
件 中 获取 项 。 不 同 的 是 ，getprotobyname 国 数 以 协议 名 作为 参数 ， 返 回 其 名 称 、 别 名 以 及 协议 号 。 


格式 


getpProtobyname (NAME ) ; 


示例 20.2 
nesccnpty 
(Sname， 8$aliases，S$SProto ) = getProtobyname ('tcP') : 
Print "name=S$nameNtaliases=$aliasesNtS$Sprotocol number=S$SPprotoxNn" 


人 SSiERE 
Dame=tcPp aliases=ITCP RBFEoOoEocolnnmoeE=6 


解释 
从 /etc/protocols 文件 中 检索 协议 名 称 、 别 名 和 协议 号 。 将 协议 名 TCP 作为 NAME 参数 传递 给 


< 


getprotobynumber 函数 。getprotobynumber 国 数 类 似 于 getprotoent 国 数 ,也 是 从 /etc/protocols 
文件 中 获取 项 。 不 同 的 是 ,getprotobyname 国 数 以 协议 号 作为 参数 , 返回 其 名 称 、 别 名 以 及 协议 号 。 


格式 


getprotobynumbez (NUMBER) : 


示例 20.3 
neSErnety 
(Sname， 8$aliases，S$SpProto) = getProtobynumber (0) ; 
Przint "name=S$SnameXtaliases=5$aliases\XtSpzotoccol numbpez=SpzcotoXxn"7 


we 
站 刺 e= 工 己 azases= 工 忆 Potocol numnper=0 


解释 
getprotobynumber 国 数 以 协议 号 作为 参数 ， 从 /etc/protocols 文件 中 检索 协议 名 称 、 别 名 和 协议 号 。 


20.4.5 Perl 的 服务 器 函数 
下 面 的 函数 负责 在 网 络 服务 文件 /etc/services 中 查询 信息 。 
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getservent 函数 。getservent 国 数 能 从 /etc/services 文件 中 读 取 一 行内 容 。 如 果 STAYOPEN 值 
不 是 零 ， 则 在 每 次 调用 之 后 都 不 关闭 文件 /etc/services。 


格式 


GetsezvVent: 
SetserVent (STAYOPEN) 
enadqserVvent 7 


示例 20.4 


人 Eee 

由 Setservent (1 ) :; 

及 ($name，8$aliases，S$Sport，S$SpProto) = getservent: 

Saioii 

"Name=S$nameAxnAliases=$aliasesNXnPort=$portANnProtocol=S$SprotocolNn" 
Doogeammconmmussmmece 本 


4 (Sname S$aliases，，S$port，S$Sproto) = getserVent， 
# Retrieres the Dnext entry ID /etc/services 

辐 ia 
"Name=S$nameNnRAliases=$aliasesNXnPort=S$portAnProtocol=S$SprotocolNn" 
6 enaservent7 
key 
司 Name= 上 CPPmux 

aJIases= 

Port= 了 

PFrotocoJl=tcP 
三 Name=echo 

aJ1Iases= 

Port=7 

ProtocoJI=tcPp 

解释 

1. setservent 国 数 确 保 在 STAYOPEN 标记 非 零 时 保持 /etc/services 文件 为 打开 状态 。 
2. getservent 函数 返回 服务 号 、 关 联 到 服务 的 别名 、 端 口号 和 网 络 协议 。 
3. 打印 检索 得 到 的 值 。 
4. 第 二 次 调用 getservent 国 数 ， 从 /etc/services 文件 检索 下 一 行内 容 。 
5. 打印 检索 得 到 的 值 。 
6. endservent 国 数 关闭 网 络 文件 。 


getservbyname 函数 。getservbyname 国 数 负责 把 服务 端口 名 转译 成 相应 的 端口 号 。 





格式 


getservbyname (NAME， PROTOCOL) : 


示例 20.5 

($name,S$aliases,$Sport,S$pProtocol)=getservbyname ('telnet' ，'tcPp') : 
解释 

服务 名 是 telnet， 协 议 为 tcp, 返回 服务 名 、 别 名 、 端 日 号 和 协议 。 
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getservbyport 函数 。getservbyport 国 数 也 能 从 /etc/services 文件 中 检索 信息 。 


格式 


gesemwxswaoomieORIEEROOSSI RE 


示例 20.6 
ES 
#1V/bin/Pez1l 
ozalioiagl WoiETSNS EUEioieosaonEinlesse 
Chomp ($PEORT=<>) ; 


SEE 
chomp ($SPROTOCOL=<>) ; 


(S$name，S$aliases，S$SPort，S$pProto ) = getservbyPorzt( 
SPORT ，S$SPROTOCOL ) ; 
ENSO 证 全 熙 We DE 
name=Sname 
aliases=$aliases 
Port number=S$Sport 
ES 


eurewuey) 
风 太 二 记忆 OF 2 
IST 
了 me 本 5 人 Se 区 DPC 下 玉 DES 站 二 es 
Darme= 七 aa 天 
azases=taJK 
Dort mumnpbper=5J7 
Prototype=uQPp 


解释 
将 通用 端口 号 517 和 协议 名 称 udp 传递 给 getservbyport 国 数 ， 返 回 服务 名 、 别 名 、 端 口号 和 
协议 名 。 





20.4.6_ Perl 的 主机 信息 函数 


这 些 国 数 负责 从 /etc/hosts 文件 中 检索 信息 。 它 们 都 是 根据 UNIX man 页 第 3 部 分 中 相应 的 系 
统 库 例 程 而 命名 的 。 

gethostent 函数 。 gethostent 国 数 能 返回 一 个 由 /etc/hosts 文件 下 一 行内 容 所 构成 的 列表 。 其 
中 的 项 目 包 括 主 机 的 正式 名 称 、 主 机 地 址 的 字 节 长 度 以 及 按 字 节 顺序 排列 的 网 络 地 址 列表 。 


格式 


gethostent7 
Sethostent (STAYOPEN) ， 
enadheostent: 


示例 20.7 
Erasonal 
#!1V/bin/pPer1 
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开 while ( ($name， $aliases，S$addrtypPe，$Length，Gaddrs) = 
gethostent ){ 


到 (Sa 

3 DFIint mrhe nanme of the host 1S Snanme-Nn7 

4 ETOCaNSOSEESCOESSS 位 SEE 负 天 SEESCNDE 
} 

(GEGUE) 

全 


4 帮 忆 世 二 直上 和 SS 人 区 WO 
The Dame of the Post 1 工 5 Joay. 
eswGSEEEESRESS (人 本 


解释 
1. gethostent 国 数 从 /etc/hosts 文件 中 检索 下 一 行内 容 。 
2. 将 gethostent 国 数 返 回 的 原始 地 址 解压 为 4 个 字 节 《〈C4)， 以 便 把 它们 打印 出 来 。 
3. 打印 主机 名 jody。 
4. 打印 本 地 主机 的 卫 地址 。 


gethostbyaddr 函数 。gethostbyaddr 国 数 会 将 一 个 网 络 地 址 转译 为 相应 的 主机 名 。 它 以 一 个 原 
始 地址 作为 参数 ， 从 /etc/hosts 文件 中 检索 相应 的 主机 。 其 结果 包括 主机 计算 机 的 正式 名 称 、 主 机 
别名 或 替换 名 的 列表 、 返 回 地 址 的 类 型 、 以 字 节 为 单位 的 地 址 长 度 ， 以 及 按 字 节 顺序 排列 的 命名 主 
机 网 络 地 址 列表 。 


格式 


SeneskEoyaadgrL DRRSSRREDEOMATENRNUMEBRRIUE 


示例 20.8 
ES 
#1V/Pbin/VPez1l 

疙 $address=Pack ("C4"，127,0,0,1) 

匀 ($name，8$aliases， $addrtyPe，$Length，Qaddrs) = gethostbyaddz 
($address,2) ; 

局 ($a，S$Sb，S$Sc，$d) = unpPack ( 'C4'，S$addrs[0]) : 

4 Print "Hostname Is 5$name anad the Internet adadress Is 
写本 本 全 本 本 


AN 


Ourewey 
CORESGEUS 着 


解释 
1. Internet 地 址 是 127.0.0.1。 将 它 压缩 为 4 个 字 节 ， 并 用 于 gethostbyaddr 国 数 中 。 
2. 将 原始 地 址 和 AF_INET (位 于 masrinclude/sys/socket.h 中 ) 的 值 传 递 给 gethostbyaddr 国 数 。 
3. 将 原始 地 址 解压 为 4 个 字 节 的 形式 。 
4. 打印 主机 号 和 Internet 地 址 。 





gethostbyname 函数 。gethostbyname 国 数 能 从 /etc/hosts 文件 中 返回 一 项 内 容 , 它 以 具体 的 主 
机 名 作为 参数 。 甚 结果 包括 主机 计算 机 的 正式 名 称 、 主 机 别名 或 替换 名 的 列表 、 返 回 地 址 的 类 型 、 
以 字 节 为 单位 的 地 址 长 度 ， 以 及 按 字 节 顺 序 排列 的 命名 主机 网 络 地 址 列表 。 
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格式 


gethostbyname (NAME) : 


示例 20.9 


($name，8$aliases，S$addtrtypPe，$Length ， 
eaddrs)=gethostbyname ("dolLPhin" ) : 


解释 
(参见 上 面 的 gethostent 国 数 说 明 。) 


20.5 套 接 字 


套 接 字 最 初 是 由 加 利 福 尼 亚 大 学 伯克利 分 校 (University of California Berkley ) 于 1982 年 开发 
的 ， 其 目标 是 支持 网 络 上 的 进程 间 通 信 。 在 进行 进程 间 通 信 时 ， 通 过 套 接 字 用 到 了 客户 端 /服务器 
模型 。 并 不 是 任何 操作 系统 都 能 支持 套 接 字 。 如 果 读 者 所 在 系统 不 支持 ， 则 本 节 给 出 的 套 接 字 示 例 
将 无 法 运行 。 

套 接 字 是 一 种 代表 了 两 个 通信 进程 端点 〈 即 服务 器 和 客户 端 ) 之 间 的 软件 抽象 ， 也 就 是 说 ， 套 
接 字 使 得 进程 之 间 能 够 实现 对 话 。 进 行 通信 的 进程 可 以 位 于 同一 台 计 算 机 上 ,也 可 在 不 同 计算 机 上 。 
服务 器 进程 会 创建 一 个 套 接 字 ， 客 户 端 通过 其 名 称 获 知 这 个 套 接 字 。 为 了 确保 网 络 上 数据 的 来 源 地 
址 和 发 送 地 址 套 接 字 用 到 了 卫 和 端口 地 址 。 使 用 套 接 字 的 程序 会 打开 套 接 字 【类似 于 打开 文件 )， 
一 且 套 接 字 顺利 打开 ， 便 可 进行 IO 操作 ， 并 读 写 信息 到 通信 的 进程 。 当 打开 文件 时 ， 会 返回 一 个 
文件 描述 符 。 而 在 打开 套 接 字 时 , 则 会 将 套 接 字 的 一 个 描述 符 返 回 给 服务 器 , 另 一 个 返回 给 客户 端 。 
套 接 字 接口 要 比 使 用 文件 更 为 复杂 ， 因 为 通信 过 程 往 往 是 跨 网 络 的 。 

远程 登录 和 文件 传输 程序 是 较为 常见 的 使 用 套 接 字 实现 跨 网 络 通信 的 实用 程序 。 


20.5.1 套 接 字 的 类 型 


每 个 套 接 字 都 拥有 通信 路 径 的 类 型 ， 用 于 标识 如 何 通过 该 套 接 字 传输 数据 。 两 种 最 为 常见 的 套 
接 字 类 型 是 SOCK_STREAM 和 SOCK_DGRAM， 二 者 分 别 使 用 了 TCP 和 UDP 协议 。 

还 有 一 些 不 常用 的 套 接 字 类 型 ,例如 SOCK_SEQPACKET 和 SOCK_ RAW, 在 这 里 将 不 了 予 讨 论 
它们 。 

流 套 接 字 〈stream sockets)。 流 套 接 字 SOCK_STREAM 类 型 提供 了 可 靠 的 、 面 向 连接 的 、 
序列 化 的 双向 服务 。 它 提供 了 错误 探测 和 流 控 制 机 制 ， 并 消除 了 重复 的 数据 分 段 。 甚 底层 协议 是 
TCP 。 

数据 报 套 接 字 (datagram sockets)。 数据 报 套 接 字 SOCK_DGRAM 类 型 提供 了 无 连接 的 服务 。 
它 会 以 任何 顺序 接收 发 送 的 包 ， 或 者 另 一 端 根本 收 不 到 包 。 它 不 保证 传递 成 功 ， 并 且 包 也 可 能 出 现 
重复 。 其 底层 协议 是 UDP。 
































20.5.2 套 接 字 域 


在 打开 套 接 字 时 ， 会 触发 一 些 系统 调用 ， 它 们 描述 了 如 何 使 用 该 套 接 字 。 进 程 必须 规定 通信 的 
域 Cdomain)， 又 称 作 地 址 族 (address family)， 它 负责 标识 套 接 字 命 名 的 方式 ， 并 决定 为 发 送 和 接 
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收 数据 需要 使 用 哪 一 种 协议 和 地 址 。 套 接 字 域 负责 标识 服务 器 和 客户 端的 位 置 : 是 在 同一 台 计 算 机 
上 ， 在 Internet 上 ， 还 是 在 Xerox 网 络 上 。 

UNIX 域 和 Internet 域 是 两 种 标准 域 。 在 使 用 套 接 字 进行 进程 间 通 信 时 ,UNIX 域 负责 同一 台 计 
算 机 上 的 进程 通信 ， 而 Internet 域 则 用 于 使 用 TCP/P 协议 的 远程 计算 机 上 的 进程 通信 〈AF_NS 域 
则 用 于 处 理 Xerox 网 络 )。 

UNIX 域 和 AF_UNIX 地 址 族 。 如 果 是 本 地 计算 机 上 的 两 个 进程 间 进 行 通 信 , 其 地 址 族 CAF) 
就 是 AF_UNIX。UNIX 域 既 支持 SOCK STREAM 套 接 字 类 型 ， 也 支持 SOCK _ DGRAM 套 接 字 
类 型 。UNIX 域 上 的 SOCK_STREAM 类 型 提供 了 进程 间 的 双向 通信 能 力 ， 类 似 于 实用 程序 pipe。 
SOCK_STREAM 在 进程 间 提 供 了 可 靠 的 字 节 流传 输 。 数 据 报 套 接 字 则 是 不 可 靠 的 ,因此 不 常用 。 此 
外 ， 该 套 接 字 的 行为 就 像 是 信息 队列 或 电报 一 样 。 

UNIX 域 中 的 套 接 字 具有 UNIX 文件 系统 内 的 路 径 名 。1s -1 命令 列 出 了 第 一 个 字母 为 s 的 套 接 字 
文件 〈 详 见 示例 20.10)。 在 系统 文件 /usrinclude/sys/socket.h 中 , 将 AF_ UNIX 地 址 族 赋 值 为 常量 1。 


ED 


$ 1s -1LFR greetings 
S 工 WW 居 WXIWX 了 el 了 ie 作用 条 四 放 起 兄 9Freetin9s= 











Internet 域 和 AF_INET 地 址 族 。Internet 套 接 字 标识 为 AF_INET, 用 于 在 不 同 计算 机 上 的 进程 
之 间 进 行 通信 。Internet 域 也 支持 套 接 字 类 型 SOCK _ STREAM 和 SOCK DGRAM。 

Internet 套 接 字 由 负责 标识 Internet 主机 的 了 P 地 址 和 负责 标识 主机 上 端口 的 端口 号 定义 。 

SOCK_STREAM 使 用 的 底层 协议 为 TCP。SOCK_DGRAM 使 用 的 底层 协议 则 是 UDP。 在 系统 
文件 /usrinclude/sys/socket.h 中 ， 将 AF_INET 地 址 族 定义 为 常量 2 。 

套 接 字 地 址 。 在 创建 好 套 接 字 后 ， 需 要 提供 一 个 地 址 ， 以 便 通 过 该 地 址 将 数据 发 送 给 它 。 在 
AF_UNIX 域 中 ， 这 个 地 址 就 是 一 个 文件 名 ; 而 在 AF_INET 域 中 ， 则 是 卫 地 址 和 端口 号 。 











20.5.3 创建 套 接 字 


国 数 socket 会 创建 套 接 字 ， 并 返回 一 个 指向 该 套 接 字 的 文件 句柄 。 在 服务 器 中 ， 这 个 套 接 字 又 
称 作 集 结 套 接 字 (rendezvous socket ) 。 








格式 


辣 略 本 和 间 NOOOOD 和 了 


ET 


SAE UNIX=1: 
SSOCK_ STREAM=17 
SPROTOCOL=0: 


socket (COMM SOCKET， SRAE UNIX，SSOCK STREAM， SPROTOCOL) 
在 本 示例 中 ，socket 国 数 创 建 了 文件 句柄 COMM _SOCKET。 其 域 或 地 址 族 是 UNIX， 套 接 字 
类 型 是 STREAM 型 ， 协 议 号 则 赋值 为 0， 以 便 允 许 系 统 为 该 套 接 字 选择 正确 的 协议 。 
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20.5.4 绑 定 地 址 和 套 接 字 名 
bind 函数 。bind 国 数 负 责 将 地 址 或 名 称 附着 到 SOCKBT 文件 句柄 (参阅 本 章 末尾 的 示例 程序 。) 


格式 
bind(SOCKET FILEHANDLIE，NRAME) ; 
示例 20.12 


1 bina(COMM SOCKET，"/home/jedqay/yellie/pezlL/Vtsecv) : 
2onmaeoMMESOCKRETURLS SOC GESaQesS 


解释 
1. 当 使 用 UNIX 域 时 ， 套 接 字 文件 句柄 COMM_SOCKET 将 和 UNIX 路 径 名 绑 定 。 
2. 当 使 用 Internet 域 时 , 套 接 字 文 件 句柄 COMM_SOCKET 将 绑 定 到 该 套 接 字 类 型 所 含 地 址 上 。 


20.5.5 创建 套 接 字 队列 


listen 函数 。1listen 国 数 负 责 在 套 接 字 上 等 竺 accept， 并 规定 拒绝 进一步 请 求 之 前 所 允许 
的 排队 连接 总 数 。 设 想 在 电话 上 已 有 5 个 呼叫 者 正在 排队 等 候 呼 叫 2。 如 果 客 户 端 请 求 数目 超 
出 了 队列 容量 ， 则 返回 错误 信息 。 如 果 调 用 成 功 , 则 返回 真 ， 否 则 返回 假 。 其 错误 代码 将 保存 
为 $1!。 











格式 
1isten (人 OOERRT 有 下 有 AN 间 下 下 轧 轴 相册 机 三 STR 攻 
示例 20.13 
Sten(SERVERSDCRRT 2 
解释 
队列 中 等 待 的 最 大 连接 数 设置 为 5S。listen 国 数 会 对 到 来 的 accept 函数 请 求 进 行 排队 。 


20.5.6 等 待 客户 端 请 求 


accept 函数 。 服 务 器 进程 中 的 accept 函数 会 等 待 客 户 端 请 求 的 到 达 。 如 果 队 列 中 有 请 求 , 则 在 
建立 连接 时 从 队列 内 删除 第 一 个 请 求 。 然 后 ，accept 国 数 会 使 用 与 原来 的 套 接 字 或 一 般 套 接 字 《又 
称 作 集 结 套 接 字 ) 相同 的 属性 打开 新 的 套 接 字 文 件 句柄 ， 并 将 它 附 加 给 客户 端的 套 接 字 。 新 的 套 接 
字 可 以 与 客户 端 套 接 字 通信 。 这 时 便 可 使 用 一 般 套 接 字 来 接受 附加 的 连接 了 。 如 果 调 用 成 功 ,accept 
国 数 会 返回 真 ， 否 则 就 返回 假 。 甚 错误 信息 将 保存 为 $!。 


AN 











格式 


aceeewlNENWSOCKRTAUEERNEBRTIGCSOCRKRETI) 有 





忽 Wall 直 ., and Schwartz,，R. 工 .，Progra1a1l11g Per 2nd ed.,，O ”Reilly & Associates: Sebastopol, CA，1998， 
p.158. 


670 第 20 章 





示例 20.14 
aceeoaNENWSOCRSRERENEDESESOETS 克 
解释 
服务 器 进程 使 用 accept 函数 接收 来 自 客 户 端的 请 求 。 它 会 取 队 列 中 等 待 的 第 一 个 请 求 , 并 创建 
新 的 套 接 字 文 件 句柄 NEWSOCK， 其 用 到 的 属性 和 RENDEZ_SOCK 文件 句柄 相同 ， 后 者 又 称 作 一 
般 套 接 字 或 集结 套 接 字 。 


20.5.7 ”建立 套 接 字 连 接 


connect 函数 。connect 国 数 用 到 了 和 套 接 字 文 件 句 柄 和 要 连接 到 的 服务 器 地 址 。 在 服务 器 
上 ， 它 负责 配合 accept 函数 生成 一 个 集结 (rendezvous )。 在 建立 连接 之 后 ， 便 可 传输 数据 了 。 
如 果 使 用 的 是 UNIX 域 ， 则 提供 UNIX 文件 路 径 名 。 如 果 使 用 的 是 Internet 域 ， 其 地 址 则 是 对 
该 服务 器 类 型 正确 的 网 络 地 址 。 如 果 调 用 成 功 ， 该 国 数 返 回 真 ， 否 则 就 返回 假 。 其 错误 信息 将 
保存 在 $! 中 。 


AN 

















格式 
ConmTeect(SsOCKET ADDRESS) 7 
示例 20.15 


EGRENTEES9SKRTRANOEYXSTOEYS OCS 
2 coconnecetCIIENLESOCKRREALSEackeaEaaoozsss 元 


解释 

1. 在 UNIX 域 中 ， 将 一 个 UNIX 路 径 名 附加 到 文件 句柄 CLIENTSOCKET 上 。 

2. 在 Internet 域 中 ， 将 压缩 后 的 网 络 地 址 附加 到 文件 句柄 CLIENTSOCKET 上 。 访 地址 是 由 
gethostbyname 国 数 得 到 的 ， 并 经 过 Perl 的 pack 函数 予以 压缩 。 例 如 : 
S$Shostname="houstonn ; 

Sport=9876; 
SAE INET=2; 
SSOCK _ STREAM=17 


(Sname，，S$Saliases，S$Stype，S$len，S$address)=gethostbyname(S$hostname) : 
5EackeaEaaoresss=pacl(S na4 xzSnSANITINETALSEoCUEALSaGOOeSSs ) 


20.5.8 关闭 套 接 字 


shutdown 函数 。shutdown 国 数 按 规定 关闭 套 接 字 连 接 。 如 果 参 数 HOW 值 为 0， 则 在 套 接 字 
上 进一步 的 receives 请 求 将 遭 拒绝 。 如 果 参 数 HOW 值 为 1， 则 套 接 字 上 的 进一步 sends 请 求 将 遭 
拒绝 。 如 果 参 数 HOW 值 为 2， 则 所 有 的 sends 和 receives 都 将 停止 。 

















格式 
EeewniSOEENT 可 抱 人) 玉 
示例 20.16 
SEOSWIUEOMM 本 SO 人 2 
解释 
套 接 字 文件 句柄 COMM_SOCK 禁止 了 进一步 的 sends 和 receives， 从 而 将 它们 关闭 。 
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图 20-1 展示 了 一 个 有 关 套 接 字 的 示例 。 





服务 器 函数 





图 20-1 面向 连接 的 服务 器 和 客户 端 套 接 字 


20.6 客户 端 / 服 务 器 程序 





这 里 展示 的 示例 程序 已 经 在 运行 Sun0gS 4.1.13 和 Sun0gS 5.3 的 Sun 工作 站 上 测试 通过 。 这 些 
程序 是 UNIX 域 和 Internet 域 的 流 套 接 字 示例 。 虽 然 它 们 都 支持 数据 报 CUDP ), 但 后 者 是 不 可 靠 
的 ， 并 且 不 保证 数据 包 能 成 功 传递 。rwho 和 ruptime 这 样 的 程序 一 般 都 用 在 Internet 域 中 ， 而 很 
少 用 在 UNIX 域 。 


20.6.1 同一 台 计 算 机 上 面向 连接 的 套 接 字 


下 面 的 脚本 是 一 个 简单 的 对 通信 端点 使 用 流 套 接 字 的 客户 端 /服务 器 模式 示例 。 客 户 端 和 服务 
器 都 位 于 同一 台 计 算 机 上 ， 客 户 端 从 服务 器 读 取 并 接收 消息 ， 将 消息 打印 到 屏幕 上 。 示 例 中 的 错误 
检查 和 信号 处 理 代 码 都 较 少 。 这 些 示 例 只 是 展示 如 何 使 用 上 面 介 绍 的 套 接 字 国 数 。( 有 关 本 章 未 包 
售 的 套 接 字 函数 ， 请 参阅 附录 A 中 的 表 A.1.。) 

服务 器 程序 


示例 20.17 


(The Script) 
#1/bin/Pez1l 



































# 7Tpe server ana the client are on the same machine. 
RN 


站 SRAE_UNIX=1: # EeemaD5 SARROUONEX 

色 $SOCK_STRERAM=1; 上 # The type II SOCK STRBAM 

也 SPROTOCOL=0 ; 上 有 下 下 与 丰 O 写 0 0 居 了 本 2 记忆 证 已 帮 E 
ie 
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4 Sockett (SERVERSOCKET ， SRAE_UNIX， $SOCK_STRERAM ， SPROTOCOL) 1 1 
geaESccSs SN 
RN 
号 S$name=" ./greetings": # The name of the Socket Is associated 
乾 wzthin tphe 五 1e System 
DIENIESAOEEEETTOSO IE STRRLSameRESAIRNL 
6 bind(SERVERSOCKET ，S$Sname) || qie "Binad S$SINn"7 
站 
及 1Listen(SERVERSOCKET，5) || Qie "Listen SINn"; 
TY 
while(1)1{ 
8 accepPt (NEWSOCKET ， SERVERSOCKET ) || aie "RARccept S$INn"7 
# accept cient connection 
9 SPid=fork || die "ERork: $INn"， 
OECDmGE 三 三 0 于 
| PLint (NEWSOCKET "Greetings from Your serVvezI1INn" ; 
了 Close (NEWSOCKET ) ; 
En 
) 
elseil 
省 号 Glose (NENWSOCKET) 
} 
解释 
1. 将 域 设置 成 UNIX。 客 户 端 和 服务 器 位 于 同一 台 机 器 上 。 
2. 套 接 字 的 类 型 是 SOCK_STREAM， 表 示 面 向 连接 的 字 节 六 类 型 的 通信 。 
3. protocol 设置 为 0。 如 果 该 值 为 0， 则 表示 由 系统 负责 处 理 。 
4. 调用 socket 国 数 。 在 服务 器 上 创建 文件 句柄 SERVERSOCKET。 
3. 文件 greetings 是 套 接 字 SERVERSOCKET 关联 到 的 文件 系统 中 的 名 称 ， 是 需要 附加 给 套 接 


“TSGN 


Co 


多 
10 


| 公 


由 3 





字 文 件 名 柄 的 真实 名 称 。 如 果 该 文件 已 经 存在 ， 则 使 用 unlink 畏 数 删 除 它 。 


. 套 接 字 文 件 句柄 与 UNIX 文件 greetings 绑 定 在 一 起 。 
.listern 国 数 允 许 进程 规定 能 从 客户 端 接收 多 少 个 等 待 的 连接 。 将 这 些 请 求 进行 排队 ， 其 最 大 


排队 数 为 5。 


.accept 图 数 等 待 客 户 端 请 求 并 创建 新 的 套 接 字 文 件 句柄 NEWSOCKET, 它 与 原先 的 SERVERSOCKET 





文件 句柄 (又 称 作 集结 套 接 字 ) 拥有 相同 的 属性 。NEWSOCKET 是 实际 负责 与 客户 端 通信 的 套 接 字 。 
集结 套 接 字 仍 保持 可 用 ， 以 便 接 受 后 来 的 连接 。 

使 用 fork 国 数 创建 子 进程 。 这 时 ， 父 进程 和 子 进程 都 在 运行 。 

. 如 果 返 回 的 pid 是 0， 说 明子 进程 正在 执行 中 。 如 果 pid 非 零 ， 说 明 父 进程 正在 执行 中 。 

. 如 果子 进程 正在 执行 中 《〈 即 返回 的 pid 为 0)， 将 欢迎 消息 写 人 到 套 接 字 NEWSOCKET 中 。 
服务 器 与 客户 端 进行 通信 。 

. 子 进程 关闭 NEWSOCKET 文件 句柄 并 退出 子 进程 。 

父 进程 关闭 NEWSOCKET 文件 句柄 ， 以 便 接 受 其 他 客户 端 请 求 。 
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客户 端 程序 


示例 20.18 


ES 


LD 


人 


~ 


要 SEE 
和 


SRE_UNIX=1; 
$SOCK_STRERM=1; 


SPROTOCOL=0 : 
Socket(CLIENTSOCKET ， SRAE_UNIX， $SOCK_ STRERAM ， SPROTOCOL ) : 
Sname=" ./greetings": 
Qoif 
# CIJIient conpnnects mwIthp serer 
Sresult = connect(CLIENTSOCKET ，"S$Sname" ) : 
if (Sresult != 1 ){ 
Sleep (1); 
1 
DaWIEIOSESSTNTSIE 司 ) 下 OR OO 本 EEC CE 
read (CLIENTSOCKET ，S$Sbuf，500) : 
EntESEDOUDLSOUENNC 


close (CLIENTSOCKET) ; 
OO 


. 这 里 的 域 是 AF_UNIX。 客 户 端 和 服务 器 位 于 同一 台 计 算 机 上 。 赋 了 予 标量 的 值 就 是 系统 文件 


/usVinclude/sys/socket.h 中 赋 给 AF_UNIX 安 的 值 。socket 国 数 以 这 些 值 作 为 参数 创建 套 接 字 。 


. 套 接 字 的 类 型 是 SOCK_STREAM， 是 客户 端 和 服务 器 之 间 一 种 有 序 、 可 靠 、 双 向 的 通信 方 


式 。 赋 予 标 量 的 值 就 是 系统 文件 /usrinclude/sys/socket.h 中 赋 给 AF_ UNIX 安 的 值 。socket 
国 数 以 这 些 值 作为 参数 创建 套 接 字 。 


. 协议 值 由 包含 在 所 创建 套 接 字 中 的 系统 调用 负责 处 理 ， 它 决定 了 如 何在 底层 实现 套 接 宇 。 如 


采 把 协议 值 指定 为 0，socket 国 数 就 会 认为 它 是 “正确 的 协议 ”， 即 无 需 关 心 其 协议 细 闻 。 


. SoOcket 国 数 创建 文件 句柄 CLIENTSOCKET。 
. 把 套 接 字 文 件 句柄 CLIENTSOCKET 关联 到 UNIX 文件 greetings 。 
. connect 函数 会 把 CLIENTSOCKET 文件 句柄 连接 到 UNIX 文件 greetings 上 ，, 使 得 客户 端 能 


够 与 服务 器 进行 通信 。 如 有 果 调 用 成 功 ， 该 国 数 会 返回 真 ， 否 则 就 返回 假 。 


. 程序 不 断 循 环 执行 ， 直 到 成 功 建立 连接 为 止 。 


8. 在 建立 连接 后 ， 客 户 端 从 服务 器 套 接 字 读 取 500 个 字 节 ， 并 存储 到 标量 $buf 中 。 
9. 将 $buf 的 内 容 打 印 到 STDOUT。 


10. 


关闭 CLIENTSOCKET 文件 句柄 。 如 果 需 要 进行 更 多 的 控制 , 可 使 用 shutdown 函数 。 其 结 
有 果 如 图 20-2 所 示 。 








014 第 20 章 





S$ client 

Hi Im he Client， 
Greektings from Your 
SexVver!! 


$ SerVer ， 
Server Start S$ client 
Socket OK Hi Im the client.， 


bina OK Greektings from Your 
1isten OK SerVver! ! 








加 








20-2 ”输出 内 容 


20.6.2 ”远程 计算 机 (lnternet 客户 端 和 服务 器 ) 上 面向 连接 的 套 接 字 


下 面 的 程序 执行 在 两 个 Sun 工作 站 上 。 其 中 ,服务 器 的 主机 名 是 scarecrow, 运行 了 SunOS 5.3 
客户 端的 主机 名 则 是 houston， 运 行 SunOS 4.1.3。 在 这 个 程序 中 , 一 台 计 算 机 上 的 客户 端 会 向 另 一 
台 计 算 机 上 的 服务 器 请 求 当 前 时 间 。 然 后 服务 器 把 时 间 发 送 到 客户 端的 套 接 字 ， 并 由 客户 端 以 可 读 
的 格式 将 它 打 印 到 屏幕 上 。 这 些 示 例 都 没有 用 到 Perl 5 标准 库 中 的 Socket.pm 模块 。 其 中 所 有 的 值 
都 是 硬 编码 的 ， 因 此 无 法 从 一 台 计 算 机 移植 到 另 一 台 计 算 机 《〈 详 见 20.7 节 )。 


示例 20.19 


本 

[LESSREVeT 二 过 交 E 是 SSE 六 人 大 到 OO 到 二 三 

pens aa RenaezVvous SocKket cm PorLt 9876 

万世 晴 凡 直 二 OO 

pen each client connects， this server Qetermines the machine 
tIme on Its host anaQa writes the vaJue on the comrmnanzcation 
SOCKket to the cJient. 



































ss9eeaeanmeseee 人 Do 呈 EIDD5SE1) 








SS 

se warnings7; 

(Sport)=GARGV: 

SPort=9876 unless $SPort: 

SRAE_INET=2 ; 

SSOCK_STRERM = 1; 

Seeielelis 三 国 避 35 硬性 站 是 汪 六 

(SnameyS$aliasesrS$Sproto)=getprotobyname ('"tcp')， 

SEESS 的 王 | 
(Sname，S$aliases，S$Sport)=getservbyport ($SPort，'tcpPpI'):; 


COEJRCNOCENSSOOIROOH 


】 
OP 
9  $Sthis = Pack($Ssockaddr ，S$SRAER_INET，S$SpPort，"NMXONXONXONA0") : 
大 SeuieciECOMMESOBO TS 三 汪 下 2 三 全 直 全 二 忆 旺 ( 全 下 世人 U 玉 
CeaEER 古 OCR ES EC 
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1 socket (R_SOCKET，$SREF INET，S$SSOCK_STRERM，S$Sproto ) 11 
die "socket: SINn" 
让 本 三品 证 R 本 OCT 
2Ebnaqa(RESOCKETRESEDs) Eden bandacSWNa 
3 1Listen(R_SOCKET，5) 11 die "connect: S$IN\n"; 
# ITPzite Joop = Wai until cJIient connects， 
# 上 then serve the cient 
while(1L)1{ 
4 accePt (COMM SOCK，R_ SOCKET) 11 aie SN 
5 Snow = 七 Ime， 
6 Pint COMM_ SOCK Snow: 
】 
解释 


1. 以 命令 行 参数 的 形式 传递 主机 名 《〈 见 第 7 行 )。 

2. 如 果 ARGYV 数组 为 空 数 组 ,， 则 为 标量 $port 赋值 9876。 该 端口 号 是 由 程序 员 指 定 的 , 是 一 
个 预 留 端口 号 范围 之 外 的 数字 。 在 Sun 系统 中 ,端口 号 1024 是 保留 的 。 而 端口 号 9876 又 称 
作 是 短暂 端口 ephemeral port ) 。 

3. 将 标量 $AEF _INET 赋值 为 2, 即 系统 文件 /usrinclude/sys/socket.h 中 赋 给 AEF_INET 宏 的 值 。 

该 数字 代表 Internet 域 ， 即 AE INET。 

. 套 接 字 类 型 是 SOCK _ STREAM， 它 在 系统 文件 /usrinclude/sys/socket.h 的 对 应 值 为 1。 

.pack 函数 对 套 接 字 地 址 使 用 这 种 格式 。 

. getprotobyname 国 数 以 tcp 协议 作为 名 称 返 回 正 式 的 协议 名 、 别 名 和 协议 号 。 

. 如 果 没 有 给 标量 $port 赋 数 字 值 ， 而 是 从 命令 行 传人 主机 名 的 话 ， 可 使 用 getservbyport 函数 

通过 tcp 协议 返回 正确 的 服务 器 端口 号 。 

. 打印 端口 号 。 

9. 将 Pnternet 域 的 地 址 和 端口 号 压缩 成 一 个 二 进 制 结构 ， 该 结构 由 无 符号 的 短 整 数值 构成 ， 按 
照 “network” 顺 序 予 以 排列 ,包括 4 个 ASCIH 字符 和 8 个 空 值 字 节 。 在 与 之 对 比 的 C 程序 
中 ， 注 意 到 它 获取 地 址 的 方法 是 使 用 sockaddr 〈 见 第 5 行 ) 结构 〈 详 见 msrinclude/sys/socketh )。 
Perl 负责 处 理 大 部 分 的 工作 。 

10. 选择 Socket 文件 句柄 作为 当前 默认 的 输出 句柄 。 如 果 $! 特殊 变量 设置 为 1， 则 强制 对 每 个 

wiite 和 print 清除 缓冲 区 。 当 把 输出 内 容 发 送 到 终端 时 ,stdout 文件 句柄 是 按 行 缓 冲 的 , 其 
他 则 是 按 块 缓冲 的 。 当 输出 到 管道 或 者 套 接 字 时 ， 清 除 缓冲 区 。 

11. socket 国 数 创建 集结 套 接 字 文 件 句 柄 R_SOCKET。 

12. bind 函数 将 套 接 字 文件 句柄 绑 定 到 服务 器 的 正确 地 址 上 。 

13. listen 函数 将 队列 上 限 设 置 为 5S， 即 等 待 客 户 端 请 求 的 最 大 数目 。 

14. accept 国 数 等 待 客户 端 请 求 。 当 拿 到 请 求 时 ， 通 过 创建 新 的 COMM _SOCKET 文件 句柄 来 接 

受 它 。 该 文件 句柄 的 所 有 属性 与 R_SOCKE ET 相同 。COMM _SOCK 是 负责 与 客户 端 通信 的 服 

15. time 国 数 返 回 从 UTC 时 间 1970 年 1 月 1 目 开 始 计算 的 非 半年 秒 数 。 

16. 将 时 间 值 发 送 给 套 接 字 文 件 句 柄 COMM_SOCK。 


示例 20.20 
#1!1Vusr/local/bin/pezr1 


砷 imecIzizent=-=-a CJient FEor the TIme Server PEO9Famyv 
# creates a socket ana connects It to the server on Port 9876. 


~] 人 Wi 小 


Co 
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# Thpe czent then expects the Server to Write the server's 
# Post time onto the Socket. 7The cjJient simpJy aoes 
# 昌 Freaa on Its Socket，5SOCK，，to 9et the servrer's trime. 


# 

提 Se SEE 

# 

全 

(Sthem) = QARGV:; 

Sthem = 'LIocalhost' unless S$Sthem: 

SPort = 9876 :; # timeserver is at this Port Dumper 


避风 呈 二 和 7 

SSOCKSTRNANMEEE 基 

SSOEKaddTEEE LS 症 友 下 广 8 人 

(Sname，$aliases，S$SPproto) = getpProtobyname ('tcP') : 

(S$name,$aliases，S$SpPort，S$pProto)=getservbyname ($PoLt， 'tcP' ) 
疝 | 全 全 本 和 


co ~ 人 WP 哺 


9 (Snamey Saliases， Stype，S$len，Sthataddqr)=gethostbyname (Sthem) ， 
有 大 STEELESOOEESARENE CE 

Make the Socket 五 1ehanaJe 

11 if ( socket(SOCK，SRAE INET，8$SSOCK STRERAM，SProto ) ){ 
SEE 


SEE 本 [OU) 

Ca UP the Server 
ETEC 人 RRESISnSIS 和 下 
1 


else { die $17} 

Set socket to be commana Pufferedaw 

SS 天王 

Now we're connectea to the server，Jet's reaa her host time 
14 Shertime = <SOCK>: 

close ksocR 过 

TSETFVESEETSECNOTEEEEEERSTEETTESNRE 

Qnow = LocalLtime ($heztime) : 

SO 了 作 STTV 可 共 We 














户 
Cn 


二 
刷 


. 服务 器 的 主机 名 可 以 作为 命令 行 参数 予以 传递 。 

. 如 果 ARGY 数组 为 空 数组 ， 则 把 主机 名 设置 为 localhost。 

.为 了 识别 服务 器 进程 ， 客 户 端 需要 知道 服务 器 的 端口 号 。 

. 域 是 Internet 。 

. 套 接 字 类 型 是 SOCK _ STREAM， 它 在 msrinclude/sys/socket.h 的 赋值 为 1。 

.pack 函数 对 套 接 字 地 址 使 用 这 种 格式 。 

.getpirotobyname 国 数 以 tcp 协议 作为 名 称 返 回 正 式 的 协议 名 、 别 名 和 协议 号 。 

. getservbyname 函数 返回 服务 器 的 正式 名 称 、 别 名 、 端 口号 和 协议 名 , 除非 Sport 已 经 含有 指 

. 通过 gethostbyname 国 数 从 主机 获取 原始 地 址 信息 。 

10. 将 Pnternet 域 的 地 址 和 端口 号 压缩 成 一 个 二 进 制 结构 , 该 结构 由 无 符 喜 的 短 整 数值 构成 , 按 
照 “network” 顺 序 予 以 排列 ,包括 4 个 ASCI 字 符 和 8 个 空 值 字 节 。 在 与 之 对 比 的 C 程 
序 中 ， 注 意 到 它 获 取 地 址 的 方法 是 使 用 sockaddr 结构 。 

11. socket 函数 会 创建 一 个 nternet 域 的 、 面 向 连接 的 套 接 字 文 件 句柄 SOCK 。 

12. connect 函数 将 客户 端的 套 接 字 连接 到 服务 器 地 址 上 。 


oo ~ 人 耻 愉 上 wiib 一 


\ 
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13. 选择 SOCK 文件 句柄 ， 打 印 并 在 写 入 完毕 后 清空 缓冲 区 。 
14. Perl 从 SOCK 文件 句柄 中 读 取 内 容 ， 并 检索 服务 器 时 间 。 
15. 将 时 间 转 换 为 本 地 时 间 ， 并 了 予以 打印 。 其 结果 如 图 20-3 所 示 。 


服务 器 客户 端 


$ uname 一 DT $ hostname 


SCarecromw 
$ 七 imesserVeL 
9876 


Pouston 

$ 七 imec1ient 

Fi Im the Per Prog9ram “cJIient 7 

Socket ok。 

Connect ok. 

Server machine time Is: 
987415699 15:28 5V/2707 





2 


多 20-3 ”远程 计算 机 上 面向 对 象 的 套 接 字 

















20.7 Socket.pm 模块 


虽然 套 接 字 本 来 是 Berkley 为 UNIX 系统 开发 的 ， 但 现在 很 多 操作 系统 都 能 支持 它 。Perl 5 引 
入 了 一 个 特殊 的 Socket.pm 模块 来 处 理 套 接 字 ， 使 程序 可 以 很 容易 地 从 一 台 计 算 机 输出 到 另 一 台 计 
算 机 上 。 因 为 机 器 要 求 的 必 备 函数 和 和 常量 都 在 该 模块 中 处 理 ， 因 此 还 可 以 避免 像 上 面 的 示例 那样 把 
值 硬 编码 到 程序 中 。 不 过 ， 读 者 应 当 小 心 : 在 使 用 前 请 务必 理解 套 接 字 的 工作 方式 。 其 常量 名 往往 
很 不 直观 ， 而 且 Perl 5 之 后 的 版 本 还 在 模块 中 引入 了 更 多 的 功能 

下 面 所 示 图 20-4 展示 了 如 何 利用 Socket.pm 和 Perl 5 提供 的 其 他 程序 编写 前 面 介绍 的 TCP/IP 
服务 器 和 客户 端 程序 ， 从 而 让 程序 在 网 络 上 使 用 时 变 得 更 为 安全 。 







































































服务 器 客户 端 
$ PerlL timec1lient 
Port = 29688 
Socket ok. 

Bina ok. 
TIsten ok. 
TD JooPp . 


$ hostname 

PoustoDn 

$ Perl timec1lient 

HI Im In Per Prog9ram “cJient 

Socket ok. 

Conpnect ok. 

SerVver machine time IIS: 
981415699 Time-15:28 
Date-5/A2XZ07 








人 和 ES 


图 20-4 服务 器 /客户 端 和 Socket.pm， 下 面 的 示例 将 讨论 它们 
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服务 器 


ET 


(The Sezcver Script) 
砷 1/Din/APer1lLl = 了 TVW 
zequire 5.6; 
SEESECE 

use Socket: 

Use ERileHanale:” 


TEST 


tImeserVver -= aa Timne SerVver PrFro9ramn， opens a Fenae2z7rous 
Eee 已 放 是 人 SEE 

pen each cJient connects，，this server aQetermines the machine 
LIzme on IL5 Post ana WILLtesS the 7ayae on tpe comnmuanicat2on 
SOcCKet to the CJIIienE， 


Usa9e: timeserver 








6 my(Sthis，S$Snow) : 
my S$Port = shift || 29688: 


8 nEOLSSE SERIESOCEEEAONONONUS 
EN 
吕 my S$Sprototype = getprotobyname ('tcp')， 
10 Socket(SOCKET ，PE_INET，SOCK STRERAM ， SPzototyPe) |1 
人 
SS 


IEDIGUSOCKETSEShoS) IEOE 站 RSNTL TY 
人 


12 1isten(SOCKET，SOMRAXCONN) || die "connect: SINn" 
EN 


13 COMM_ SOCKET->autofilush 
SOCKET=>SUECHUSH7 


1 
# then serve the cJient 
14 while(1)1{ 
ne 


S accePt (COMM_ SOCKET ，SOCKET) || qie SN 
站 

16 Snow = 廿 tmey 

下 了 Pint COMM _ SOCKET Snow: 


有 
1. 当 遇 到 只 使 用 一 次 标识 符 、 在 设置 之 前 使 用 标量 、 以 非 数字 值 作为 编号 等 情况 时 ，-w 开关 
将 发 送 诊断 信息 到 STDERR。-~T 开 关 会 打开 污染 检查 , 以 免 传 人 的 数据 影响 到 程序 内 部 罗 
辑 。 如 果 使 用 了 目录 路 径 ， 则 污染 模式 还 可 检查 其 他 人 是 否 有 权 写 目录 ， 并 检查 传人 程序 的 
参数 。 如 果 被 污染 ， 则 数据 (或 引用 污染 数据 的 任何 变量 ) 将 不 能 用 到 调用 子 shell 的 命令 

中 。 建 议 读者 对 服务 器 程序 和 CGI 脚本 〈 即 其 他 人 会 运行 的 程序 ) 打开 污染 检查 开关 。 
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2. require 以 版 本 号 作为 参数 。 这 样 能 避免 使 用 5.6 之 前 版 本 的 Perl。 

3. strict 编译 指示 确保 程序 不 会 使 用 不 安全 的 结构 。 它 禁止 了 符号 引用 、 裸 字 ， 且 必须 使 用 my 
来 声明 变量 。 

4. 该 程序 使 用 Socket 模块 。 该 模块 的 设计 目标 是 让 套 接 字 变 得 更 加 易于 移植 。 

5. 在 这 里 使 用 FileHandle 模块 ， 以 便 使 用 其 autoflush 方法 。 该 方法 会 强制 在 写 套 接 字 之 后 清 
除 缓冲 区 











6. 这 些 变量 将 在 后 面 的 程序 中 用 到 。 必 须 使 用 my 声明 它们 ， 因 此 strict 强制 要 求 这 一 点 ， 以 
提供 安全 特性 。 

7. 读者 可 以 将 主机 名 作为 命令 行 参数 进行 传递 , 并 转送 到 变量 Sport 中 。 如 果 ARGYVY 数组 为 空 
数组 ， 则 将 标量 $port 赋值 为 9688， 这 是 保留 端口 号 范围 之 外 的 一 个 数字 。 

8.AF_ INET 是 在 Socket 模块 中 定义 的 代表 Internet 域 的 常量 。pack 函数 会 把 服务 器 的 下 地 址 


和 端口 号 压缩 到 $this 中 。 

9. getprotobyname 国 数 以 tcp 协议 作为 名 称 返 回 正式 的 协议 名 、 别 名 和 协议 喜 。 

10. socket 函数 创建 集结 套 接 字 文 件 句柄 SOCKET。 

11. bind 国 数 将 套 接 字 文 件 句 柄 绑 定 到 服务 器 的 正确 地 址 上 。 

12. listen 函数 会 设置 队列 的 SOMAXCONN 限制 ， 即 等 待 客户 端 请 求 的 最 大 数量 〈 一 般 是 5)。 

13. FileHandle 模块 的 autoflush 方法 会 强制 在 写 套 接 字 之 后 清除 缓冲 区 。 

14. 开始 无 穷 循环 。 现 在 ， 服 务 器 会 等 待 客户 端的 请 求 。 

15. accept 国 数 等 待 客户 端 请 求 。 当 得 到 请 求 时 ， 通 过 创建 新 的 COMM_SOCK 文件 句柄 来 接 
受 它 。 该 文件 句柄 的 所 有 属性 与 SOCKET 相同 。 

16. 服务 器 调用 time 国 数 获 得 当前 时 间 ， 并 将 它 赋值 给 $now。 

17. 服务 器 将 时 间 发 送 到 COMM _ SOCK。 客 户 端 在 终端 获得 它 。 


客户 端 


示例 20.22 


全 下 本 大王 下 I 
require 5.6.0; 
外 use Socket:， 
Use REileHandle:， 
2 SEEmSEO2e 
号 my ($remote，S$SPort，Qthataddr ，S$thaty,S$Sthem，S$SProto, enow， 
Sheztime) ; 


Imecyient -=-- aa client For the 7Ime Server Programyv 
Creates a socket anQ connects 1IL to the Server o 
DC 全 2 

7TPe cJient then expects tpe Serrer Lo WIIte Ser7rez "5 
Post tizime onto the SocKkKeLt，5SO the cJIient simpJy Qoes 
a Freaa on Its Sockety， SOCK， to 9et the Server's tiIme 


Se 








商 二 攻 二 忆 和 册 和 生 二 亲生 EN 
4 Sremote = Shift || '1lLlocalhost' :， 


020 
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和 





SPorzrt = 29688 ; 直 timeserver 1I5 at thi5s Port Dumnpber 


Qthataddr=gethostbyname (Sremote) ， 


Sthat = Back('"Sna4x8'， AR INET， SS6ort Sthatadaar [4 


SPproto = getprotobyname ('tcp') ， 
# Make the socket 五 1ehanale 


if ( socket(SOCK， PE_INET， SOCK STREAM， SProto ) 
SEORETEEOSNOE 


ElEs ETTE 汪 SI 

Ca upP the Ser7er 

if (connect (SOCK ，S$Sthat) ) 1{ 
人 


else { die $17)} 


Set SocKket to be commana PurfereaQ 
SOCK->autoflush : 











Shertime = <SOCK>: 
Close(SOCK) : 


ESeVeEETSECNIEEimS ESEESNROE 

Qnow = Localtime (Sheztime) : 

EECNI 央 人 
四 


(GuEGE) 

$ Per1l timeserveL 
Ron 汪 95535 
SOCKELZEEOK 
1 


沉 到 
人 


Stenm oK。 
weiejs 


$ Per1l timec1lient 


古 


SocKket ok. 
Connect ok. 
Server machine time Is: 981415699 


解释 


7 的 有 及 :区 


该 程序 使 用 Socket 模块 。 


- 使 用 strict 编译 指示 确保 该 程序 用 到 的 变量 都 是 “安全 的 ”。 
这 些 变量 将 在 后 面 的 程序 中 用 到 。 必 须 使 用 my 声明 它们 ,因此 strict 强制 要 求 这 


提供 安全 特性 。 


把 $port 标量 赋值 为 localhost。 


] 


) 


Now we're connectea to the Server， Jet's reaa her host time 


王 忌 ; 以 


. 将 主机 名 作为 命令 行 参数 进行 传递 ， 并 转送 到 变量 $port 中 。 如 采 ARGY 数组 为 空 数组 ， 则 
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CN 


8 
多 
1 
1 
1 
1 
1 
1 


ID 
呈 
oo 


1 


MD oo ~ 人 下 上 mi 一 


. 如 果 已 经 典 了 值 ， 则 由 客户 端 获 取 服 务 器 的 端口 号 。 

. 客户 端 在 这 里 获取 服务 器 的 正式 地 址 。 使 用 gethostbyname 国 数 获 得 原始 地 址 信息 。 

.将 Internet 域 的 地 址 和 端口 号 压缩 成 一 个 二 进 制 结构 ， 该 结构 由 无 符号 的 短 整数 值 构 成 ， 按 
照 “network” 顺 序 予 以 排列 ， 包 括 4 个 ASCII 字符 和 8 个 空 值 字 节 。 

.返回 tcp 协议 信息 。 

. SOcket 国 数 创 建 一 个 Internet 域 的 、 面 向 连接 的 套 接 字 文 件 句 柄 SOCK。 

0. connect 函数 将 客户 端 套 接 字 绑 定 到 服务 器 地 址 上 。 

1. autoflush 方法 会 在 打印 和 写 和 后 强制 清除 缓冲 区 。 

2. Perl 从 SOCK 文件 句柄 读 取 内 容 。 并 通过 套 接 字 检索 服务 器 的 时 间 。 

3. 关闭 套 接 字 。 

4. 从 服务 器 检索 时 间 值 (从 UTC 时 间 1970 年 1 月 1 日 开始 计算 的 非 闵 年 秒 数 ) 并 打印 它 。 

5. 将 该 时 间 转 换 为 本 地 时 间 ， 并 赋值 给 数组 @now。 

6. 打印 转换 后 的 时 间 。 








读者 应 当 学 到 的 知识 


一 、 


什么 是 TCP ? 

什么 是 Perl 协议 函数 ? 

出口 号 的 功能 是 什么 ? 

上 么 服务 会 用 到 端口 号 21 ? 

以 太 网 地 址 的 用 途 是 什么 ? 

什么 是 套 接 字 ? 

. 流 套 接 字 和 数据 报 套 接 字 的 区 别 是 什么 ”? 

什么 是 套 接 字 的 域 ? 

.accept 畏 数 的 功能 是 什么 ? 它 位 于 套 接 字 的 服务 器 一 侧 还 是 客户 端 一 侧 ? 
0. 使 用 Socket.pm 模块 的 好 处 是 什么 ? 


气 5F 一、 


下 





附录 A Perl 内 建 图 数 、 编 译 指示 、 


模块 和 调试 右 


A.1 Perl 函数 





又 











下 面 的 表 A-1 详细 列 出 了 所 有 Perl 函数 ， 并 简 述 了 这 些 函 数 的 功能 。 请 注意 : 位 于 括号 中 的 





文本 是 UNIX 手册 页 第 2 部 分 中 与 之 同名 的 UNIX 系统 调用 参考 信息 。 与 之 同名 的 UNIX 库 函 数 则 
位 于 UNIX 手册 页 的 第 3 部 分 。 





图 数 


表 A-1 相等 性 运算 符 与 数字 值 
描述 





abs VALUE 
返回 其 参数 〈 默 认 是 $_) 的 绝对 值 ， 忽 略 其 正 负 符号 





accept 


accept(NEWSOCKET, GENERICSOCKET) 

接收 来 自 正 在 等 待 连接 的 客户 端的 一 个 套 接 字 连 接 

GENERICSOCKET 是 一 个 文件 句柄 ， 由 socket 函数 负责 事先 打开 它 、 绑 定 它 到 地 址 、 并 监听 
该 连接 。NEWSOCKET 也 是 一 个 文件 句柄 ， 其 属性 与 GENERICSOCKET 相同 。accept 国 数 会 把 
GENERICSOCKET 附加 到 刚刚 创建 的 连接 上 

参见 accept(2) 

































































alarm 


alarm(SECONDS) 

alarm SECONDS 

在 SECONDS 秒 之 后 ， 将 SIGALARM 信和 号 发 送 给 指定 进 
参见 alarm(3) 








atan2 


atan2(X,Y) 
返回 范围 为 <pi> 的 X/Y 的 arctangent 值 

















bind 


bind( SOCKET，NAME) 
将 地 址 NAME 绑 定 到 已 经 打开 的 匿名 套 接 字 
SOCKET 上 
参见 bind(2) 











binmode 


binmode( FILEHANDLE) 
binmode FILEHANDLE 
用 在 区 分 文本 模式 与 “二 进 制 ”模式 的 操作 系统 〈 不 是 UNIX)。 为 以 二 进 制 模式 读 取 数 据 而 做 准备 











bless 





bless(REFERENCE, CLASS) 

bless REFERENCE 

表明 REFERENCE 所 引用 的 对 象 位 于 指定 包 《〈CLASS ) 中 ; 如 有 果 没 有 给 出 CLASS 参数 ， 则 表 
示 在 当前 包 中 。 该 函数 将 返回 引用 
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〈 续 ) 
国 数 描述 
caller(EXPRJ) 
caller EXPR 
caller caller 














返回 一 个 含有 子 例 程 调 用 堆栈 信息 的 数组 ， 其 中 含有 包 名 、 文 件 名 、 行 号 等 。 如 果 EXPR 是 数 
字 的 话 ， 该 国 数 将 向 后 查找 当前 帧 之 前 的 第 EXPR 个 堆栈 帧 














chdir (EXPR) 

chdir EXPR 

chdir chdir 

将 当前 工作 目录 切换 到 EXPR。 如 果 省 略 了 EXPR 的 话 ， 则 会 切换 到 该 用 户 的 主 目录 
参见 chdir(2) 

















chmod (MODE, LIST) 

chmod MODE, LIST 

chmod 更 改 列 表 中 文件 的 权限 : 第 一 个 

表 。 该 函数 将 返回 修改 成 功 的 文件 总 
参见 chmod(2) 





证 沉 


是 权限 MODE 号 《八进制 )， 另 一 个 参数 则 是 文件 名 的 列 











chop (LIST) 

chop (VARIABLE) 

chop VARIABLE 

chop 

删 去 字符 串 VARIABLE 的 末 字 符 ; 或 者 当 字 符 对 应 于 $_ 当前 值 时 ， 删 去 LIST 中 每 一 项 的 末 
字符 。 与 chnop〈 如 下 所 述 ) 了 关 不 站 开 函数 将 返回 删 去 的 字符 总 数 


chomp 
































chomp (LIST) 

chomp (VARIABLE) 

chomp VARIABLE 

chomp 

删 去 字符 串 VARIABLE 的 末 字 符 , 或 删 去 LIST 中 每 一 项 的 末 字 符 , 并 返回 删 去 的 字符 值 。 当 
没有 提供 参数 时 ， 删 去 $_ 的 末 字 符 


chop 














chown (LIST) 
chown LIST 
chown 更 改 列表 中 文件 的 拥有 者 和 组 ID， 列 表 前 两 个 元 素 分 别 是 数值 形式 的 uid 和 gid。 列 表 中 其 余 
0 是 文件 名 。 返 回 更 改 成 功 的 文件 数目 
见 chown(2) 











chr NUMBER 


返回 NUMBER 的 ASCII 码 值 。 例 如 ，chr(66) 将 返回 了 





chroot (FILENAME) 
chroot FILENAME 
chroot 将 当前 进程 的 根 目 录 更 改 为 FILENAME, 它 是 一 个 以 /开头 的 路 径 名 起 始点 。 必 须 以 超级 用 户 
身份 才能 执行 该 国 数 
参见 chroot(2) 














close (FILEHANDLE) 
close closeFILEHANDLE 
关闭 FILEHANDLE 关联 的 文件 、 套 接 字 或 管 





closedir ( DIRHANDLE) 
区 9 于 closedir DIRHANDLE 

关闭 由 opendir 打开 的 目录 结构 
参见 directory(3) 























connect( SOCKET, NAME) 














connect 把 一 个 进程 连接 到 另 一 个 等 待 accept 调用 的 进程 上 。 其 中 NAME 是 压缩 后 的 网 络 地 址 
参见 connect(2) 
coSs (EXPRJ) 

COS coS EXPR 











以 绝 度 格式 返回 EXPR 的 cosine ( 余 东 ) 值 
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描述 





CTYPt 


crypt (PLAINTEXT, SALT) 
口令 加 密 国 数 ， 其 中 PLAINTEXT 是 用 户口 令 ，SALT 则 是 由 字符 集 [a-zA-Z] 中 的 字符 所 构成 
的 双 字 符 字 符 串 
参见 crypt(3) 























dbmclose 


dbmclose(%ASSOC ARRAY) 

dbmclose %ASSOC _ ARRAY 

断 开 DBM 文件 及 其 相关 数组 之 间 的 绑 定 。 如 果 支 持 的 话 ， 它 将 只 适用 于 NDBM， 它 是 新 版 的 
DBM 格式 

参见 untie 

参见 dbm(3) 





dbmopen 


dbmopen(%ASSOC_ARRAY DBNAME, MODB) 

把 一 个 DBM 或 NDBM 文件 绑 定 到 一 个 关联 的 数组 上 。 在 访问 数据 库 之 前 ， 必 须 先 通过 
dbmopen 国 数 打开 它 。 文 件 file.dir 和 file.pag 必须 存在 。 

DBNAME 是 不 含 扩展 名 .dir 或 .pag 的 文件 名 。 如 果 数 据 库 不 存在 并 指定 了 权限 MODE 的 话 ， 
则 创建 该 数据 库 

参见 tie 

参见 dbminit(3) 





























defined 


defined (EXPR) 

defined EXPR 

如 果 EXPR 是 一 个 实际 的 值 , 则 返回 布尔 数 1。 如 果 EXPR 不 含 实际 值 , 则 返回 布尔 数 0。EXPR 
可 以 是 标量 、 数 组 、 散 列 或 子 例 程 。 对 于 散 列 ， 该 函数 只 会 检查 它 是 否定 义 了 值 〈 键 ) 























delete 


delete $ASSOC{KEY} 
从 关联 数组 中 删除 指定 的 值 。 如 果 删 除 成 功 ， 则 返回 删除 的 值 ; 否则 返回 未 定义 的 值 。 如 果 删 
除 %ENY 中 的 值 ， 便 会 改变 环境 变量 。 亦 可 使 用 undef 国 数 ， 后 者 更 为 快捷 














die (LIST) 

die LIST 

die 

2 9 打印 到 STDERR ,并 以 $! 的 值 ( 即 系统 错误 消息 errno) 退出 。 当 位 于 eval 国 数 中 时 ， 
会 把 $@ 设置 为 错误 消息 ， 并 退出 eval 块 。 如 果 LIST 的 值 不 以 换行 符 结束 的 话 ， 则 在 背 

扣 看 附加 当前 的 脚本 、 行 号 或 换行 符 











甘 








一 < 








冯 ee 




















do 


do BLOCK 
do SUBROUTINE(LIST) 
do EXPR 
do BLOCK 会 返回 BLOCK 块 中 最 后 一 个 命令 的 值 .do SUBROUTINE( LIST) 则 会 调用 定义 的 
SUBROUTINE 子 例 程 。do EXPR 会 将 EXPR 用 作文 件 名 , 并 把 该 文件 当 作 Perl 脚本 来 执行 。 它 
们 主要 用 于 导入 Perl 子 例 程 库 中 的 子 例 程 









































dump 


dump LABEL 
对 某 个 直接 二 进 制 核心 镜像 (imnmediate binary image core) 进行 转 在 。undump 命令 则 用 于 解 
除 转 存 ， 它 不 是 Perl 5.6.0 的 组 件 























each 


each (%ASSOC_ARRAY) 
each %ASSOC_ARRAY 
随机 返回 一 个 二 元 数组 ， 含 有 关联 数组 〈 散 列 ) 的 下 一 个 值 的 键 和 值 

















eof 


eof( FILEHANDLE) 

eof(O) 

eof 

如 果 从 FILEHANDLE 中 读 取 到 的 下 一 个 字符 是 文件 末尾 的 话 ， 该 国 数 就 会 返回 1。 如 果 省 略 
了 FILEHANDLE， 则 返回 上 一 次 读 取 的 文件 末尾 情况 















































eval 





eval (EXPRJ) 

eval EXPR 

Perl 程序 会 在 当前 Perl 脚本 的 上 下 文 语 境 中 判断 EXPR。 该 函数 常用 于 捕获 其 他 致命 错误 。 负 
责 把 语法 错误 、 运 行 时 错误 和 来 自 die 函数 的 错误 销 息 返 回 给 变量 $@。 如 果 没 有 错误 的 话 , 则 将 
变量 $@ 设置 为 NULL。 其 返回 值 是 上 一 次 求 值 的 表达 式 结果 值 
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〈 续 ) 
国 数 描述 
exee(LISTJ 
exec LIST 
exec 在 当前 程序 的 上 下 文 语 境 中 执行 系统 命令 LIST。 该 函数 不 会 返回 任何 内 容 。 如 果 ILIST 是 一 个 
标量 ， 则 查找 shell 元 字符 ， 并 将 其 传递 给 /bin/sh。 否 则 ， 将 参数 传递 给 C 图 数 调 用 execvp。 该 
国 数 不 会 清除 缓冲 区 
本 exlsts 了 EXPR 
如 果 关 联 数组 中 存在 指定 的 键 ， 则 返回 TRUE， 即 使 没有 与 之 对 应 的 值 也 是 如 此 
exlt (INTEGER) 
exilt INTEGER 
Sr 以 状态 值 INTEGER 退出 脚本 。 如 果 省 略 INTEGER 的 话 ， 则 以 0 退出 ， 也 就 是 说 程序 以 成 功 
状态 退出 。 非 零 状态 意味 着 程序 出 错 
exp (EXPR) 
eXp exp EXPR 
指数 国 数 。 返 回 e 的 EXPR 次 需 值 
fcntl(FILEHANDLE, FUNCTION, SCALARJ) 
修改 所 打开 文件 的 属性 。 需 要 用 到 sys/cntlph。FUNCTION 可 以 重复 现 有 的 文件 描述 符 , 获取 
fcntl 或 设置 文件 描述 符 标记 ， 获 取 或 设置 文件 状态 标记 ， 获 取 或 设置 异步 IO 所 有 权 ， 获 取 或 设置 记 
录 锁 。SCALAR 则 是 一 个 整数 型 的 标记 
参见 fcntl(2) 
fileno (FILEHANDLE) 
fileno FILEHANDLE 
fileno 返回 整数 形式 的 FILEHANDLE 文 件 描述 符 。 该 描述 符 的 值 0.1、2 分 别 表示 STDIN、STDOUT、 
STDERR。 如 果 在 文件 关闭 后 再 次 打开 的 话 ， 则 该 函数 在 Perl 脚本 中 就 可 能 是 不 可 靠 的 
参见 fileno(3) 
flock (FILEHANDLE, OPERATION) 
flock 在 文件 上 加 上 或 者 取消 锁 。OPERATION 负责 规定 对 文件 的 加 锁 、 共 享 锁 、 独 占 锁 或 非 独占 锁 
的 操作 。 删 除 某 个 文件 的 OPERATION 则 是 unlock 
参见 flock(2) 
fork 
fork 创建 一 个 新 的 〈 子 ) 进程 。 子 进程 是 父 进程 的 一 个 副本 。 子 进程 和 父 进程 都 会 继续 执行 fork 后 
面 的 指令 。 该 函数 将 把 0 返回 给 子 例 程 ， 并 将 子 进 程 的 pid 返回 给 父 进程 
format NAME 一 
picture line 
站 训 证 value list 
负责 声明 一 组 形象 (picture) 行 ， 用 以 描述 相应 值 的 布局 。write 函数 将 使 用 规定 的 格式 把 输 
出 发 送 到 NAME 代表 的 命名 文件 句柄 上 。 如 果 省 略 了 NAME， 默认 的 文件 句柄 则 为 STDOUT 
和 formline PICTURE, LIST 
formmat 函数 用 到 的 内 部 国 数 ， 负 责 格式 化 形象 行 中 对 应 值 的 列表 。 读 者 也 可 从 程序 中 直接 调用 该 函数 
getc (FILEHANDLE) 
getc FILEHANDLE 
getc getc 
从 关联 到 FILEHANDLE 上 的 输入 中 返回 下 一 个 字符 。 如 果 磁 到 EOF, 则 返回 NULL。 如 果 省 
略 了 FILEHANDLE 的 话 ， 则 从 STDIN 中 读 取 
getgrent 
Setgrent 
getgrent endgrent 





反复 遍历 /etc/group 文件 ， 并 从 中 返回 各 个 列表 项 ， 包 括 组 名 、 口 令 、 组 ID 〈gid) 和 成 员 
参见 getgrent(3) 
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国 数 





getgrgid 


getgrgid(GID) 
根据 组 的 编号 返回 组 文件 列表 项 
参见 getgrgid (3) 

















getgrnam 


getgrnam (NAME) 
根据 组 名 返回 组 文件 列表 项 
参见 getgrnam (3) 


乡 











gethostbyaddr 


gethostbyaddr(ADDRESS, AF_INET) 

将 网 络 地 址 翻译 为 对 应 的 名 称 和 替换 地 址 。 该 函数 会 返回 主机 名 、 别 名 、 地 址 类 型 、 长 度 以 及 
未 包装 的 原始 地 址 。AF_INET 的 值 始终 是 2 

参见 gethostbyaddr(3) 











gethostbyname 


gethostbyname(HOSTNAME) 

将 主机 名 翻译 成 /etc/hosts 中 的 列表 项 ， 包 括 主 机 名 、 别 名 和 地 址 。 在 标量 上 下 文 语 境 中 ， 该 
国 数 将 只 返回 主机 的 地 址 

参见 gethostbyname (3) 




















gethostent 


gethostent 

Sethostent(STAYOPEN) 

endhostent 

反复 遍历 /etc/hosts 文件 ， 并 从 中 返回 各 个 列表 项 ， 包 括 名 称 、 别 名 、 地 址 类 型 、 长 度 和 替换 
四 该 国 数 负责 从 网 络 数据 库 /etc/hosts 中 返回 列表 内 容 

参见 gethostent (3) 























getlogin 


getlogin 

如 果 存 在 /etc/utmp 文件 的 话 ， 从 该 文件 中 返回 
读者 尝试 : 

$loginname = getlogin || (getpwuid($<))[0] | die "Not a user herey" 
参见 getlogin (3) 


乡 








| 几 


前 的 登录 情况 。 如 果 getlogin 不 起 作用 ， 请 














getnetbyaddr 


getnetbyaddr( ADDR, ADDRESSTYPE) 

将 网 络 地 址 翻译 成 其 对 应 的 网 络 名 。 该 国 数 能 从 网 络 数 据 库 /etc/networks 中 返回 列表 内 容 。 在 
标量 型 上 下 文 语 境 中 ， 该 国 数 将 只 返回 网 络 名 
参见 getnetbyaddr(3) 


乡 























getnetbyname 


getnetbyname ( NAME) 

将 网 络 名 翻译 成 其 对 应 的 网 络 地 址 。 该 函数 能 从 网 络 数据 库 /etc/networks 中 返回 列表 内 容 。 在 
标量 型 上 下 文 语 境 中 ， 该 国 数 将 只 返回 网 络 地 址 

参见 getnetbyname (3) 























getnetent 


getnetent 
Setnetent(STAYOPEN) 
endnetent 
反复 遍历 /etc/networks 文件 , 并 从 中 返回 各 个 列表 项 。 该 函数 负责 从 网 络 数 据 库 /etc/networks 
中 返回 列表 内 容 。 在 标量 上 下 文 语 境 中 ， 该 函数 将 只 返回 网 络 地 址 
参见 getnetent (3) 


乡 
































getpeername 


getpeername(SOCKET) 


回 套 接 字 连接 的 另 一 端 所 包装 的 sockaddr 地 址 
见 getpeername (2) 





号 淆 





getpgIp 


getpgrp(PID) 

getpgIP PID 

回 给 定 PID 对 应 的 当前 进程 组 〈(PID 0 是 当前 进程 )。 如 果 没 有 EXPR 参数 的 话 ， 该 国 数 将 
当前 进程 所 在 的 进程 组 

见 getpgrp (2) 




















讽 
剖 1 轴 





getppid 





tppid 
习 父 进程 的 pid。 如 有 果 和 返回 值 为 1， 就 表明 是 init 进程 的 pid。Init 会 接纳 那些 没有 父 进程 的 进程 
见 getppid (2) 
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国 数 


描述 





getprioity 


getprioity (WHICH, WHO) 


当前 的 进程 、 进 程 组 或 用 户 
见 getprioity (2) 





站 


回 WHICH 的 值 , 即 当 前 进程 、 进 程 组 或 有 





日 户 的 优先 权 (nice) 值 。 如 果 WHO 的 值 为 0,， 则 





getprotobyname 


getprotobyname (NAME) 








参见 getprotobyname (3) 


























避 一 行内 容 


将 协议 名 NAME 翻译 成 对 应 的 协议 号 ， 并 返回 一 个 包含 协议 名 、 别 名 和 协议 号 的 列表 。 该 轩 
数 将 从 网 络 协议 数据 库 /etc/protocols 中 返 本 





Setprotobynumber 


getprotobynumber (NUMBERJ) 
将 协议 号 NUMBER 翻 











参见 getprotobynumber (3) 





P 返 匠 

















一 行内 容 





译 成 对 应 的 协议 名 ， 并 返回 一 个 包含 协议 名 、 别 名 和 协议 号 的 列表 。 该 
国 数 将 从 网 络 协议 数据 库 /etc/protocols 行 
二 





getprotoent 


getprotoent 
Setprotoent (STAYOPEN) 
endprotoent 


反复 遍历 /etc/protocols 文件 ， 并 从 j 
STAYOPEN 参数 值 非 夫 


在 标量 





参见 getprotoent (3) 


, 则 在 随后 的 调 月 
型 上 下 文 语 境 中 ， 该 函数 将 只 返回 协议 名 





PP 返 所 


日 期 间 














不 关闭 数据 库 。 





各 个 列表 项 ， 人 
函数 endprotoent 负责 关闭 该 文件 。 


别名 和 协议 号 。 如 果 








getpwent 


额 、 注 释 、gcos 字段 、 主 目录 和 局 
语 境 中 ， 该 函数 将 只 返 


getpwent 
Setpwent 
endpwent 


反复 遍历 /etc/passwd 文件 ， 并 从 中 返 




















回 用 户 名 
参见 getpwent (3) 





回 各 个 列表 项 ， 包 括 用 








户 名 、 口 令 、uid、gid、 磁 盘 配 








由 动 shell 等 。 国 数 endpwent 负责 关闭 该 文件 。 在 标量 型 上 下 文 








getpwnam 


getpwnam( NAME) 


将 用 户 名 转译 为 /etc/passwd 文件 
gid、 磁 盘 配 额 、 














引用 户 ID 
参见 getpwent (3) 

















F 中 的 对 应 项 。 





该 函数 返 





回 的 列表 内 容 包 括 用 户 名 、 口 令 、uid 
注释 、gcos 字段 、 主 目 孙 和 局 动 shell 等 。 在 标量 型 下 下 文 笑 城中 ， 该 函数 将 只 


7 








getpwuid 


getpwuid (UID) 


将 用 户 ID 转译 为 /etc/passwd 文人 
gid、 


磁盘 配额 、 
可 用 户 名 
参见 getpwent (3) 


注释 、 





























下 呈 








的 对 应 项 。 


该 国 数 返 








回 的 列表 内 容 包 括 用 户 名 、 
gcos 字段 、 主 目录 和 启动 shell 等 。 在 标量 型 上 下 文 语 境 中 ， 该 函数 将 上 




















getservbyname 


getservbyname( NAME, PROTOCOL) 
名 转译 为 对 应 的 端口 号 ， 并 返回 一 个 含有 服务 名 、 别 名 、 
务 端口 和 所 需 协 议 的 数组 。 在 标量 型 上 下 文 语 境 中 ， 该 国 数 将 只 返 端口 号 


从 /etc/services 数据 库 中 ， 将 端 





参见 getservent(3) 




















否 
司 
怠 











getservbyport 


名 、 服 务 端 


getservbyport ( PORT_NUMBER, PROTOCOL) 


从 /etc/services 数据 库 中 ， 将 端 








参见 getservent(3) 





山口 号 转译 为 对 应 的 标量 型 端口 名 ， 并 返 
口 和 所 需 协 议 的 数组 。 在 标量 型 上 下 文 语 境 中 ， 该 国 数 将 只 返回 服务 的 端 




















可 一 个 售 有 服务 名 、 别 
名 




















getservent 





getserVent 
Setservent( STAYOPEN) 
endservent 


反复 遍历 /etc/services 文件 ,并 从 寺 
参数 值 非 零 ， 则 在 随后 的 调用 期 间 将 不 关 
文 语 境 中 ， 该 国 数 将 只 返回 服务 的 端口 名 

















参见 getserv (3) 





P 返 








可 服 








务 名 、 别 名 、 服 务 端 

















和 所 需 协议 。 如 果 STAYOPEN 





endservent 负责 关闭 该 文件 。 在 标量 型 上 下 





024 


奉 录 A 





国 数 





getsockname 


getsockname( SOCKET) 
返回 SOCKET 连接 本 地 端的 sockaddr 地 址 
见 getsockname(2) 





王 





路 攻 





getsockopt 


tsockopt ( SOCKET, LEVEL, OPINAME) 
可 请 求 选 项 OPTNAME， 该 选项 将 在 指定 协议 LEVEL 上 关联 到 SOCKET 
见 getsockopt(2) 

















党 所 写 





glob 


glob EXPR 
像 snell 一 样 对 EXPR 执行 文件 名 扩展 。 若 省 略 了 EXPR， 则 默认 会 使 用 $_。 也 可 使 用 内 部 运 
算 符 <*> 




















gmtime 


gmtime( EXPR) 

gmtime EXPR 

将 time 函数 得 到 的 结果 转换 为 一 个 含有 格林 威 治 时 间 值 的 9 元 数组 ， 其 中 包含 秒 、 分 、 时 、 
日 、 月 、 年 、 周 日 、 年 日 等 信息 ， 如 果 是 夏令 时 的 话 ， 其 中 还 会 出 现 1 

参见 Perl 库 模 块 Time::Local 中 的 ctime(3) 和 timegm(O) 国 数 

















goto 


goto LABEL 

goto EXPR 

goto &NAME 

将 程序 转 到 LABEL 处 并 继续 执行 。 访 函数 不 能 goto 到 任何 需要 初始 化 的 结构 内 , 艾 如 foreach 
循环 的 子 例 程 。goto 不 会 返回 任何 值 。 格式 goto &NAME 将 当前 运行 的 子 例 程 奉 换 为 针对 NAME 
的 调用 〈 常 用 于 AUTOLOAD 子 例 程 中 ) 























8Tep 


grep ( EXPR, LIST) 

grep BLOCK, LIST 

把 LIST 中 与 EXPR 匹配 的 任意 元 素 返 回 给 新 数组 。 该 国 数 将 返回 一 个 标量 ， 即 匹配 成 功 的 项 
目 总 数 

















hex 


hex (EXPRJ) 
hex EXPR 
将 十 六 进 制 值 EXPR 返 





互 

















为 相应 的 十 六 进 制 字符 串 。 如 果 设 有 EXPR 的 话 ， 则 默认 使 用 $_ 





import 


import CLASSNAME LIST 
import CLASSNAME 
这 不 是 内 建 函 数 ， 而 是 模块 规定 的 类 方法 ， 负 责 通过 use 函数 将 名 字 导 出 到 其 他 模块 中 去 














index 


index( STR, SUBSTR, POSITION) 

index( STR, SUBSTRJ) 

返回 STR 中 SUBSTR 的 第 一 个 匹配 值 的 位 置 。POSITION 表示 该 串 内 从 0 开始 计算 的 子 串 起 
始 位 置 














int 


int( EXPR) 
int EXPR 
返回 EXPR 的 整数 部 分 。 如 果 没 有 提供 EXPR 的 话 ， 则 默认 使 用 $_ 




















loctl 


ioctl (FILEHANDLE, FUNCTION, SCALARJ) 

用 于 控制 IO 操作 ， 主 要 是 负责 结束 IO。 要 求 用 到 sys/ioctlLph。 此 处 的 FUNCTION 是 一 个 
LI/O 请 求 。SCALAR 将 根据 该 请 求 进行 读 或 者 写 

参见 ioctl(2) 

















join 





join (EXPR, LIST) 
将 LIST 中 各 个 串 连 接 在 一 起 ， 返 回 单个 串 。 其 字段 分 隔 符 由 定 界 符 EXPR 规定 
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keys(%ASSOC _ ARRAY) 
keys keys %ASSOC_ ARRAY 
返回 一 个 由 关联 数组 中 所 有 的 键 所 组 成 的 数组 




















kill( SIGNAL, PROCCESS _ LIST) 

kiss PROCESS _LIST 

kill 把 信号 SIGNAL 发 送 到 列表 中 的 各 个 进程 。SIGNAL 可 以 是 数字 或 者 信号 名 (信号 名 必须 位 于 
引导 中 如 果 SIGNAL 为 负 ， 则 表示 取 背 该 进程 组 

参见 kill(2) 














last LABEL 

last 妆 

last 命令 兼容 于 C 里 面 的 break 命令 。 它 负责 退 昌 
的 话 ， 则 能 退出 整个 循环 








内 层 循环 。 如 果 带 有 循环 标记 last LABEL 





SS 
> 











lc EXPR 
返回 EXPR 的 小 写 形式 。 等 效 于 \L\E 转 义 序列 


lc 








lcfirst EXPR. 


lcfirst 返回 首 字母 小 写 的 EXPR。 等 效 于 \NE 转 义 序列 














length (EXPR) 

nEi ength EXPR 

返回 标量 EXPR 的 字符 串 长 度 。 如 果 省 略 了 EXPR 的 话 ， 则 默认 会 返回 $_ 的 长 度 。 该 函数 不 
能 用 于 获取 数组 或 关联 数组 的 大 小 




















link(OLDFILE, NEWFILE) 
link 创建 一 个 硬 链 接 。NEWFILE 将 成 为 OLDFILE 的 另 一 个 名 称 
参见 link(2) 


乡 





listen( SOCKET, QUEUESIZE) 
listen 在 SOCKET 套 接 字 上 监听 连接 。QUEUESIZE 规定 了 等 待 连接 的 最 大 进程 数 
参见 listen(2) 








je local( LIST) 
针对 代码 块 、 子 例 程 或 eval 对 LIST 中 的 变量 进行 本 地 化 





localtime (EXPR) 
localtime EXPR 
将 time 函数 返回 的 时 间 值 转换 为 一 个 含有 本 地 时 区 的 9 元 素数 组 。 该 数组 含有 : 
秘 
分 


月 扩编 呈 《0 表示 1 月 ) 

1900 年 开始 的 年 份 

周 日 〈0 表示 星期 天 ) 

年 日 (0 表示 1 月 1 日 ) 

isdst (如 果 使 用 夏令 时 的 话 ， 该 值 为 真 ) 
参见 ctime(3) 











localtime 





























lock THING 
lock 在 变量 、 子 例 程 或 THING 引用 的 对 象 上 面 加 锁 ， 直 到 锁 超出 其 作用 域 为 止 。 如 果 局 用 它 ， 则 
只 能 用 在 线程 上 























log( EXPR) 
log log EXPR. 
返回 EXPR 的 对 数值 (以 e 为 底数 )。 如 果 省 略 EXPR 的 话 ， 则 默认 求 log($_) 
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lstat 


lstat (FILEHANDLE) 
lstat FILEHANDLE 
lstat (EXPRJ) 
返回 一 个 由 符号 链接 上 文件 统计 值 所 构成 的 14 元 素数 组 , 而 不 是 符号 链接 指向 的 文件 本 身 。 该 
数组 含有 : 
设备 
文件 模式 
指向 文件 的 硬 链接 数目 
拥有 者 的 用 户 ID 
拥有 者 的 组 ID 
原始 设备 
文件 大 小 
文件 上 一 次 访问 时 间 
文件 上 一 次 修改 时 间 
文件 上 一 次 状态 改变 的 时 间 
文件 系统 实际 分 配 的 IO 首选 块 数 大 小 
参见 stat(2) 

















/PATTERN/ 

m/ PATTERN/ 

年 是 一 个 匹配 运算 符 ， 负 责 将 PAITERN 解释 为 正则 表达 式 ， 用 在 需要 替换 界定 符 的 时 候 ， 警 
如 m!PATTERNI 








map 


map (BLOCK, LIST) 

map (EXPR, LIST) 

对 于 LIST 中 的 每 一 个 元 素 ， 计 算 其 BLOCK 或 EXPR 的 值 ， 并 返回 含有 计算 结果 的 列表 值 。 
面 的 示例 将 把 数字 列表 转译 为 字符 : @chars = map chr,  @numbers 











下 














mkdir 


mkdir( NAME, MODE) 
使 用 MODE 权限 〈 八 进 制 ) 创建 目录 NAME 
参见 mkdir(2) 








msgctl 


msgctl(MSGID, CMD, FLAGS) 

msgctl 系统 调用 ， 用 于 针对 消息 队列 的 操作 。 它 会 产生 较为 特殊 的 返回 码 。 要 求 用 到 库 文件 
ipc.ph 和 msg.ph。 

参见 System V IPC 

参见 msgctl(2) 





























msgget 


msgget( KEY, FLAGS) 

调用 msgget 系统 调用 。 返 回 消息 队列 ID 号 ; 如 果 尚 未 定义 的 话 ， 则 返回 错误 信息 
参见 System V IPC 

参见 msgget (2) 




















了 











ImSgTcV 


msgrcv (MSGID, VAR, MSG_SIZE, TYPE, FLAGS) 

调用 msgrcv 系统 调用 。 从 消息 队列 中 检索 消息 , 并 将 它 存储 在 VAR 中 。MSG _SIZE 是 消息 队 
列 的 最 大 容量 ，TYPE 则 表示 背 息 的 类 型 

参见 System V IPC 

参见 msgrcyv (2) 














msgsnd 





msgsnd (ID, MSG, FLAGS) 

调用 msgsnd 系统 调用 。 把 销 息 MSG 发 送 到 消息 队列 中 。MSG 必须 以 消息 类 型 开头 。 用 户 可 
使 用 

pack 国 数 来 创建 消息 

参见 System V IPC 

参见 msgsnd (2) 
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开 
洗 





了 了 


my TYPE EXPR; AITRIBUTES 

my EXPR; AITRIBUTES 

my TYPE EXPR. 

Imy EXPR 

使 用 my 函数 声明 的 变量 将 成 为 专 有 变量 , 即 它们 将 只 能 存储 在 最 内 层 的 包含 块 、 子 例 程 、eval 
或 文件 中 。 只 有 简单 标量 、 完 整数 组 和 散 列 才能 使 用 my 声明 。 这 里 的 TYPE 和 ATITRIBUTES 参 
数 都 是 可 选 的 

















Dew 


new CLASSNAME LIST 
new CLASSNAME 
这 不 是 内 建国 数 ， 而 是 一 个 构造 国 数 方法 。 它 是 由 CLASSNAME 模板 定义 的 ， 负 责 创 建 
CLASSNAME 类 型 的 对 象 。 甚 创建 规则 取 自 C++ 


出 











Dext 


next LABEL 
Dext 


开始 最 内 层 循 环 ， 或 者 开始 标记 为 LABEL 的 循环 。 等 效 于 C 语言 中 的 continue 函数 





DO 


no Module LIST 
如 果 已 经 使 用 use 导入 了 编译 指示 〈pragma) 或 模块 的 话 ， 则 可 使 用 no 函数 表明 不 再 使 用 它们 



































not 


not EXPR 
逻辑 否定 EXPR 的 真 值 





Oct 


oct (EXPRJ) 

oct EXPR 

Oct 

返回 八进制 字符 串 EXPR 的 十 进 制 值 。 如 果 EXPR 含有 前 导 零 的 话 , 则 将 EXPR 解释 为 十 六 进 
制 。 如 果 没 有 提供 EXPR 的 话 ， 则 默认 转换 $_ 























open 


open (FILEHANDLE, EXPRJ) 
open (FILEHANDLE) 
open FILEHANDLE 
打开 实际 文件 EXPR， 并 将 它 附加 给 文件 句柄 FILEHANDLE。 如 果 没有 提供 EXPR 的 话 ， 则 
必须 把 与 FILEHANDLE 同名 的 标量 值 赋予 该 文件 名 
读 “FILEHANDLE?” 
写 “>FILEHANDLE?” 
读 / 写 “+>FILEHANDLE” 
追加 “>>FILEHANDLE?” 
导出 “| UNIX Command” 
导入 “UNIX Command |” 

















opendir 


opendir (DIRHANDLE, EXPRJ) 
打开 名 叫 EXPR 的 目录 结构 ， 并 在 负责 检查 该 结构 的 函数 中 把 它 附 加 给 DIRHANDLE 句柄 
参见 directory(3) 








ord 


ord(EXPR) 
ord 
返回 EXPR 中 第 一 个 字符 所 对 应 的 无 符号 ASCII 数值 




















OUT 





ouUr TYPE EXPR: ATTRIBUTES 

OUT EXPR: ATTRIBUTES 

OUI TYPE EXPR 

OUIT EXPR 

声明 一 个 或 多 个 在 块 、 文 件 或 eval 中 全 局 有 效 的 变量 。 该 函数 类 似 于 my 或 global， 但 是 它 不 
会 创建 新 的 专用 变量 。 当 打开 strict 指示 并 且 需 要 全 局 变量 时 ， 便 可 使 用 该 函数 
































032 





过 
本 





pack 


$packed = pack( TEMPLATE, LIST) 
负责 将 列表 值 包 装 成 一 个 二 进 制 结构 ， 并 返回 该 结构 。 其 中 TEMPLATE 是 带 引 号 的 含有 数值 
或 类 型 的 字符 串 。TEMPLATE 可 以 是 : 
ASCII 串 ， 填 充 null 
ASCII 串 ， 填 充 空 格 
比特 串 ， 从 低 到 高 的 顺序 
比特 串 ， 从 高 到 低 的 顺序 
十 六 进 制 串 ， 低 4 位 在 前 
十 六 进 制 串 ， 高 4 位 在 前 
有 符号 的 字符 值 
无 符号 的 字符 值 
有 符号 的 短 整 型 值 
无 符号 的 短 整 型 什 
有 符号 的 整数 值 
无 符号 的 整数 值 
有 符号 的 长 整 型 值 
无 符号 的 长 整 型 值 
以 “network” 顺 序 出 现 的 短 整 型 值 
以 “network” 顺 序 出 现 的 长 整 型 值 
本 地 格式 的 单 精 度 序 点 数 
本 地 格式 的 双 精 度 浮 点 数 
向 字符 串 的 指针 









































人 


以 空 值 填充 的 绝对 精度 
uuencode 编码 字符 串 


= 图 共 关 吕 呈 证 忆 昌 忆 一 oODoe 呈 四 习 呈 





package 


package NAMESPACE 
把 包 声 明 为 NAMESPACE, 并 创建 单独 的 命名 空间 〈 符 号 表 )。NAMESPACE 属于 其 他 的 最 内 
层 代 码 块 、 子 例 程 、eval 或 文件 。 如 果 包 声明 位 于 同一 层 的 话 ， 则 新 的 声明 将 覆盖 旧 的 声明 

















pipe 


pipe (READHANDLE, WRITEHANDLE) 
打开 管道 读 或 者 写 ， 一 般 都 在 fork 后 调用 
参见 pipe(2) 








Pop 


pop (ARRAY) 
pop ARRAY 
取出 数组 中 的 一 个 元 素 。 数 组 中 的 元 素 将 减少 一 个 











pos (SCALAR) 

pos SCALAR 

返回 在 SCALAR 中 搜索 上 一 个 匹配 项 之 后 字符 的 偏 移 量 ， 即 下 一 次 搜索 的 起 始 位 置 。 甚 偏 移 
量 从 0 起算。 如果 $scalar 赋值 为 “hello”， 并 且 搜 索 模 式 为 %scalar=~m/lg 的 话 ，pos 图 数 就 会 
避 找 到 第 一 个 1 之 后 的 字符 位 置 ， 即 3 




















遍 上 师 








Print 


print( FILEHANDLE LIST) 

print( LIST) 

print FILEHANDLE LIST 

print LIST 

Print 

将 字符 串 或 以 逗号 隔 开 的 字符 串 列 表 打 印 到 FILEHANDLE 上 。 这 里 可 以 打印 到 到 用 ee 
FILEHANDLE， 也 可 打印 到 默认 的 STDOUT。 如 果 调 用 成 功 ， 该 国 数 会 返回 1， 否 则 就 返 下 



































Printf 





printf( FILEHANDLE FORMAT, LIST) 

printff FORMAT , LIST) 

把 格式 化 之 后 的 字符 串 打 印 到 FILEHANDLE 上 。 如 果 省 略 了 FILEHANDLE 的 话 ， 则 打印 到 
当前 已 经 选 定 的 文件 句柄 上 。 其 默认 句柄 为 STDOUT。 该 函数 类 似 于 C 语言 中 的 printf， 但 是 它 











参见 printf(3) 
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国 数 描述 





prototype FUNCTION 





























prototype 返回 国 数 原型 字符 串 ， 其 中 FUNCTION 表示 国 数 名 。 如 果 没 有 原型 的 话 ， 则 返回 undef 
ii 过 push (ARRAY, LIST) 
了 将 LIST 中 的 值 追加 到 ARRAY 的 尾部 。 该 数组 将 会 变 大 。 该 函数 能 返回 ARRAY 的 新 长 度 值 
q/STRING/ 
qq /STRINGV 
qw /LIST/ 


q, qq,，qwW,， qX qx /COMMANDY/ 

引号 的 替换 形式 。q 结构 会 把 STRING 当 作 是 位 于 单 引 号 中 一 样 处 理 。qq 结构 会 把 STRING 
当 作 是 位 于 双 引 号 中 一 样 处 理 。qw 结构 会 把 LIST 中 的 每 个 元 素 都 当 作 是 位 于 单 引号 中 一 样 来 处 
理 。 而 qx 则 会 把 COMMAND 当 作 位 于 反 引 号 中 一 样 来 处 理 




















quotemeta EXPR 

















quotemeta 返回 EXPR 的 标量 值 ， 并 给 所 有 正则 表达 式 元 字符 加 上 反 和 斜 杠 
rand (EXPR) 
Irand EXPR 

Tand Tand 

















返回 一 个 介 于 0 和 EXPR 之 间 的 随机 分 数值 〈 标 量 )。 其 中 EXPR 是 正 数 。 如 果 不 使 用 srand 
的 话 ， 该 国 数 将 生成 相同 的 数字 序列 。 如 果 省 略 EXPR， 则 会 返回 介 于 0 到 1 之 间 的 值 

















read( FILEHANDLE, SCALAR, LENGTH, OFFSET) 

read( FILEHANDLE, SCALAR, LENGTHI) 

read 从 FILEHANDLE 中 的 OFFSET 位 置 开 始 读 取 总 数 为 LENGTH 的 字 节 内 容 ， 将 其 内 容 存 人 

SCALAR 中 ， 并 和 返回 读 取 的 字 节 总 数 。 如 果 碰 到 EOF 的 话 ， 则 返回 0〈 类 似 于 fread 系统 调用 ) 
参见 fread(3) 
































readdir( DIRHANDLE) 
readdir DIRHANDLE 

















Teaddir 从 opendir 函数 打开 的 目录 结构 DIRHANDLE 中 读 取 下 一 
参见 directory(3) 

eine readline FILEHANDLE 
从 选 定 的 FEILEHANDLE 中 读 取 并 返回 一 行内 容 。 例 如 ，$line=readline(STDIN) 
readlink (EXPR) 

2 readlink EXPR 





研 








返回 符号 链接 的 值 。 其 中 EXPR 是 符号 链接 的 路 径 名 ， 如 果 省 略 的 话 则 默认 使 用 $_ 
参见 rfeadlink(2) 








readpipe Scalar EXPR 
让 dp LIST( proposed) 

人 个 实现 命令 替换 的 qw/ 引号 结构 或 反 引号 的 内 部 函数 。 例 如 ， 为 了 打印 UNIX ls 命令 的 答 
出 内 容 ， 可 键入 print readpipe(ls) 








recv (SOCKET, SCALAR, LEN, FLAGS) 




















TecV 在 套 接 字 上 将 LEN 字 节 长 的 信息 接收 到 变量 SCALAR 中 ， 并 返回 发 送 者 的 地 址 
参见 recv(2) 
redo LABEL 

才 呈 redo 














不 重新 判断 条 件 值 ， 立 即 重新 执行 循环 体 。 如 果 没 有 可 供 执行 的 代码 块 ， 则 不 去 执行 它 。 如 果 
没有 提供 LABEL 的 话 ， 则 重新 开始 执行 最 内 层 的 循环 











Tef EXPR 

如 果 引 用 了 EXPR 的 话 , 返回 EXPR 的 数据 类 型 ,否则 返回 NULL。 该 图 数 的 返回 值 取 决 于 引 
用 的 类 型 : REF、SCALAR、ARRAY、HASH、CODE 或 GLOB。 如 果 EXPR 是 归属 于 某 个 包 的 
对 象 的 话 ， 则 它 的 返回 值 将 是 包 (类 ) 的 名 字 



































Tef 








rename( OLDNAME, NEWNAME) 
将 文件 OLDNAME ee ee 如 果 跨 越 了 文件 系统 的 话 , 该 函数 将 不 起 作用 。 如 果 


NEWNAME 已 经 存在 的 话 ， 该 函数 将 自动 将 它 移 除 
参见 rename(2) 














Tename 
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国 数 





require 


require (EXPRJ) 

require EXPR 

require 

通过 在 @INC 数组 中 搜索 指定 的 文件 , 导入 Perl 库 中 的 EXPR。 也 可 用 于 检查 
指定 的 库 。 如 果 省 略 EXPR 的 话 ， 则 默认 使 用 $ 
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Teset 


Teset (EXPR) 
Teset 下 XPR 
TeSet 


清除 变量 或 数组 。 如 果 省 略 了 EXPR 的 话 ， 则 重 置 ?? 搜索 





Teturn 


Teturn LIST 
从 子 例 程 中 返回 一 个 值 。 该 函数 不 能 用 在 子 例 程 外 面 




















TEVeTSe 


reVverse (LIST) 
反 转 LIST 的 顺序 ， 并 返回 得 到 的 数组 




















Tewinddir 


rewWinddir( RE 

rewinddir DIRHANDLE 

将 DIRHANDLE 的 位 置 回 卷 到 目录 结构 的 开始 位 置 。 
参见 directory(3) 











Tindex 


rindex( STRING, SUBSTR, OFFSET) 

rindex( STRING, SUBSTRJ) 

如 果 给 定 了 OFFSET， 该 国 数 就 会 从 STRING 中 有 返回 由 OFFSET 处 开始 的 最 后 一 次 SUBSTR. 
出 现 的 位 置 。 它 与 index 函数 类 似 ， 不 过 后 者 将 返回 第 一 个 位 置 ， 而 非 最 后 一 个 位 置 






































ITmdir 


rmdir (FILENAME) 
rmdir FILENAME 
删除 空 目录 FILENAME 





s/SEARCH PATTERNVREPLACEMENT/[g][i[e][o] 

搜索 SEARCH PATTERN,， 如 果 找 到 的 话 , 就 用 后 面 的 文本 替换 该 模式 。 该 国 数 将 返回 替换 成 
功 的 数目 。 选 项 g 表 示 跨 行 、 全 局 的 。 选 项 i 负责 关闭 大 小 写 敏 感 。 选 项 e 将 替换 字符 串 作 为 一 
个 表达 式 来 求 值 ， 例 如 SAd+/$&+S/e 

















SCalar 


Scalar(EXPRJ) 
强制 在 标量 型 上 下 文 语 境 中 对 EXPR 求 值 





Seek 


seek(FILEHANDLE, POSITION, WHENCE) 

在 文件 FILEHANDLE 中 的 某 个 位 置 放置 文件 指针 ， 该 指针 值 是 相对 于 其 在 文件 中 的 位 置 
WHENCE 的 。 如 果 WHENCE 值 为 0， 则 表示 从 文件 起 始 位 置 开始 ;， 如果 WHENCE 值 为 1， 则 
表示 从 文件 当前 位 置 开 始 如 果 WHENCE 值 为 2， 则 表示 从 文件 末尾 开始 。 如 果 WHENCE 值 为 
0， 则 POSITION 的 值 不 能 为 负数 




















Seekdir 


Seekdir( DIRHANDLE, POSITION) 
在 与 DIRHANDLE 相关 联 的 目录 结构 上 为 readdir 国 数 设 置 POSITION 
参见 directory(3) 








Select 


Select(FILEHANDLE) 

Select 

如 果 省 略 FILEHANDLE 的 话 ， 则 返回 当前 选 定 的 文件 句柄 ; 如 果 提 供 了 FILEHANDLE 的 话 ， 
该 图 数 将 为 write 和 print 设置 当前 默认 句柄 

参见 formatting 





























Select 


select (RBITS, WBITS, EBITS, TIMEOUT) 

检查 IO 文件 描述 符 ， 看 它 是 否 可 读 、 可 写 或 有 其 他 没有 确定 的 异常 情况 。 该 国 数 负责 规定 位 
掩 码 ， 其 中 TIME 值 以 秒 为 单位 

参见 select(2) 








Semctl 





semctl( ID, SEMNUM, CMD, ARC) 

调用 semectl 系统 调用 , 以 便 实 现 对 信号 的 控制 操作 。 它 具有 特殊 的 返 
ipc.ph 和 sem.ph 

参见 System V IPC 

参见 semctl(2) 





加 














代码 , 需要 用 到 库 文 件 
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Semget 


Semget (KEY, NSEMS, SIZE, FLAGS) 

返回 与 KEY 相关 联 的 信号 站。 如 果 调 用 错误 ， 则 返回 未 定义 值 。 需 要 用 到 库 文 件 ipcph 和 sem.ph 
参见 System V IPC 

参见 semget (2) 























Semop 


Semop (KEY, OPSTRINGO) 

调用 semop 系统 调用 ， 对 KEY 标识 的 信号 执行 指定 操作 。OPSTRING 必须 是 一 个 包装 好 的 
semop 结构 数组 。 需 要 用 到 库 文 件 ipc.ph 和 sem.ph 

参见 System V IPC 

参见 Semop (2) 











Send 


send ( SOCKET, MSG, FLAGS, TO) 
send ( SOCKET, MSG, FLAGS) 

把 一 条 消息 发 送 到 套 接 字 SOCKET 上 
参见 Send(2) 





SetpgIp 


tpgrp( PID, PGRP) 
指定 的 进程 、 进 程 组 或 用 户 设置 进程 组 信息 
见 getpgrp(2) 


党 灌 台 





Setpriority 


tpriority( WHICH, WHO, PRIORITY) 
指定 的 进程 、 进 程 组 或 用 户 设置 当 前 优先 权 或 nice 值 
见 getpriority(2) 





崇 河 对 





SetSockopt 


tsockopt( SOCKET, LEVEL, OPTNAME, OPTVAL) 
SOCKET 设置 请 求 的 套 接 字 选 项 
见 getsockopt(2) 





学 学 芭 





Shift 


Shift( ARRAY) 
Shift ARRAY 
Shift 
移出 ARRAY 的 第 一 个 值 并 返回 它 ， 同 时 让 数组 变 短 。 如 果 省 略 了 ARRAY 的 话 ， 该 
移出 @ARGYVY 数组 ; 如 果 是 在 子 例 程 中 的 话 ， 则 移出 @_ 数 组 
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内 





shmectl 


shmectl( ID, CMD, ARG) 
调用 shmetl 系统 调用 , 允许 对 共享 内 存 执行 控 制 操作 。 它 具有 特殊 的 返回 代码 。 需 要 用 到 库 文 
F ipc.ph 和 sem.ph 

见 System V IPC 

见 shmetl (2) 
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品 品 





Shmget 


CO 
| 


mget( KEY, SIZE, FLAGS) 

与 EY 相关 联 的 共享 内 存 段 ID ， 如 果 发 生 错误 ， 则 返回 未 定义 的 值 。 其 所 创建 的 共享 内 
少 拥有 SIZE 个 字 节 

函数 需要 用 到 库 文 件 ipc.ph 和 sem.ph 

见 System V IPC 

见 shmget (2) 
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Shmread 


hmread( ID, VAR, POS, SIZE) 
从 共享 内 存 段 ID 中 的 POS 位 置 开 始 读 取 SIZE 个 字 节 内 容 。 变 量 VAR 用 于 保存 读 取得 到 的 内 
容 。 该 函数 首先 会 附加 段 ， 然 后 读数 据 ， 最 后 分 离 段 。 本 国 数 需 要 用 到 库 文 件 ipc.ph 和 sem.ph 
参见 System V IPC 
参见 shmmat (2) 





帮 




















Shmwrite 


Shmwrite ( ID, VAR, POS, SIZE) 

从 共享 内 存 段 ID 中 的 POS 位 置 开 始 写 入 SIZE 个 字 节 。 变 量 VAR 用 于 保存 待 写 人 的 内 容 。 该 
国 数 首先 会 附加 段 ， 然 后 写 数据 ， 最 后 分 离 段 。 本 国 数 需要 用 到 库 文件 ipc.ph 和 sem.ph 

参见 System V IPC 

参见 shmmat (2) 























Shutdown 





Shutdown( SOCKET, HOW) 

关闭 SOCKET 连接 。 如 果 HOW 值 为 0， 则 表示 禁止 进一步 的 接收 操作 ; 如 果 HOW 值 为 1， 
则 表示 禁止 进一步 的 发 送 操作 ; 如 果 HOW 为 2， 则 禁止 进一步 的 发 送 和 接收 操作 

参见 shutdown(2) 
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〈 续 ) 
图 数 描述 
Sin( EXPR) 
Sin Sin 
返回 EXPR《〈 以 弧度 表示 ) 的 正弦 国 数 值 。 如 果 省 略 了 EXPR 的 话 , 该 函数 则 会 返回 $_ 的 sin 值 
Sleep ( EXPRJ) 
Sleep EXPR 
Sleep Sleep 
使 程序 休眠 EXPR 秒 。 如 果 省 略 了 EXPR， 程 序 将 永远 休 眼 
参见 sleep(3) 
Socket( SOCKET, DOMAIN, TYPE, PROTOCOL) 
SOCket 打开 指定 类 型 的 套 接 字 ， 并 将 它 附 加 到 文件 句柄 SOCKET 上 
参见 socket(2) 
Socketpair( SOCKET, SOCKET2 ,DOMAIN, TYPE，PROTOCOL) 
Socketpair 在 指定 域 中 创建 属于 指定 类 型 的 匿 名 连接 套 接 字 对 
参见 socketpair(2) 
Sort (SUBROUTINE LIST) 
Sort (LIST) 
Sort SUBROUTINE LIST 
Sort LIST 
Sort 对 LIST 进行 排序 ， 并 返回 排序 后 的 数组 。 如 果 省 略 了 SUBROUTINE 的 话 ， 则 按 字符 串 顺 序 
予以 排序 。 如 果 规 定 了 SUBROUTINE 的 话 ， nn 回 大 于 、 等 
于 或 小 于 0 的 子 例 程 名 称 。 两 个 待 比 较 的 元 素 将 通过 $a 和 $b 变量 传递 给 子 例 程 , 而 不 是 通过 @_ 
传递 。SUBROUTINE 不 能 是 递归 国 数 
参见 数组 国 数 
splice( ARRAY, OFFSET, LENGTH, LIST) 
splice( ARRAY, OFFSET, LENGTHI) 
SDH splice( ARRAY, OFFSET) 
在 数组 中 删除 从 OFFSET 偏 移 量 处 开始 , 以 LENGTH 结束 的 元 素 。 如 果 指 定 了 LIST, 则 以 这 
个 LIST 替换 删除 的 元 素 。 该 国 数 会 返回 从 列表 删除 的 元 素 。 如 果 没 有 规定 LENGTH 的 话 , 则 删 
除 从 OFFSET 到 ARRAY 末尾 的 所 有 元 素 
Split( /PATTERN/, EXPR, LIMIT) 
split( /PATTERN/, EXPRJ) 
split( /PATTERN/) 
Split Split 
将 EXPR 拆 分 为 含有 字符 串 的 数组 ， 并 将 它 返 回 到 一 个 数组 中 。PATITERN 是 用 于 分 隔 EXPR 
的 定 界 符 。 如 果 省 略 了 PATTERN 的 话 ， 则 使 用 空白 字符 作为 定 界 符 。LIMIT 负责 规定 拆 分 的 最 
大 分 段 数目 
$string=sprintf( FORMAT, LIST) 
Sprintf 返回 一 个 字符 串 ， 同 时 使 用 与 printf 函数 相同 的 格式 和 规范 把 输出 内 容 发 送 到 STDOUT 上 
参见 printf(3) 
sqrt ( EXPR) 
Sqrt Sqrt EXPR 
返回 EXPR 的 平方 根 。 如 果 省 略 了 EXPR 的 话 ， 则 返回 $_ 的 平方 根 
Srand ( EXPR) 
Srand EXPR. 
STand 





Srand 











为 rand 畏 数 设置 随机 启动 源 。 如 果 省 略 了 EXPR 的 话 ， 则 默认 会 以 time 函数 作为 启动 源 
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Stat 


stat( FILEHANDLE) 

stat FILEHANDLE 

stat( EXPR) 

返回 一 个 含有 13 个 元 素 的 数组 ， 由 FILEHANDLE 或 名 为 EXPR 的 文件 状态 构成 。 数 组 内 含 
有 如 下 内 容 : 


设备 
文 侣 1 言 息 结 点 (inode) 号 
文件 模式 
人 
拥有 者 的 用 户 ID 
1 ID 
始 设备 
要 香 大 和 
文件 上 一 次 访问 时 间 
文件 上 一 次 修改 时 间 
文件 上 一 次 状态 变更 时 间 
文件 系统 首选 的 IO 块 大 小 
实际 分 配 的 块 数 
参见 stat(2) 




















Study 


study( SCALAR) 

study SCALAR 

Study 

用 链 杰 和 机 他 提高 需要 重复 多 次 的 模式 匹配 的 搜索 效率 。 如 果 省 略 了 SCALAR 的 话 , 则 
默认 使 用 $_。 该 函数 最 适用 于 那些 需要 扫描 很 多 常量 字符 串 的 循环 
































Sub 


Sub NAME BLOC 开 

Sub NAME 

Sub BLOCK 

Sub NAME PROTO BLOCK 

Sub NAME PROTO 

Sub PROTO BLOCK 

前 两 个 声明 负责 指 明子 例 程 是 否 存在 ,不 返回 任何 值 。 如 果 没 有 块 的 话 ，sub NAME 就 是 一 
向 前 声明 。sub BLOCK 有 人 匿名 子 例 程 。 后 三 个 声明 与 前 面 三 个 相似 , 但 它们 能 通过 原型 来 
岂 原型 会 提醒 编译 避 ， 后 面 会 出 现 子 例 程 的 定义 ， 并 告诉 编译 器 该 子 例 程 期 

参数 数目 与 类 型 。 例 如 ，sub foo($$@) 声明 子 例 程 foo 需要 三 个 参数 ， 分 别 是 两 个 标量 型 和 

-4.9 如 果 传 递 的 参数 少 于 三 个 ， 则 会 发 生 错误 
































SubstT 


Substr( EXPR, OFFSET, LENGTHJ) 

Substr( EXPR, OFFSET) 

从 EXPR 中 提取 OFFSET 处 的 子 串 ， 并 返回 得 到 的 子 串 。 如 果 规定 了 LENGTH 的 话 ， 则 从 
开始 获取 长 度 为 LENGTH 的 子 串 。 如 果 OFFSET 为 负数 的 话 ， 则 表示 从 字符 串 的 末尾 
开始 提取 





























Symlink 


symlink( OLDFILE, NEWFILE) 
创建 符号 链接 。NEWEFILE 将 是 OLDFILE 的 符号 链接 。 这 两 个 文件 可 以 驻 留 在 不 同 的 分 
参见 symlink(2) 
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SYScall 


SyScall( LIST) 

SyScall LIST 

调用 指定 的 LIST 中 第 一 个 参数 的 系统 调用 。 该 列表 中 的 系统 调用 都 以 &SYS_ 开 头 ,譬如 系统 
调用 &SYS_system。LIST 中 其 余 的 项 则 是 传递 给 该 系统 调用 的 参数 。 本 函数 需要 用 到 syscall. ph 

















SYSOpen 





SySopen( FILEHANDLE, FILENAME, MODE) 

Sysopent 全 次 FILENAME, MODE, PERMS) 

使 用 底层 操作 系统 版 本 中 的 open 调用 打开 文件 句柄 FILEHANDLE。 文件 模式 与 具体 用 到 的 系 
统 有 关 ， 可 以 站 在 Fcntl 库 中 找到 。 0 表示 只 读 、 1 表示 只 写 、 2 表示 可 读 :/ 写 。 如 果 省 略 了 了 PERMS 

的 话 ; 则 默认 权限 为 0666 
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SYSTead 


SySTread(FILEHANDLE, SCALAR, LENGTH, OFFSET) 

SySread(FILEHANDLE, SCALAR, LENGTHI) 

从 文件 句柄 FILEHANDLE 中 读 取 LENGTH 个 字 节 到 变量 SCALAR 中 。 它 用 到 了 read 系统 调用 
见 read(2) 











SYSSeek 


SySseek (FILEHANDLE, POSITION, WHENCE) 

使 用 系统 调用 lseek 设置 文件 句柄 FILEHANDLE 的 系统 位 置 ,并 绕 过 标准 IO。 如 果 WHENCE 
值 为 0， 则 将 新 位 置 设置 为 POSITION 处 ;如 果 是 1， 则 设置 为 当前 位 置 加 上 POSITION;， 如果 
是 2， 则 设置 为 EOF 加 上 POSITION 〈 往 往 是 一 个 负数 ) 

















System 


System( LIST) 

System LIST 

从 Perl 脚本 中 执行 一 段 shell 命令 并 返回 其 结果 。 es“ exec 国 数 ,但 它 首 先进 和 
并 且 让 脚本 等 待命 令 执 行 完毕 ， 然后 才 把 控 汪 上 权 交 回 给 脚本 。 其 返回 值 是 脚本 的 退出 状态 
过 除 以 256 或 者 右 移 低 八 位 来 获得 

参见 System(3) 



































SYSWriite 


syswrite (FILEHANDLE, SCALAR, LENGTH, OFFSET) 

syswrite (FILEHANDLE, SCALAR, LENGTHD) 

SySWrite (FILEHANDLE, SCALAR) 

将 变量 SCALAR 中 LENGTH 个 字 节 写 入 文件 句柄 ELEEE AN 中 , 并 返回 写 入 句柄 的 字 节 
数 。 如 果 规 定 了 OFFSET 的 话 ， 则 从 偏 移 量 OFFSET 处 开始 。 它 需要 用 到 write 系统 调用 

参见 write(2) 














tell 


tell( FILEHANDLE) 

tell FILEHANDLE 

tell 

返回 FILEHANDLE 当前 文件 位 置 处 的 字 节 值 ( 从 字 闻 0 开始 )。 一 般 应 当 把 返回 值 传递 给 seek 
函数 ， 以 便 返 回 到 文件 内 的 某 个 位 置 上 









































telldir 


telldir ( DIRHANDLE) 

telldir DIRHANDLE 

返回 目录 结构 DIRHANDLE 上 readdir 国 数 的 当前 位 置 
参见 directory(3) 
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tie 





tie( VARIABLE, CLASSNAME, LIST) 

把 某 个 变量 VARIABLE 绑 定 到 一 个 包 (CLASSNAME ) 上 , 以 便 在 实现 其 方法 时 可 以 使 用 该 变 
LIST 由 构造 对 象 时 传递 名 给 新 方法 的 参数 构成 。 该 函数 常用 于 关联 数组 ,用 于 将 它 绑 定 到 才 据 库 下 。 其 
中 的 方法 在 包 中 有 具有 预先 定义 的 名 称 。 在 读 取 、 存 储 或 撤销 绑 定 时 ， 将 自动 调用 这 些 预定 义 的 方法 

实现 关联 数组 的 包 提 供 了 下 列 方法 : 

TIEHASH $classname, LIST 
DESTROY $self 
FETCH $self $key 
STORE $self $key 
DELETE $self, $key 
EXISTS $self $key 
FIRSTKEY $self 
NEXTKEY $self, $lastkey 
为 数组 提供 了 如 下 方法 : 
TIEARRAY $classname, LIST 
DESTROY $self 
FETCH $self, $subscript 
STORE $self, $subscript, $value 
为 标量 提供 了 如 下 方法 : 
TIESCALAR $classname, LIST 
DESTROY $self 
FETCH $self 
STORE $self, $value 
示例 : 
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〈 续 ) 
国 数 描述 
S$object = tie Ss$hash，Myhashclass 
while ($key，，S$value)=each (shash){ 
PLint "$key， S$valueNn" 上 InVokes the FETCT metphoa 
tie S$object = tie QQarray， Myarrayclass 
S$array[0]=5 # InokesS the S7TOR metpoa 
Sobject = tie S$scalar，Myscalarclass 
untie S$SscalaL # IDoKkes the DESTROY methoa 
tied VARIABLE 
tied 返回 一 个 引用 ,指向 之 前 使 用 tie 函数 连接 的 对 象 。 如 果 VARIABLE 尚未 连接 到 包 的 话 ， 则 返 
回 未 定义 值 
time 
定语 返回 一 个 4 元 素 的 数组 ， 含 有 从 1970 年 1 月 1 日 起 算 的 UTC 非 头 秒 时 间 。 用 于 gmtime 和 
localtime 国 数 
参见 ctime(3) 
times 
times 返回 一 个 4 元 素数 组 ， 负 责 以 秒 为 单位 告诉 用 户 当前 进程 及 其 子 进 程 的 CPU 时 间 
参见 timesd) 
tr/SEARCHPATTERN/REPLACEMENT/[c][dj[e] 
y/SEARCHPATTERN/REPLACEMENT/[cj[dj[e] 
将 SEARCHPATTERN 中 的 字符 替换 为 REPLACEMENT 中 的 对 应 字符 。 类 似 于 UNIX 中 的 tf 命令 
truncate (FILEHANDLE, LENGTHJ) 
位 语 Ee truncate ( EXPR, LENGTHI) 
将 FILEHANDLE 或 EXPR 的 内 容 截 短 为 指定 的 长 度 
参见 truncate(2) 
Uc EXPR 
uc 返回 EXPR 的 大 写 形式 〈 如 果 设 有 提供 EXPR 的 话 ， 则 返回 $_ 的 大 写 形式 )。 该 国 数 与 \U\E 
转 义 序列 功能 相同 
人 ucfirst EXPR 
返回 EXPR 首 字母 大 写 后 的 结果 《〈 如 果 没 有 提供 EXPR 的 话 , 则 处 理 $_)。 等 效 于 \u 转 义 序列 
umask ( EXPR) 
umask EXPR. 
Umask QUmask ae 这 3 和 
为 进程 设置 mask (或 为 文件 创建 扼 码 )， 并 返回 旧 的 umask。 当 省 略 了 EXPR 时 ， 该 函数 将 
只 返回 当前 的 umask 掩 码 值 
参见 umask(2) 
undef ( EXPR) 
undef EXPR 
undef Undef 
EXPR 未 定义 ， 即 lvalue。 可 用 于 标量 、 数 组 、 散 列 或 子 例 程 名 〈&subroutine)， 以 便 恢 复 与 
之 关联 的 存储 空间 。 该 国 数 始终 返回 未 定义 值 。 当 在 子 例 程 中 使 用 该 国 数 返 回 时 ， 亦 可 用 于 判断 
是 否 发 生 了 错误 
unlink (LIST) 
unlink LIST 
unlink unlink 
删除 LIST 中 列举 的 文件 ， 并 返回 删除 的 文件 数目 。 如 果 没 有 提供 参数 的 话 ， 则 断 开 $_ 变量 值 的 连接 
参见 unlink(2) 
unpack( TEMPLATE, EXPR) 
0 对 代表 结构 的 字符 串 进行 解压 ， 将 它 展开 为 数组 ， 并 返回 数组 值 。 该 函数 使 用 TEMPLATE 来 
获得 值 的 顺序 和 类 型 。 该 国 数 与 pack 国 数 功能 相反 
参见 pack 
人 unshift (LIST) 
unshift 将 LIST 添加 到 数组 的 开头 位 置 ， 并 返回 新 数组 中 的 元 素数 目 
涟 全 站 VARIABLE 
断 开 变量 与 包 之 间 的 连接 ， 其 功能 与 tie 相反 




















































































































































































































































































































640 有 附录 A 
〈 续 ) 
函数 描述 
use MODULE VERSION LIST 
use MODULE LIST 
Use MODULE 
use MODULEO 
Use Use pTagma 
这 是 一 个 编译 器 指 负责 从 MODULE 中 将 其 子 例 程 和 变量 导入 到 当前 的 包 。VERSION 是 
Perl 的 当前 版 本 号 。 含有 当前 包 需 要 导入 的 变量 和 子 例 程 的 实际 名 称 。 如 果 不 想 向 命名 空 间 
中 导入 任何 东西 ， 册 可 使 用 空 参数 。-m 和 -M 标记 可 以 在 命令 行 中 代办 use。 编 译 指 示 是 一 种 特 
殊 的 模块 ， 可 以 在 编译 时 影响 语句 的 行为 。 常 用 的 三 个 编译 指示 包括 : integer、subs 和 strict 
utime ( LIST) 
utime utime LIST 
更 改 列 表 中 各 个 文件 的 访问 时 间 和 修改 时 间 。LIST 的 前 两 个 元 素 是 数值 型 的 访问 时 间 和 修改 时 间 
values( %ASSOC_ARRAY) 
values values ASSOC ARRAY 
返回 一 个 数组 ， 该 数组 由 关联 数组 ASSOC_ARRAY 中 所 有 的 值 以 随机 顺序 排列 而 成 
Vec 全 OFFSET, BITS) 
本 将 字符 串 EXPR 当 作 无 符号 整数 向 量 进 行 处 理 。 该 函数 将 返回 指定 元 素 的 值 。OFFSET 是 为 了 
找到 所 需 元 素 而 应 当 跳 过 的 元 素数 目 。BITS 是 向 量 中 每 个 元 素 的 比特 数 。BITS 必须 是 介 于 1 到 
32 之 间 的 2 的 整数 需 ， 即 1、2、4、8、16 或 32 
Wait 
人 等 待 子 例 程 执行 结束 。 该 函数 会 返回 结束 进程 的 pid; 如 果 没 有 子 例 程 的 话 ， 则 返回 -1。 甚 退 
出 状态 值 将 返回 到 变量 $? 中 
参见 wait(2) 
waitpid( PID, FLAGS) 
ER 等 待 子 例 程 执行 结束 ， 并 返回 进程 结束 时 间 。 如 果 没 有 子 例 程 ， 或 者 FLAGS 规定 为 非 阻塞 而 进程 
? 已 经 结束 的 话 ， 该 国 数 就 会 返回 -1。 甚 退出 状态 值 将 返回 到 变量 $? 中 。 该 函数 需要 用 到 sys/waitph 
参见 wait(2) 
WantarTay 
wantarITay 果 当 前 运行 的 子 例 程 需要 返回 数组 值 的 话 , 返回 在 也 就 是 要 把 子 例 程 的 返回 值 赋值 给 数组 。 
如 果 要 得 到 的 是 标量 值 的 话 ， 返 回 假 。 例 如 : ， wantarray72 (): undef 
warn (LIST) 
warn warn LIST 
发 送 警 告 消息 到 STDERR， 类 似 于 die 函数 ， 但 它 不 退出 程序 
write (FILEHANDLE) 
write FILEHANDLE 
Wiite 
write 将 格式 化 后 的 记录 写 入 到 文件 句柄 FILEHANDLE 或 当前 选 定 的 FILEHANDLE 中 ;， 即 不 加 参 
数 地 为 FILEHANDLE 调用 相应 的 格式 了 1 其 输出 内 容 可 以 写 入 STDOUT， 亦 可 写 入 由 
select 国 数 选 中 的 当前 FILEHANDLE 中 。 国 数 与 系统 调用 write(2) 无 关 
参见 Syswrite 
y/SEARCHPATTERN/REPLACEMENT/[cj[dj[e] 
y 将 SEARCHPATTERN 中 的 字符 栋 换 为 REPLACEMENT 中 的 对 应 字符 。 也 称 作 tf， 类似 于 
UNIX 中 的 tf 命令 或 sed y 命令 
A.2 ”特殊 变量 
表 A-2 文件 句柄 
变 量 ] 途 
$| 如 果 非 0， 则 在 对 当前 选 定 的 文件 执行 写 或 打印 操作 后 强制 清除 缓冲 区 
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〈 续 ) 
变 量 用 途 
$% 当前 选中 文件 句柄 的 当前 页 码 
$= 当前 选中 文件 句柄 的 当前 页 面 长 度 
$- 当前 选中 文件 句柄 的 页 面 剩余 长 度 
$~ 当前 选中 文件 句柄 的 报表 格式 名 称 
$^ 当前 选中 文件 句柄 的 当前 页 眉 格 式 名 称 
表 A-3 块 内 局 部 变量 
恋 “ 量 用 途 
$1..$9 含有 与 应 用 对 应 的 一 组 括号 的 子 记忆 模式 。( 等 效 于 \1..\9) 
$& 上 一 次 与 模式 相 匹配 的 字符 串 〈 等 效 于 sed 编辑 器 ) 
3 上 一 次 与 模式 相 匹配 的 项 的 前 导 字符 串 
$' 上 一 次 与 模式 相 匹配 的 项 之 后 的 字符 串 
$+ 与 搜索 模式 相 匹配 的 最 后 一 个 模式 
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表 A-4 全 局 变量 
变 量 用 途 
$_ 默认 的 输入 和 模式 搜索 空间 
9. 个 文件 句柄 的 当前 输入 行 号 ， 必 须 在 关闭 前 一 个 文件 句柄 后 才能 对 下 一 个 文件 句柄 
3/ 输入 记录 的 分 隔 符 ， 黑 认为 换行 符 《〈 类 似 于 awk 中 的 RS) 
忆 打印 函数 的 输入 记录 分 陋 符 。 除 非 设置 了 S= "mn"， 否 则 不 会 打印 换行 符 








$， 打印 国 数 的 输出 字段 分 隔 符 。 一 般 在 以 逗号 隔 开 的 字符 串 中 不 打印 其 定 界 符 ， 除 非 设置 了 $="" 
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〈 续 ) 
变 量 用 途 

人 与 $, 类 似 ， 但 它 是 在 双 引 号 中 提供 打印 数组 的 ， 默 认 值 为 空格 

$# 使 用 打印 函数 打印 的 数字 输出 格式 〈 类 似 于 awk 中 的 OMFT) 

3$ 运行 本 脚本 的 Perl 程序 进程 ID 

3$? 上 一 个 关闭 的 管道 、 反 引号 中 的 命令 以 及 系统 函数 的 返回 状态 

3* 默认 值 为 0。 如 果 为 1 的 话 ， 表 示 在 字符 串 中 进行 多 行 匹配 ;0 表示 只 在 单行 中 匹配 
$0 Perl 脚本 名 

3[ 指向 数组 或 子 串 的 第 一 个 字符 的 索引 ， 默 认 值 为 0 

$] 当 使 用 Perl-v 命令 获得 版 本 信息 时 打印 出 字符 串 的 第 一 部 分 

$; 多 维 数组 的 下 标 分 隔 符 。 默 认为 \034〈 类 似 于 awk 的 SUBSEP) 

$! 如 果 是 数字 ， 产 生 errno 〈 系 统 错误 号 ) 的 当前 值 ， 以 及 与 之 对 应 的 系统 错误 字符 串 
3@ 上 一 个 eval、do 或 require 函数 产生 的 错误 消息 

$< 进程 的 实际 uid 

$> 进程 的 有 效 uid 

8 进程 的 实际 gid 

9) 进程 的 有 效 gid 

S: 字符 集 ， 将 其 后 的 字符 串 断 开 ， 并 以 某 种 格式 填 入 连续 的 行 〈 从 ^ 处 开始 )。 黑 认 是 以 空白 字 

符 、 换 行 符 或 冒号 上 隔 开 的 \m- 

S$^A formline 和 write 操作 的 累加 器 

3$^C 如 果 Perl 使 用 -ec 选项 在 只 编译 的 模式 下 运行 ， 则 返回 TRUE 

$^D 使 用 -D 开关 打开 Perl 调试 标记 

3$^E 操作 系统 的 相关 出 错 信息 

$^F 传递 给 子 例 程 的 最 大 文件 描述 符 数 ， 一 般 是 2 

$^H 语法 检查 的 当前 状态 

S$^I 在 使 用 -ii 开关 时 ， 原 位 编辑 扩展 的 当前 值 

$^L 进 纸 符 ， 用 在 格式 中 
$^M 紧急 内 存 池 

$^0 操作 系统 名 

$^P 内 部 Perl 调试 标记 

$^S Perl 解释 器 的 状态 

SAT 膨 本 执行 时 间 。 用 于 一 A、 -CC 和-M 测试 运算 符 ， 可 设置 为 time 返回 的 任何 数字 值 ， 执 行 

与 当前 时 间 有 关 的 文件 测试 











$^V Perl 版 本 
S$^W 警告 开关 的 当前 设 定 情况 
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( 续 ) 
变量 用 和 途 
$^XX Perl 调用 的 全 路 径 名 
几 下 划 线 ， 负 责 在 声明 文件 时 测试 文件 的 特殊 标志 符 
ARGV 用 于 行 参数 循环 的 特殊 文件 句柄 数组 
$ARGYV 从 <ARGV> 读 取 时 ， 含 有 当前 文件 名 的 变量 
@ARGYV 含有 命令 行 参数 的 数组 
DATA 一 个 特殊 文件 句柄 变量 ， 负 责 引 用 _END_ 标志 后 面 的 内 容 
CF 在 使 用 -a 开关 时 ， 自 动 拆 分 输入 行 所 得 到 的 数组 
@INC 一 个 含有 文件 名 路 径 的 数组 ，require 和 do 函数 将 从 中 搜索 将 要 导入 的 文件 名 路 径 
o%TNC 一 个 含有 文件 名 路 径 的 关联 数组 ，require 和 do 函数 将 从 中 搜索 将 要 导入 的 文件 名 路 径 。 甚 
中 键 是 文件 名 ， 值 是 文件 路 径 位 置 
%ENV 含有 当前 环境 变量 的 关联 数组 
@EXPORT 导出 时 的 默认 符号 














CEXPORT OK 根据 用 户 请 求 而 导出 的 符号 

%EXPORT TAGS 用 于 Exporter.pm 中 ， 负 责 对 符号 集合 统一 命名 
%SIG 用 于 设置 信号 处 理 例 程 的 关联 数组 

STDERR 用 于 标准 出 错 内 容 的 特殊 文件 句柄 

用 

用 











STDIN 于 标准 输入 的 特殊 文件 句柄 


于 标准 输出 内 容 的 特殊 文件 句柄 
































STDOUT 





A.3 Perl 编译 指示 


编译 指示 是 一 种 特殊 的 “ 伪 ” 横 块 ， 负 责 规定 编译 如 的 行为 。use declaration 用 于 将 编译 器 指 
定 〈 又 称 编译 指示 ) 导入 到 Perl 程序 中 。 编 译 指示 规定 了 如 何 编译 语句 块 ; 它们 是 针对 词法 的 ， 其 
作用 域 仅 限于 所 在 的 代码 块 ， 用 户 可 通过 no 指定 予以 关闭 。 编 译 指示 的 名 称 一 般 都 是 小 写 的 。 表 
A-5 列 出 了 部 分 Perl 编译 指示 。 











表 A-5 Perl 编译 指示 












































编译 指示 用 途 

use autouse 提供 了 一 种 机 制 ， 使 得 只 有 调用 模块 中 的 函数 才能 在 运行 时 加 载 该 模块 

Use base 让 程序 员 根 据 编 译 时 列 出 的 父 类 声明 派生 类 , 从 而 不 再 需要 使 用 require。 例 如 ， 
use base qw(A B); 等 效 于 BEGIN{f require A; requireB::push(@ISA, qw(A B));} 

Use bytes 在 Perl 5.6 之 前 , 所 有 字符 串 都 当 作 一 系列 字 节 来 处 理 。 现 在 , 字符 串 可 以 含有 
比 数字 编码 字 节 范围 更 广 的 字 节 。bytes 编译 指示 用 于 规定 代码 使 用 上 述 旧 的 面向 
字 节 的 语义 

Use constant 声明 一 个 命名 符号 ， 代 表 指 定 的 标量 或 列表 和 常量。 例如: 


Use constant BUFFER_SIZE=>4096; 
Use constant OS=> 'Solaris'; 
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( 续 ) 
编译 指示 用 途 

use diagnostics 在 Perl 编译 器 和 解释 器 发 出 的 诊断 信息 之 外 ， 强 制 显 示 更 详细 的 信息 。 由 于 它 
只 能 影响 到 最 内 层 的 块 ， 因 此 一 般 需 要 把 编译 指示 放 在 程序 开头 位 置 。 不 能 使 用 
no diagnostics 

Use integer 这 是 一 个 词法 域 的 编译 指示 ， 告 诉 编译 器 以 整数 算术 处 理 所 有 的 算术 操作 ， 即 
在 执行 这 些 操作 时 侈 去 序 点 数 的 小 数 部 分 

use locale 这 是 一 个 词法 域 的 编译 指示 ， 告 诉 编译 绒 在 处 理 正 则 表达 式 、 内 建国 数 或 字符 
转换 等 操作 时 启用 或 关闭 POSIX 现场 

use 0pen 声明 一 个 或 多 个 LO 操作 的 规范 ， 当 前 支持 的 两 种 规范 是 :raw 和 :ctlf 

use OVerload 负责 在 使 用 对 象 时 重新 定义 内 建 操作 的 亩 义 。 有 关 重 载运 算 符 的 示例 请 读者 参 
见 标准 Perl 库 中 的 Math::BigFloat 

UsSe Strict Vars' 使 用 "vars' 参数 ， 要 求 必须 使 用 词法 变量 (my) 或 带 有 包 名 和 作用 域 运算 符 的 
完全 限定 的 变量 名 与 导出 变量 ， 否 则 就 会 编译 出 错 

use strict 'Tef 如 果 脚 本 中 用 到 了 符号 引用 的 话 ， 则 产生 运行 时 错误 ， 和 譬如 typeglob 

use Strict 'Subs' 如 果 用 到 了 裸 字 (bareword) 并 且 它 不 是 预先 定义 的 子 例 程 或 文件 句柄 的 话 , 就 
触发 编译 时 错误 

use Strict 如 果 用 到 了 符号 引用 、 声 明了 非 词 法 变量 或 者 用 到 了 非 子 例 程 或 文件 句柄 的 裸 
字 的 话 ， 则 产生 编译 时 错误 

use vars qw(listb) 在 引入 our 之 前 用 于 声明 全 局 变量 

use warnings 这 是 一 个 词法 域 的 编译 指示 ， 告 诉 编译 器 更 灵活 地 控制 Perl 的 内 建 警 告 ， 璧 
如 -ww 开关 或 者 $^W 变量 

use lib 'library path' 在 编译 时 载 入 库 ， 而 不 是 在 运行 时 载 入 

use sigtrap 'signal names' 指定 一 组 符号 处 理 程序 ， 用 于 初始 化 列 出 的 符号 。 如 果 不 使 用 一 组 默认 符号 作 














为 参数 的 话 ， 则 会 打印 程序 堆栈 信息 ， 并 发 出 ABRT 信号 

















use Subs qw ( Subroutine list) 预先 声明 的 子 例 程 列表 ， 使 得 可 以 不 用 括号 来 调用 列 出 的 子 例 程 ， 并 有 覆盖 原 有 
的 内 建 函 数 
no integer 如 需 关 闭 或 不 输出 编译 指示 ， 只 需 在 该 编译 指示 前 面 加 上 no 即 可 




















A.4 Perl 模块 


表 A-6 ”编程 通用 模块 

















模 块 描述 
Benchmark 检查 并 比较 运行 代码 的 CPU 时 间 速 度 
Config 访问 %Config 散 列 的 Perl 配置 选项 
Env 将 %ENYV 散 列 转换 为 含有 环境 变量 的 标量 ， 璧 如 把 SENV{HOME} 转换 为 标量 SHOME 
English 提供 特殊 变量 的 English 或 awk 名 称 。 例 如 ，$0 可 用 SPROGRAM_NAME 来 命名 
Getopt 使 用 参数 处 理 命令 行 选 项 和 开关 
Shell 在 Perl 脚本 中 负责 以 子 例 程 的 形式 执行 shell 命令 。 例 如 ，$today=date(); 
Symbol 使 用 gensym() 产生 匿名 glob， 并 使 用 qualify(O) 来 限定 变量 名 
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表 A-7 CGI 
模块 描述 

CGI CGI 通用 网 关 接 口 ) 类 

CGI::Apache 用 于 CGI.pm 和 Perl-Apache API 

CGI::Carp 用 于 处 理 HITP 出 错 销 息 ， 并 负责 产生 错误 日 志文 件 

CGI::Cookie 与 Netscape cookies 进行 交互 

CGI::Fast 与 Fast Perl 接口 进行 交互 

CGI::Pretty 产生 Pretty 格式 的 HIML 代码 

CGI::Push 到 服务 器 Push 的 简单 接口 

表 A-8 错误 处 理 
模块 描述 
Carp 产生 类 似 于 die 的 错误 消息 ， 报 告发 生 错误 的 调用 例 程 的 行 号 。 可 从 该 模块 中 调用 的 子 例 程 
包括 carp(O)、croak(0 和 confess(O) 
Errno 加 载 libc 的 errno.h 定义 
Sys::Syslog 提供 与 UNIX syslog(3) 交互 的 Perl 接口 
表 A-9 文件 处 理 
模块 描述 

Cwd 获得 当前 工作 目录 的 路 径 名 。 如 用 于 -w 开关 ， 则 会 产生 错误 消 息 
DirHandle 为 目录 句柄 提供 面向 对 象 的 接口 
Fcntl 加 载 libe 的 fcntlh 《文件 控制 ) 定义 
File::Basename 将 文件 名 拆 分 为 多 个 组 成 部 分 ， 或 者 从 全 目录 路 径 中 提取 文件 名 或 目录 名 
File::CheckTree 对 目录 树 中 的 其 个 文件 集合 执行 文件 测试 操作 
File::Copy 用 于 拷贝 文件 或 文件 句柄 
File::DosGlob 进行 类 似 于 DOS 的 glob 操作 
File::Find 用 于 在 UNIX 文件 树 中 查找 
File::Finddepth 深度 优先 搜索 文件 系统 
File::Glob 对 UNIX 文件 名 进行 glob 操作 
File::Path 创建 或 删除 一 系列 目录 
File::Spec 对 文件 名 进行 移植 操作 
FileCache 允许 打开 比 系 统 允 许 的 数量 更 多 的 文件 
FileHandle 为 文件 句柄 访问 方法 提供 面向 对 象 的 接 
SelectServer 保存 和 恢复 选择 的 文件 句柄 
flush.pl 写 和 文件 句柄 缓冲 区 中 剩余 的 所 有 数据 ， 或 者 在 打印 表达 式 后 清除 缓冲 区 
pwd.pl 使 用 chdir 后 将 PWD 环境 变量 设置 为 当前 的 工作 目录 
stat.p1 将 stat 函数 返回 的 值 研 值 给 标量 : $st dev、$st ino、$st mode、9$st_ nlink、$st_ uid、 














$st rdev、9$st_atime、$st_mtime、y$st_ctime、$st_ blksize、$st_blocks 
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模块 
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表 A-10 文本 处 理 


描 





Pod::Text 
Search::Dict 


Term::Complete 


Text::Abbrev 


的 选 


将 Pod 文档 转 
在 目录 文件 中 











换 为 ASCII 格式 的 文档 








遇 索 字符 串 〈 按 照 字母 表 顺 序 )， 寺 











为 了 提示 用 户 ， 

















择 ， 以 便 提 供 类 似 于 文 从 
创建 缩 略 表 ， 它 是 由 列表 j 








可 通过 按 下 Tab 键 完成 其 余部 分 
F 名 补 齐 功 能 的 接口 
的 键 / 值 对 构成 的 散 列 。 





其 中 的 键 是 缩写 内 容 , 值 是 原 字 符 串 


将 文件 指针 设置 到 下 一 行 
的 输入 ， 或 通过 按 下 <Ctrl>-d 完成 列表 





Text::ParseWords 


Text::Soundex 


Text::Tabs 


Text::Warp 





譬如 ma/mail、mo/more 
像 shell 一 样 把 一 行文 本 
将 一 个 字 映 射 为 长 度 为 四 个 字符 的 与 该 字 发 音 完全 对 应 的 代码 


摆 析 为 一 系列 词语 ， 同 时 忽略 开头 的 空白 




















将 制 表 符 扩展 为 空格 ， 或 者 不 把 制 表 符 扩展 为 空格 
将 文本 换行 为 独立 的 段落 








数据 库 接口 


模块 


表 A-11 


描述 





AnyDBM_File 




















一 个 基于 UNIX 系统 的 模块 ， 提 供 了 多 种 DBM 架构 

































































DB_File 提供 对 Berkeley DB 管理 系统 的 访问 手段 。 参 见 ftp://ftp.cs.berkeley.edu/ucb/4bsd 
DBI 返回 系统 上 的 数据 库 列 表 及 其 驱动 程序 ， 用 于 与 数据 库 交 互 
GDBM File 提供 对 GUN 数据 库 管 理 系统 的 访问 手段 。 参 见 ftp://prep.ai.mit.edu/pub/gnu 
NDBM_File 一 个 基于 UNIX 系统 的 模块 ， 提 供 了 与 NDBM 文件 交互 的 手段 
ODBM_File 一 个 基于 UNIX 系统 的 模块 ， 提 供 了 与 ODBM 文件 交互 的 手段 
SDBM _File 一 个 基于 UNIX 系统 的 模块 ， 提 供 了 与 SDBM 文件 交互 的 手段 
表 A-12 数学 
模块 描述 
bigrat.pl 对 分 数 启用 无 限 精 度 运算 
Math::BigFloat 支持 任意 大 小 的 浮 点 运算 
Math::BigInt 支持 任意 大 小 的 整数 运算 
Math::Complex 支持 复杂 的 数字 ， 并 展示 运算 符 重 载 
Math::Trig 支持 三 角 函 数 
表 A-13 网 络 
村 
chat2.pl 多 许 Perl 操纵 交互 式 的 网 络 服务 ， 如 FTP 
comm.pl 比 chat2.p1 版 本 更 新 。 人 允许 Perl 操纵 交互 式 的 网 络 服务 
IPC::Open2 打开 进程 进行 读 写 ， 使 得 能 够 与 外 部 程序 相互 传输 数据 
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〈 续 ) 
模块 描述 
IPC::Open3 打开 进程 进行 读 写 或 处 理 错误 信息 ， 使 得 能 够 与 外 部 程序 相互 传输 数据 
Net::Ping 检查 远程 主机 是 否 开 启 
Socket 创建 套 接 字 ， 为 进程 间 通 信 导 入 套 接 字 方 法 ， 并 加 载 socketh 头 文件 


Sys::Hostname 





获得 系统 的 主机 名 


表 A-14 时间 和 位 置 



























































模块 描述 
II18N::Collate 根据 当前 时 区 比较 8 比特 的 标量 数据 
Time::gmtime 使 用 Perl 内 建国 数 gmtime() 的 接口 
Time::Local 根据 本 地 GMT (UTC) 时 间 计 算 UNIX 时 间 〈 从 1970 年 1 月 1 日 开始 非 装 秒 数 ) 
Time::localtime 使 用 Perl 内 建国 数 localtime 的 接口 
表 A-15 终端 
模块 描述 
Term::Cap 提供 操作 终端 配置 的 底层 功能 ， 指 向 termcap 数据 库 的 终端 接 
表 A-16 面向 对 象 的 模块 函数 
模块 描述 
Autoloader 对 于 大 模块 ， 将 只 加 载 需要 的 部 分 
AutoSplit 为 了 支持 自动 加 载 ， 将 模块 拆 分 为 指定 字 节 大 小 的 程序 块 


Devel::SelfStubber 
DynaLoader 
EXporterT 

Overload 

Tie::Hash 
Tie::Scalar 


Tie::SubstrHash 




















为 自 加 载 模块 生成 代码 存根 ， 以 便 在 调用 方法 时 能 顺利 加 载 











] 于 自动 和 动态 加 载 模块 
供 其 他 模块 使 用 ， 负 责 导 入 方法 和 变量 ， 以 便 使 之 可 月 


























j 














载 算术 操作 
提供 将 散 列 与 包 相 连接 的 方法 
提供 将 标量 与 包 相 连接 的 方法 








为 含有 常量 键 和 记录 大 小 的 数组 提供 类 似 于 散 列 的 接 











表 A-17 语言 扩展 














模块 描述 
ExtUtils::Install 用 于 安装 和 利 载 与 平台 相关 的 Perl 扩展 
ExtUtils::Liblist 决定 使 用 的 库 ， 以 及 如 何 使 用 它们 














































































































048 古村 人 
〈 续 ) 
模块 描述 

ExtUtils::MakeMaker 在 扩展 库 中 为 Perl 扩展 创建 Makefile 

ExtUtils::Manifest 自动 维护 由 文件 名 列表 构成 的 MANIFEST 文件 

ExtUtils::Miniperl 编写 舍 有 引导 程序 文件 的 C 代码 perlmain.c， 用 于 创建 供 Perl 模块 使 用 的 存档 库 

ExtUtils::Mkbootstrap 从 扩展 的 Makefile 中 调用 ， 负 责 创 建 引导 程序 文件 ， 以 便 动 态 加 载 某 些 系统 

ExtUtils::Mksysmlists 编写 在 创建 动态 扩展 的 共享 库 时 所 要 用 到 的 一 些 链接 的 linker 选项 文件 

ExtUtils::MM_OS2 覆盖 方法 的 实现 ， 并 影响 UNIX 行为 

ExtUtils::MM_UNIX 用 于 MakeMaker， 负 责 为 UNIX 与 非 UNIX 系统 提供 方法 

ExtUtils::MM_VMS 覆盖 方法 的 实现 ， 并 影响 UNIX 行为 

Fcntl 翻译 C 的 fcntl 头 文件 

POSIX 为 IEEE std 1003.1 标识 符 提供 Perl 处 理 接口 

Safe 提供 私有 分 隔 区 域 ， 用 于 评估 不 安全 的 Perl 代码 


Test::Harness 

















用 于 MakeMaker， 负 责 测 试 运 行 Perl 扩展 ， 并 生成 诊断 信息 


A.5 ”命令 行 开 关 


表 A-18 ”命令 行 开 关 


描述 





开关 项 
-0 
-a 
5 
-d 
-D 


-e command 
-F pattern 


-h 


-1 extenslion 


-I directory 


-] digits 


规定 记录 分 隔 符 


与 -mn 或 者 -p 一 起 使 用 ， 负 责 打 开 自 动 拆 分 模式 ， 用 于 对 空白 字符 进行 隐 式 拆 分 ， 并 将 字段 放 
入 数组 @F 中 ， 例 如 : 
date | Perl -ane 'print "$F[0]\n"; 


只 检查 Perl 脚本 语法 ， 而 不 执行 脚本 
对 脚本 打开 Perl 调试 器 


设置 Perl 的 调试 标记 《〈 请 先 检查 Perl 的 安装 情况 ， 确 保 已 经 安装 了 调试 器 )。 若 要 观察 Perl 
是 如 何 执行 脚本 的 ， 可 使 用 -D14 


用 于 在 命令 行 而 不 是 在 脚本 中 执行 Perl 命令 
规定 拆 分 输入 行 时 使 用 的 模式 。 模 式 是 位 于 斜 枉 、 单 引号 或 双 引 号 之 间 的 正则 表达 式 。 例 
如 ，-E/+/ 表 示 在 一 个 或 多 个 冒号 上 拆 分 输入 行 。 如 果 -a 仍然 起 作用 的 话 ， 则 打开 它 


打印 Perl 的 命令 行 选项 列表 
在 使 用 <> 循环 遍历 文件 时 启用 原 位 编辑 模式 。 如 果 没 有 规定 扩展 名 的 话 , 则 原 位 修改 各 行内 


































































































容 。 否 则 使 用 扩展 名 来 修改 输入 文件 名 《以 便 充 当 备 份 文件 )， 并 使 用 原 位 编辑 的 原文 件 名 创建 
输出 文件 。 这 也 是 所 有 print 语句 选择 的 文件 句柄 














与 -P 选项 一 起 使 用 , 负责 告诉 C 预 处 理 程序 查找 包含 的 文件 , 其 默认 目录 包括 /usr/included、 
/usrlib/Perl 以 及 当前 目录 

启用 自动 行 结束 处 理 。 如 果 使 用 了 -n 或 -p 选项 , 则 去 折 行 终止 符 。 把 位 数 〈 八 进 制 ) 赋值 给 
$\,， 并 将 行 终止 符 添 加 到 print 语句 中 。 如 果 设 有 规定 位 数 的 话 ,， 则 将 吧 设置 为 $/ 的 当前 值 〈 参 
见 表 A-2“ 特 殊 变 量 ”) 
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〈 续 ) 
开关 项 描述 
-m [-] module 
-M [-] module 
-M [-] module' 
-[mM] module = 
arg [,arg].. 
-mmodule 在 执行 Perl 脚本 之 前 执行 use 方法 
Re 在 执行 Perl 脚本 之 前 执行 use 方法 。 如 果 添 加 附加 的 文本 ， 则 可 使 用 引号 。 方 括号 中 的 短 杰 
线 表 示 把 use 指令 替换 为 no 
-0 使 Perl 隐 式 地 循环 志 历 指定 的 文件 ， 并 只 打印 规定 的 行 
-p 使 Perl 隐 式 地 循环 遍历 指定 的 文件 ， 同 时 打印 所 有 的 行 
丑 使 要 运行 的 脚本 在 Perl 编译 之 前 通过 C 预 处 理 程序 











在 脚本 名 之 后 、 文 件 名 参数 之 前 启用 开关 项 解析 ， 并 从 @ARGY 数组 中 删除 所 有 找到 的 开关 
项 。 将 开关 项 设置 为 同名 的 标量 型 变量 ,并 将 标量 赋值 为 1。 例如，-abec 在 脚本 中 将 转换 为 $abe 
































-S 如 果 不 支持 故 /usr/bin/Perl 行 ， 则 让 Perl 在 PATH 环境 变量 中 搜索 脚本 

工 强制 打开 “污染 ”检查 ， 用 于 测试 脚本 ， 一 般 只 用 在 setuid 或 setgid 程序 上 。 推 荐 读者 自行 
检查 CGI 脚本 

- 编译 后 产生 脚本 的 核心 转 储 〈 基 于 UNIX 系统 ) 

U 人 允许 Perl 执行 不 安全 的 操作 ， 如 果 是 超级 用 户 的 话 ， 则 断 开 目录 链接 

-V 打印 Perl 的 版 本 信息 

=VY 打印 最 重要 的 Perl 配置 项 和 数组 @INC 中 当前 值 的 汇总 








打印 NAME 的 值 ， 其 中 NAME 是 配置 变量 


么 
忆 
芯 
名 
省 





























w 打印 警告 信息 ， 包 括 错误 使 用 保留 字 、 文 件 句柄 、 子 例 程 等 情况 

-W 启用 所 有 警告 ， 而 不 论 是 否 已 经 用 no warnings 关闭 了 本 地 警告 

本 忽略 襄 /usr/bin/Perl 行 之 前 的 任何 文本 。 如 果 将 目录 名 当 作 -x 开关 的 参数 ， 则 Perl 会 在 开始 
执行 脚本 之 前 自动 切换 到 该 目录 

<X 关闭 所 有 警告 


A.6 调试 器 


A.6.1 获取 有 关 调 试 器 的 信息 
若 要 获得 有 关 如 何 使 用 调试 器 的 信息 ， 可 在 命令 行 中 键入 如 下 命令 


Per1ldoc Perldebug 
下 面 是 一 个 输出 的 示例 : 


NAME 
Perzldepbug - Perl dqebugging 

















DESCRIPTION 


650 有 峙 录 人 





Fitrst of al1，have You triedq using the -WwW Switch? 


A.6.2 ”Perl 调试 器 


如 果 在 调用 Perl 时 使 用 了 -d 开关 项 ， 则 用 户 脚本 就 会 执行 在 Perl 源 代码 调试 器 中 。 它 类 似 于 
一 个 交互 式 的 Perl 环境 ， 能 够 提示 用 户 通过 一 些 调试 命令 来 检查 源 代码 、 设 置 断 点 、 歼 取 堆 栈 跟 踪 
信息 、 修 改变 量 值 等 。 由 于 调试 器 是 如 此 方便 ， 很 多 用 户 干 脆 直 接 局 动 它 ， 从 而 能 交互 地 检查 Perl 
程序 的 工作 疲 程 。 例 如 ; 


$ Perl -qdq -e 42 


在 Perl 中 , 通常 情况 下 调试 器 都 不 是 一 个 独立 的 程序 〈 尽 管 它 看 上 去 很 像 )。 读 者 可 使 用 -d 标 
志 要 求 编译 器 把 源码 信息 播 入 到 将 要 传递 给 本 这 就 是 说 ， 在 调试 器 能 起 作用 前 ， 
这 段 代码 必须 成 功 通过 编译 。 然 后 , 解释 器 会 在 启动 时 自动 加 载 一 个 含有 调试 器 的 特殊 Perl 库 文 件 。 

程序 将 在 第 一 个 运行 时 可 执行 语句 前 面 挂 起 〈 但 位 于 编译 时 语句 后 面 )， 并 要 求 用 户 输入 一 个 
调试 命令 。 与 人 们 猜想 的 不 同 ， 每 当 调 试 器 挂 起 并 显示 一 行 代 码 时 ， 显示 出 来 的 痢 是 下 一 行将 要 执 
行 的 代码 ， 而 不 是 刚刚 执行 完毕 的 代码 。 

调试 器 不 能 识别 的 任何 命令 都 将 直接 当 作 当 前 包 中 的 Perl 代码 来 执行 《处 理 )。( 调 试 器 使 用 
DB 包 来 维护 自己 的 状态 信息 。) 

对 于 任何 在 调试 器 提示 符 下 输入 的 文本 内 容 ， 在 进一步 处 理 之 前 都 会 去 除 其 首尾 的 空格 ， 如 有 果 
某 个 调试 器 命令 与 读者 程序 中 的 某 个 国 数 名 发 生 冲 突 的 话 ， ea 一 些 字符 ， 
以 使 它 看 上 去 不 像 一 个 调试 器 命令 ， 和 譬如 加 上 一 个 ;号 、 号 、 或 者 用 大 括号 或 小 括号 把 它 转 
起 来 。 


<Continues here> 

































































A.6.3 ”进入 和 退出 调试 器 


如 需 调 用 Perl 调试 器 ， 可 使 用 -d 开关 项 。 它 用 于 在 成 功 编译 后 启动 一 种 交互 式 类 型 的 环境 检 
查 程序 。 在 每 一 行 执行 结束 后 ， 脚 本 都 会 挂 起 ， 并 要 求 用 户 提供 命令 。 用 户 看 到 的 行 是 将 要 执行 的 
下 一 行 肢 本， 而 不 是 刚刚 执行 完毕 的 前 一 行 。 甚 提示 符 含 有 当前 的 包 、 国 数 、 文 件 、 行 号 和 当前 行 
信息 。 下 面 是 所 有 调试 器 命令 的 列表 。 
在 启动 调试 器 后 ， 读 者 还 可 通过 在 调试 器 提示 符 下 键入 h 命令 来 列 出 所 有 的 调试 器 ; 如 果 
无 法 阅读 ， 也 可 键入 hh 命令 。 

如 需 退 出 调试 器 ， 可 键入 q 表示 退出 ， 或 者 键入 表示 重新 局 动 。 


$ per1l -qdq exer.1 











Loading DB routines from S$RCSfile: perldqdb.pl,vV $SSRevision: 4.0.1.2 
$SDate: 91/11/05 17:55:58 $ 
Emacs Support available. 
Enter h for help. 
main'(exer.1:3) : 答 工 守 这 起 不 下 放 间 3 六 了 世人 
DB<1> h 
了 Stack 廿 race . 
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S Single step . 

也 Next，steps over Subroutine cal1ls . 

工 Return from current Subroutine . 

CC [1Line] Continue” optionally inserts a one-time-on1lLy 
breakpoint at the specified Jine. 

<CR> Repeat last n or s. 

工 min+IincL Dist incr+l 1ines starting at min . 

工 _ min 一 贡 引 工 List Lines . 

工 ine 四 主考 起 二 王 击 总 :。 

工 List next winadqow . 

一 List PreVvious winadow . 

W 1Line List window around 1ine. 

工 Subname List Subroutine 。 

E 玫 Iename Switch to 五 Lename . 

/Patterzn/ Search forwarqds for Pattern final / is optional . 

?Pattern? Search backwardqs for pattern 

工 List breakpbpoints andq actions . 

S List Subroutine names . 

志 Toggle trace mode . 

b [Line]l [conditionl] Set breakpoint 1Line qdqefaults to the Current 
execution 1ine” condition breaks if it evaluates 
to true，dqefaults to 1. 

Pb subname [condition]l Set breakpoint at frst line of subroutine . 

Q [1Line] Delete breakpoint. 

D Delete all breakpoints . 

a [LIine] command Set an action to be done before the 1Line is 
executed. Sedquence is: check for breakpoint，Pzint 
1ine if necessary do action，， Prompt user 工 工 
breakpoint or step，evaluate 1Line . 

入 Delete alLl actions. 

V [Pkg [vazs]] Dist some (qdqefault al1l) variables in Package 
(default_ current) . 

X [vazs] Same as "V currentpackage [vars]". 

< command Define _ command before Prompt . 

> command Define commanadq after Prompt . 

1 number Redqo commana (aqefault previous command) . 

1 -numbeL Redqo numberth-to-1lLast commanad . 

也 -numbeL Dispbplay Last number commandqs (qdqefault al1l) . 

可 om 人 D 全 过 去 志 2 

P exPL Same as "print DB'IOUT expr" in current packade . 

= [alias valuel] Define a commanadq alias or 1ist current aliases . 

Command Execute as a Perl statement in current Package . 

和 和 < > 工 

瑟 答 云 二 及 起 “开工 避 避 六 王 S 7 teE77 

作 沪 Print "The name of this Nuperl scriptNe is $0.Nnn; 

电 汪 Print "Hello。. The number we will examine is 125.5.NXn"; 

加 这 DEzntf "The NunumberNe is gsd.N\nn 125.5) 

证 汪 Printf "The XunumberNAe is sd.NXn"，125.5; 

8 Printf "The followind number is taking up 20 spaces andq 1s 

right-justified.Nn" 7 

9 : 筷 二 于 交 共 在， 下 千 二 全体 总 人 AN 站 汪 王 色 5 汉 

了 站 3 芒 工 主 m 七 二 TANEIhe Dumper In hex 二 S 和 2Nnn 125.5; 

二 王 、 DPEIntf Nt\tTIhe Dumpber in ooctal is gcNnn 125.57 

二 二 Printf "The number in scientific notation is gsexn"，， 125.5; 


DB<1> q (Guazit) 


052 


奉 录 A 





A.6.4 调试 器 命令 


获取 帮助 : 
h 
h p 


列 出 部 分 脚本 : 


] 
1 8 
1 3-10 


1] greetme 


退出 调试 器 ; 


qd 
<Ctrl>-d 
有 


世 点 : 
b45 
C 


b greetme 


b $x>10 


区 


| 出 所 有 调试 器 命令 的 帮助 信息 
| 出 调试 器 命令 p 的 帮助 信息 





\ 台 


列 出 程序 的 10 行内 容 
列 出 第 8 行 

列 出 第 5 行 到 第 10 行 脚本 
列 出 子 例 程 greetme 中 的 脚本 

列 出 待 执 行 的 下 一 行 脚 本 

列 出 一 个 含有 指定 的 第 7 行 脚本 内 容 的 窗口 。 列 出 指定 行 之 前 的 3 行 脚本 ， 

















并 将 其 后 各 行 填 人 该 窗口 











向 前 搜索 正则 表达 式 abc， 其 中 abc 位 于 行 首 

向 后 搜索 正则 表达 式 abc 

遵照 包 名 、 双 冒号 和 子 例 程 名 的 格式 ， 列 出 程序 中 所 有 的 子 例 程 
执行 当前 子 例 程 中 其 余 的 语句 ， 然 后 显示 紧 接 着 该 子 例 程 调用 的 行 











一 次 一 行 地 递 进 遍 历 脚 本 

类 似 于 s， 但 它 会 执行 子 例 程 调用 ， 而 不 是 逐 行经 过 它们 

按 下 Enter 健 ， 重 复 前 一 个 s 或 n 命令 

重复 执行 上 一 行 脚本 

重复 执行 当前 行 前 面 的 所 有 脚本 行 

继续 执行 ， 直 到 当前 执行 的 子 例 程 返回 ， 并 在 返回 后 显示 其 返回 值 





退出 调试 器 

退出 调试 器 

重新 启动 调试 器 和 新 会 话 

断 点 负责 设 定 程序 暂停 的 位 置 ， 以 便 对 它 进行 检查 。 必 须 将 它 设置 在 可 执 





行 语 句 的 行 首 。 


在 第 45 行 设置 断 点 。 程 序 将 在 第 45 处 挂 起 ， 键 入 c 则 继续 执行 
继续 执行 

在 子 例 程 greetme 上 设置 断 点 

条 件 为 真 时 触发 断 点 








| 几 
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W 在 断 点 周围 创建 一 个 窗口 ， 并 标记 找到 断 点 的 行 ; 例如 10==>b 〈 断 点 位 于 
第 10 行 ) 

d 删除 位 于 待 执 行 的 行 上 面 的 断 点 

d12 删除 第 12 行 上 的 断 点 

D 删除 所 有 断 点 

打印 变量 值 : 

X name 显示 变量 name 的 值 。 在 变量 前 不 需要 加 上 表示 其 类 型 的 字 答 例如 ， 应 当 
使 用 x， 而 不 是 $x 或 @x 

V package 显示 包 中 所 有 的 变量 

P $x+3 求 值 ， 并 打印 表达 式 

跟踪 : 

了 产生 子 例 程 调用 内 容 的 回 湖 清 单 

t 切换 跟踪 模式 

别名 : 

= 列 出 所 有 别名 


=ph print“$hashref ph 是 用 于 打印 散 列 值 的 别名 


->{Science}->{Lou}” 





附录 B SQL 语言 入 门 


B.1 什么 是 SQL 





当 读 者 访问 Google 并 请 求 信息 时 ， 这 种 请 求 又 称 作 查询 (query)。 搜 索引 擎 将 会 收集 匹配 于 
该 查询 的 任何 Web 页 面 。 为 了 缩小 搜索 范围 ,读者 可 以 借助 更 多 的 描述 性 关键 字 来 提炼 请 求 。 数 据 
库 检 索 过 程 也 与 之 相似 。 当 向 数据 库 发 出 请 求 时 ， 该 请 求 应 当 遵循 某 种 特定 的 格式 ， 数 据 库 服 务 器 
将 会 尝试 定位 所 需 的 信息 ， 并 返回 一 个 结果 。 读 者 使 用 的 查询 语言 决定 了 数据 库 的 查询 方式 。 与 关 
系 型 数据 库 进 行 通信 的 标准 语言 是 SQL， 即 结构 化 查询 语言 (Structured Query Language)。SQL 
是 一 种 符合 ANSI《〈 美 国 国家 标准 署 ) 标准 的 计算 机 语言 ， 它 设计 得 尽量 与 英语 靠拢 ， 因 此 是 一 种 
非常 易于 学 习 的 语言 。 当 前 度 行 的 数据 库 管 理 系 统 如 Oracle、Sybase 和 Microsoft SQL Server 都 使 
用 SQL。 尽 管 有 些 系统 针对 该 语言 创建 了 自己 的 专用 扩展 ， 但 其 标准 的 基本 命令 〈 和 譬如 SELECT、 
INSERT、DELETE、UPDATE、CREATE 和 DROP) 就 足以 帮助 用 户 完 成 在 处 理 数 据 库 操作 时 碰 
到 的 绝 大 多 数 任 务 了 。 

SQL 语言 的 历史 可 以 追溯 到 E.F“Ted”Cobb,IBM 公司 的 一 位 研究 人 员 , 他 在 1970 年 6 月 首 
先 发 表 的 一 篇 论文 为 关系 型 数据 库 理论 商定 了 基础 。 它 是 一 种 类 似 于 英语 的 计算 机 语言 ， 用 于 和 关 
系 型 数据 库 进 行 通信 。Cobb 的 论文 促使 IJBM 启动 了 一 项 大 型 研究 项 目 , 设计 了 一 套 名 叫 System/R 
的 关系 型 数据 库 系 统 和 一 种 名 为 SEQUEL (结构 化 英语 查询 语言 ) 的 数据 库 语 言 , 后 者 就 是 今天 的 
SQL (发 音 为 “see-quell”)。 在 20 世纪 70 年 代 晚 期 ,另外 两 家 公司 也 跟 进 开发 了 与 之 相似 的 产品 ， 
后 来 分 别 发 展 成 为 Oracle 和 Ingres。 到 了 1985 年 ，Oracle 号 称 已 经 安装 了 超过 1,000 份 ; 而 到 20 
时 间 90 年 代 早期 ，SQL 已 经 成 为 在 大 中 型 机 构 中 实现 数据 库 管 理 的 标准 ， 尤 其 在 UNIX 和 巨型 计 
算 机 上 更 是 如 此 。 









































B.1.1 标准 化 SQL 


和 英语 中 的 方言 类 似 ，SQL 也 有 多 种 不 同 的 风格 。 目 前 使 用 的 SQL 是 基于 IBM 最 初 实现 而 
开发 的 ， 并 增添 了 许多 附加 功能 。 为 帮助 大 家 明确 语言 应 当 支 持 哪 些 特 性 ， 标 准 就 应 运 而 生 了 。 在 
1986 年 ，ANSI 发 布 了 SQL 标准 ， 并 在 1989 年 、1992 年 以 及 1999 年 分 别 对 它 进 行 了 修订 。 目 前 
最 为 常用 的 标准 是 SQL92， 即 对 最 初 规范 〈SQL2) 的 第 二 次 修订 。 大 多 数 商用 数据 库 (MYSQL、 
Oracle、Sybase、Microsoft Access 和 Microsoft SQL Server) 都 完全 支持 SQL， 并 声称 与 标准 百 分 
之 百 兼 容 。 不 过 ， 标 准 本 身 就 非常 复杂 ， 再 加 上 与 英语 中 的 方言 一 样 ， 各 个 开发 商 也 在 它们 的 SQL 
版 本 中 添加 了 各 种 扩展 组 件 ， 因 此 很 难保 证 某 个 应 用 程序 能 够 运行 在 所 有 的 SQL 服务 绒 数 据 库 上 。 
































SQL 厂 言 入 门 


655 





在 本 附 孙 中 ,我 们 将 专注 于 基本 的 SQL 语 
的 概念 。 





B.1.2 执行 SQL 语句 


由 于 本 书 讨论 的 数据 库 管 理 系统 是 MYSQL， 


| 览 器 


， 并 学 习 诸 如 创建 表 、 播 入、 删除 和 数据 选择 之 类 





因此 下 面 的 示例 都 将 使 用 MySQL ee 








管 读 者 可 能 更 喜欢 MySQL 查询 浏览 器 (MySQL Query Browser) ,但 这 里 我 们 将 在 mysql 命令 # 
了 大 部 分 的 SQL 命令 。 在 连接 到 数据 库 之 后 ,读者 只 需 按照 第 17 章 介 绍 的 那样 在 
控制 台 〈 即 命令 行 窗 口 ， 见 图 B-1) 中 键入 命令 。 
画 c:wampwmysql\binwmysqlLexe 
Enter Password: 
Nelcome to 和 汪 。 MySQL monitor，. Commands end with 和 or \9， 
Your MySGL connection id is 3 to server version: 4.1.13a-nt 


Type "helpPi” or '\h' for help. 
mysql> show databases;i 
六 Database 
六 mysal | 
| northwind 1 
| Bhepyadmin | 
二 


4 rows in set (0.00 sec) 


mysql> ~ 























习 B-l 
MySQL 查询 浏览 器 。 如 需 在 MySQL 查询 浏 
顶部 的 输入 框 中 键入 这 些 命令 ， 


Type 'Nc' to clear the buffer: 





mysdl 控制 台 


览 器 中 运行 SQL 命令 ， 读 者 可 以 在 应 用 程序 





窗口 


然后 单 击 执行 (Execute) 按钮 。 


当 按 下 执行 按钮 (即位 于 查询 窗口 右 侧 的 绿色 按钮 ) 后 ,结果 将 会 以 Resultset 标签 页 (Resultset 


tabp) 的 形式 显示 在 应 用 程序 的 中 央 〈 见 





图 B-2 )。 





到 WyYSQL Query Browser -ellGUcalhost3306 J test 
队 EM Yew Cusy Srpt TocE Window Hep 


Whow dotabases; 


呈 4 
Refreh 


Go bd 


Rerultel1 
Dsisbare 
下 
northwnd 
gfhomysdgrn 
et 





图 B-2 ”MySQL 


查询 浏览 器 GUI 
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B.1.3 关于 SQL 命令 / 查询 


SQL 是 一 种 计算 机 语言 ， 和 其 他 语言 一 样 ，SQL 也 拥有 它 自己 的 规则 、 语 法 以 及 一 组 特殊 字 或 
保留 字 。 多 年 来 ， 该 语言 出 现 了 很 多 不 同 的 变种 ， 因 为 各 个 关系 型 数据 库 开 发 商 在 竞争 的 名 义 下 向 
它 添 加 了 许多 额外 的 数据 处 理 特 性 。 本 节 只 涉及 基本 的 SQL 命令 和 标记 。 

由 于 SQL 拥有 很 多 命令 ， 因 此 把 这 些 命令 分 成 了 两 大 类 负责 操纵 表 内 数据 的 命令 ， 以 及 负责 
管理 数据 库 自 身 的 命令 。 在 网 络 上 有 很 多 介绍 全 部 SQL 命令 以 及 如 何 使 用 这 些 命 令 的 优秀 人 门 教 
程 。 参 见 http://www.w3schools.com/sql/default.asp 。 

准 英语 语法 (English-like Grammar)。 当 用 户 创 建 一 条 SQL 语句 时 , 它 会 向 数据 库 产 生 一 个 请 
求 〈 或 “查询 ”); 该 请 求 是 一 条 语句 ， 其 结构 类 似 于 一 个 英语 祈 使 句 ， 和 譬如 “Select your partner”、 
“Show your stuff” 或 *Describe that bully”。SQL 语句 中 的 第 一 个 单词 是 一 个 表示 动作 的 英语 动词 ， 
又 称 作 命令 ， 艾 如 show、use、select、drop 等 。 命 令 后 面 跟 有 一 组 类 似 于 名 词 的 内 容 ， 璧 如 show 
database、use database 或 create database。 话 名 中 也 可 含有 介词 ， 璧 如 in 或 fom。 例 如 : 
































Show tables in dqatabase 
Select Phones from customer table 


用 户 还 可 以 汪 、 加 条 件 子 句 ， 以 便 细 化 查询 ， 和 譬如 ; 


select campanyname from Suppliers where suPPLierid > 20 :; 


当 在 一 个 查询 中 列 出 多 项 内 容 时 ， 可 以 像 英 语 一 样 用 喜 号 陋 开 它们 ;例如 在 下 面 这 个 示例 中 ， 
选中 列表 中 的 各 个 字段 都 是 以 和 逗号 隔 开 的 : 


select companyname，Phone，address from SupplLliers : 


如 果 查 询 语句 很 长 很 环 手 的 话 ， 读 者 可 能 希望 把 它们 键入 常用 的 编辑 器 中 ， 因 为 一 条 查询 会 在 
执行 完毕 后 自动 消 失 。 如 果 将 查询 保存 到 编辑 器 的 话 ， 读 者 就 能 将 它 剪 切 并 粘贴 回 MySQL 浏览 器 
或 命令 行 界 面 ， 而 不 必 重 新 输入 它 。 最 重要 的 是 ， 请 读者 确保 查询 的 正确 性 ， 以 免 破坏 某 个 重要 的 
数据 库 。MYySQL 提供 了 一 个 “test” 数 据 库 ， 专 门 用 于 这 种 验证 工作 。 

以 分 号 终止 SQL 语句 。 当 在 Google 上 搜索 “SQL 查询 ”时 , 位 于 搜索 结果 最 上 面 的 是 一 个 名 
叫 thinkgeek.com 的 Web 站 点 ， 该 站 点 销售 工 恤 、 服 饰 、 电 子 产 品 、 配 件 以 及 家 庭 办 公 和 计算 机 产 
品 。 该 网 站 “SQL 查询 ”工人 恤衫 的 销售 广告 写 道 : 

黑色 工 恤衫， 上 面 用 白色 字体 写 出 下 列 SQL 查询 语句 :“SELECT * FROM user WHERE 
clue>0”。 不 幸 的 是 ,该 语句 不 能 返回 任何 结果 …… 呢 ， 噢 。 你 看 ! 这 条 查询 末尾 少 了 分 号 ， 因 为 并 
不 是 所 有 人 都 使 用 带 有 相同 控制 台 /shell 的 同一 种 数据 库 一 一 
毕竟 解决 问题 的 方法 不 止 一 种 啉 。 是 吗 ? 是 的 。 

分 号 是 结束 每 条 查询 语句 的 标准 方法 。 某 些 数据 库 系统 并 
不 要 求 使 用 分 号 , 但 MySQL 是 要 求 的 〈 其 USE 和 QUIT 命令 
站 除外 )。 如 果 用 户 忘记 输入 它 , 就 会 看 到 第 二 个 提示 符 出 现 , 同 
PE7ec4n 时 会 挂 起 执行 ， 直 到 用 户 加 上 分 号 为 止 。 正 如 图 B-3 所 示 。 

命名 规范 。 使 用 良好 的 命名 规范 会 让 数据 库 和 数据 表 显 得 
更 加 易 读 。 

图 B-3 ”分 号 缺失 和 第 二 提示 符 例如 , 最 好 能 把 表 的 名 称 设置 为 复数 形式 , 而 把 字段 / 列 名 















































mysql show databases 




















十 
rows in set (DOD.0D sec) 
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设置 为 单数 形式 。 为 什么 呢 ? 因为 一 个 名 叫 * Shippers ”的 表 一 般 持 有 多 个 Shipper, 而 字段 名 则 用 于 
人 因此 是 单数 值 ， 壁 如 “Company Name”、 表 B-1 SQL 保留 字 
“Phone” 等 等 。 表 名 或 字段 名 的 首 字 母 一 般 都 是 大 写 的 。 









































像 “Company Name” 这 样 的 组 合式 名 称 往往 会 通过 下 划 
线 分 隔 开 来 ， 并 且 每 个 部 分 的 首 字母 都 是 大 写 的 。 人 了 
在 任何 的 数据 库 名 中 都 不 允许 出 现 空格 和 和 斜 杠 。 RS LIKE 
保留 字 。. 所 有 语言 都 拥有 一 组 保留 字 , 它们 对 于 该 语言 拥有 。 cREaATmE LIMIT 

特殊 的 含义 。 本 章 将 用 到 大 多 数 的 保留 字 。 表 B-1 列 出 了 SQL CC 5 
的 保留 字 。( 有 关 所 有 保留 字 的 列表 ， 请 参阅 MySQL 文档 。) 本 
大 小 写 敏感 。 如 果 用 户 正 在 使 用 UNIX, 则 数据 库 名 和 表 
名 都 是 大 小 写 敏感 的 ; 如 果 是 Windows 的 话 则 是 不 敏感 的 。 规 ”PE 全 生生 全 
范 往 往 都 是 把 数据 库 及 其 数据 表 都 以 小 写 方式 命名 的 。 FROM RIGHT JOIN 
SQL 对 大 小 写 则 并 不 敏感 。 例 如 , 下 列 SQL 命令 是 等 效 的 : FULIL JOIN SELECT 
Show qdqatabases:; GROUPE BY SET 
SHOW DATRABASES; 
INSERT UPDRATE 
尽管 SQL 命令 并 不 区 分 大 小 写 ， 但 是 按照 规范 的 规定 ， 
INTO WHERE 





SQL 关键 字 应 当 全 部 大 写 ， 而 字段 名 、 表 名 和 数据 库 名 只 有 首 
字母 为 大 写 ， 以 便 让 命令 更 为 清晰 。 

SELECT * FROM Persons WHERE Firstname= "Johny， 

如 需 使 用 LIKE 和 NOT LIKE 命令 执行 模式 匹配 的 话 ， 则 在 MySQL 中 这 些 查询 的 模式 将 是 大 
小 写 敏 感 的 。 

结果 集 。 结 果 集 〈result set) 只 不 过 是 另 一 个 表 ， 它 含有 某 个 SQL 查询 的 执行 结果 。 大 多 数 
数据 库 系 统 甚 至 允许 用 户 使 用 函数 在 结果 集 上 执行 操作 ， 艾 如 Move-To-First-Record、Get-Record- 
Content\Move-To-Next-Record 等 等 。 在 图 B-4 中 显示 的 结果 集 是 由 一 条 要 求 mysql 显示 “shippers?” 
表 中 所 有 字段 的 查询 语句 创建 的 。 


























mysql> show fields in shiPPers; 
他 夫 
1 Field 


和 一 一 一 一 一 条 一 一 一 


| ShipPerID int(1L1) 


1 CompanyName varchar(40) 

hone 1 varchar(24) 
一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 
3 rows in set (DOD.00 sec) 


名 一 一 一 4 一 4 





图 B-4 结果 集 是 由 查询 产生 的 一 张 表 
B.1.4 SQL 和 数据 库 


一 套数 据 库 服 务 器 可 以 支持 多 个 数据 库 。 例 如 , 一 套 Oracle 或 MySQL 数据 库 服务 器 可 以 提供 
一 个 记 账 数据 库 、 一 个 人 力 资源 数据 库 、 再 加 上 第 三 个 电子 商务 应 用 数据 库 ， 等 等 。 为 了 查看 可 用 
的 数据 库 ，SQL 提供 了 show 命令 。 

show databases 命令 。 如 需 查 看 数据 库 服 务 器 上 提供 了 哪些 数据 库 ， 不 妨 使 用 show databases 
命令 。 尽 管 不 同 用 户 计算 机 上 看 到 的 数据 库 列 表 可 能 不 尽 相 同 ， 但 一 般 都 会 出 现 mysql 和 test 这 两 
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个 数据 库 ， 它 们 是 在 mysql 安装 时 提供 的 。mysql 数据 库 是 不 可 或 缺 的 ， 因 为 它 负 责 描 述 用 户 访问 
权限 ;test 数据 库 则 名 实 相符 ， 负 责 提 供 一 个 练习 数据 库 ， 以 便 测 试 如 何 使 用 数据 库 。 








格式 
SHOW DATABASES7: 
示例 B.1 
也 mysdql> SHOW databases : 


TS 
northwind 
Phpmyadqmin 
瑟 全 司 记 








4 Fows in set (0.03 sec)ishow aatabases: 


USE 命令 。USE 命令 会 把 指定 数据 库 设置 为 用 户 的 默认 数据 库 。 从 这 时 起 ， 所 有 的 SQL 命令 
都 将 在 这 个 默认 数据 库 上 执行 。 它 是 少数 几 个 无 需 以 分 号 结束 的 命令 之 一 。 


格式 


WSREOaEaSasSEEEDSmEL 


示例 B.2 
也 mysdql> USBE nozthwinad'， 
Datapase cpanc9ea 


AN\ 


解释 
1. USE 命令 把 数据 库 切 换 到 “northwind”。 “命令 行 界 面 会 报告 数据 库 已 经 切换 。 
a. 如 需 下 载 “northwind” 数 据 库 ,可 访问 http://www.microsoft.com/downloads/ details.aspx?FamilyID=C6661372- 
8DBE-422B-8676-C632D66C529C&displaylang=EN 。 


B.1.5 SQL 数据 库 表 


一 个 数据 库 里 往往 含有 一 张 或 多 张 表 。 每 个 表 都 由 一 个 表 名 来 标识 ， 璧 如 “Customers” 或 
“Orders”。SHOW TABLES IN 命令 会 显示 某 个 数据 库 内 的 所 有 表 ， 如 图 B-$ 所 未 。SELECT * 
FROM 命令 则 会 列 出 指定 表 中 的 所 有 字段 和 行 。 表 中 售 有 行 〈 又 称 记 录 ) 和 列 〈 又 称 字 段 )。 图 B-6 
中 的 表 含 有 三 个 记录 “〈 每 个 运 货 者 对 应 一 个 记录 ) 和 三 个 列 〈“ShipperID”“CompanyName” 和 
“Phone”) 。 

SHOW 和 DESCRIBE 命令 。 如 需 查 看 什么 数据 类 型 可 以 赋予 某 张 表 , 则 可 使 用 DESCRIBE 命 
令 〈 仅 用 于 MySQL)， 以 及 SHOW FIELDS IN 命令 ， 后 者 是 一 种 SQL 标准 命令 。 显 示 的 输出 内 容 
是 每 个 字段 的 名 称 以 及 对 应 于 各 字段 值 的 数据 类 型 ， 如 图 B-7 所 示 。 数 据 的 类 型 可 以 是 一 个 可 变 长 
字符 串 〈a variable string of characters )、 一 个 日 期 、 一 个 数字 ， 等 等 。 例 如 ， 类 型 varchar(40) 表 
示 一 个 最 大 宽度 为 40 个 字符 的 字段 。 此 外 还 会 显示 用 于 惟一 标识 各 个 记录 的 主键 (primary key ) 。 
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mysql> show tables in northwindi 
中 


categories 
customercustomerdemo 
customerdemographics 


Customers 
emPloyees 


个 太 和 和 


order_detai 
orders 
Products 
region 
shiPPers 
suPPliers 
territories 
Usstates5 


SPeedy ExPress 
United Package 


Federal ShipPpPing 


3 rows in set (0.009 sec) 


图 B-6 显示 指定 表 中 的 内 容 


格式 
SHOWNEREEEDSEETNEEESOE 本 ame 
OFT 

DERSCRIBE table=nanme 





mysSL> show fields in customers; 


ONE varchar(5S) 
ompPanyName 
EN 


Contact Title 


< 和 
Ree 
30 


《 
( 
( 
《 
ddress 
《 
《 
Count ry 《 


Varchar( 
varchar( 


1 rows in set te- OS sec) 


机 < < me ce me ce mm em mm em em 个 小 


图 B-7 SQL 的 SHOW FIELD IN 命令 


图 B-8 显示 了 更 为 简短 的 DESCRIBE 命令 版 本 。 


+ 一 一 一 一 一 一 一 一 一 一 一 4 一 二 





中 于 咱 中 om 小 


直 一 一 一 一 一 一 一 一 一 一 一 二 一 十 


二 
(SO93) SSS-2831 
(SS03) SSS-31929 
(393) SSS5-9931 


一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 十 





中 一 一 一 一 一 一 一 一 一 一 一 才 一 十 
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shiPPers ; 


omPanyName varchar(40) 
1 Phone varchar(24) 
小 一 一 一 一 一 一 一 一 一 一 一 一 一 本 一 一 一 一 一 一 一 一 一 一 一 一 一 


3 rows in set (D.09 sec) 


| RhlpperlD int(1L1) 
P 


+ 一 一 一 一 二 





图 B-8 MySQL 的 DESCRIBE 命令 


B.2 SQL 数据 操纵 语言 CDML ) 


SQL 是 一 种 非 过 程 型 (nonprocedural) 语言 ， 它 为 数据 解析 操作 提供 了 相关 语法 ,包括 刷新 记 
录 、 插 入 记录 和 删除 记录 的 语法 。 

这 些 查询 和 刷新 命令 共同 组 成 了 SQL 中 的 数据 操纵 语言 (Data Manipulation Language) 部 分 。 
本 节 将 介绍 下 列 SQL 命令 : 

。 SELECT 一 一 从 一 张 数据 库 表 中 提取 数据 。 
”UPDATE 一 一 刷新 数据 库 表 中 的 数据 。 
” DELETE 一 一 从 数据 库 表 中 删除 数据 。 
。 INSERT INTO 一 一 向 数据 库 表 里 插入 新 数据 。 









































B.2.1 SELECT 命令 


最 常用 的 一 种 SQL 命令 是 SELECT， 负责 执行 一 条 查询 。SELECT 命令 用 于 根据 某 些 标准 从 
一 张 表 中 检索 数据 。 它 指定 了 一 组 以 逗号 隔 开 的 待 检索 字段 ,以 及 一 个 指定 待 访问 数据 表 的 FROM 
子 句 。 其 执行 结果 将 保存 在 一 个 结果 表 中 ， 又 称 作 结果 集 。 符 号 * 用 于 表示 所 有 的 字段 。 





格式 


EREETEEcunn mamss) ERCMREae < 尖 ms 


Example: 
SELECT LastName,EirstName, Addqress FROM Studqents: 


mysdql> SELECT CompanyName EROM ShiPPerzs: 





| CompanyName | 


l Speedqy Ex<Ppress | 
Il Unitea Package | 
[IEesawseadsinaecinaoil 


SOWSOESSEECRUOROS 且 Sec) 
解释 
SELECT 命令 将 从 Shippers 表 中 检索 出 字段 CompanyName 中 的 所 有 项 。 在 查询 之 后 显示 其 结果 集 。 
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选择 指定 的 列 。 
后 面 跟 上 一 组 以 逗号 隔 开 的 字段 , 这 
称 作 结果 集 ， 参 见 示例 B.4。 


如 需 从 Shippers 表 中 选择 名 叫 CompanyName 和 Phone 的 列 , 则 可 在 SELECT 
些 字 段 含有 将 要 从 Shippers 表 中 选取 的 内 容 。 最 终 得 到 的 表 又 


mysdl> SELECT ComPanyName， 


Phone EROM ShiPPerzs: 


+------------------ +---------------- 中 
| CompanyName | BEhone | 
+-------------- 一 -一 +---------------- 十 
中 Speedqy 了 ExpPpress | 国人 过 间 

Il UniteaQ Package 中 的 必 ) 坷 昌 呈 包机 多 电 
IDewesaeehnoomnsEOES SS SEE 已 让 
+=------------------ +=---------------- 于 
3 rows in set (0.09 sec) 


选择 所 有 的 列 。 


B.5。* 是 一 个 通配符 ， 用 于 表示 所 有 的 字段 〈 列 )。 


mysdl> SELECT *x EROM ShiPPerzs:， 
弟 王 一 一 一 一 一 一 一 一 一 一 二 
| 大 ShopEeerm 


SbeeqQy Ex<Pprzess 
UniteaQ Package 
Eeederalshiocang 


| 
机 
| 
| 
| 
| 


3 rows in se 


SELECT DISTINCT 语句 。DISTINC 


(503) 
人 0) 
ON) 


+ 一 一 一 + 一 十 


T 关 键 字 用 于 只 返 


如 需 从 Shippers 表 中 选择 所 有 列 ， 则 可 使 用 * 符号 ， 而 不 是 列 名 。 参 见 示 例 


与 5 电光 下 和 | 
SS 
与 本 三 蚂 纪 3 | 


一 十 


回 表 中 不 同 〈distinct) 的 值 。 如 果 每 个 





特定 字段 上 出 现 了 多 个 重复 的 值 ， 则 DISTINCT 结果 集 只 会 把 它们 显示 为 一 个 值 。 








下 看 














j 这 个 示例 中 ， 首 先 选择 ShipName 列 中 所 有 的 值 ， 这 时 会 显示 超过 800 个 记录 。 不 过 请 注 


意 ， 如 果 使 用 了 DISTINCT 关键 字 的 话 ， 则 检索 到 的 记录 将 锐 减 至 小 于 90 个 。 


格式 


SECRREDSRRNECEECIOO 汪 和 amss 


EROM 帮 aioieEmams 


AN 


示例 B.6 
SELECT ShiPName from Orders 
EeenaeEE 
NGCEENWSGTGN 
Blauer See Delikatessen 
Eee SEE es 
Fisamela 本 3 二 二 六 天 
GEeat Lakes EoodaQ MazKket 
REegoasnmCaSSEE 
gw NE 让 EeeS 
SaVve=a=-1ot Markets 
IIILRA=Superzmezccado 
White Clover Markets 
DEFachenpblut Delikatessen 
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到 这 一 


Queen Cozinha 

Tortuga Restaurante 
Lehmanns Marktstana 
IIA=SUEScmezeadc 

EEnst 贡 anaqQe)] 

Pericles Comidas clasicas 
Smmensmomske 

Richtezs SupezmazKt 
ECTIEEasen 

Rattlesnake Canyon GEoceEzy 





With the DISTINCT keyword, fewer than 90 records are retrieved : 


SELECT DISTINCTIT ShiPName EROM Orders: 
Oceanoco Atlantico Ltdaa . 

本 saneha 有 SS 感光 六 于 

Gourmet Ianchonetes 

EECUDOSEE 避 ESiaamgs 

Rancho grande 

ISRCniee SEORS 

Laughing Bacchus Wine Cel1ars 
Blauer See Delikatessen 

NE 本 全 打 

Gaceeus 重 eecmuass 硬 oaeasw ae 

Great Iakes Eood MarKkett 

Maison Dewey 
SSNESGREEESUEmSEEEESNWSEIONSEES 
ES SEOERNEESeT 





通过 LIMIT 限制 结果 集 的 行 数 。 如 果 用 户 不 希望 显示 某 个 大 型 数据 库 中 的 所 有 记录 , 则 可 使 用 
LIMIT 限制 打印 的 行 数 。 全 如， 数据库 northwind 中 的 表 含 有 数 以 千 计 的 记录 。 在 前 面 的 示例 中 ， 最 
好 只 显示 其 中 少量 记录 ， 只 需 说 明 查 询 成 功 便 可 。 由 于 用 户 得 到 的 是 部 分 列表 ,因此 还 有 可 能 希望 知 
道 表 中 的 记录 总 数 。 使 用 SQL_CALC_ FOUND_ROWS 选项 和 SQL 的 FOUND_ROWS(O 国 数 就 能 做 
点 。SQL 将 会 算出 记录 总 数 ， 而 FOUND_ROWSO 函数 将 会 允许 读者 显示 此 项 计算 结果 。 
































mysal> select ShipName fcomn Oraers LIMIIT 10:; 


Vins et alcools Chevaliez 
ms 用 SPpezasaaEaEe 

Hanaczi Cazcnes 

Victuailles en stock 
Supremes Qelices 

Hanaci Carnes 
GegssueyEEChnamess 

Richter Supermakt 
Wellington ImpoztaaqQcoca 
HIILARION-Abastos 











SQL 匡 言 入 门 603 





IOEESwsOnESSGEURSUUEESEch 


解释 
通过 一 个 参数 (这 里 是 10)，LIMIT 指定 了 从 结果 集 顶 部 开始 返回 的 行 数 。 


示例 B.8 
mysdql> SELECT SQL_ CRALC_EOUND_ ROWS ShipName from Orders 
三 DIE 3 


Vins et alcools Chevaliez 
oms SPpezalaEaEe 立 

有 ssenCansnes 
Victuailles en stocKk 
Supzemes aelices 








5 Fows im set (0.03 sec) 


mysdql> SELECT FOUND_ROWS () ; 


+=-------------- 第 
| EOUND ROWS() 1 
+------------=-- 于 
| SS 
+-------------- 


ESOWREOTESE 二 (地宫 全 Se) 


SQL 会 计算 记录 总 数 ， 这 里 限制 为 5;, 而 FOUND_ROWS0O 函数 将 允许 读者 显示 该 项 计算 结 采 


o 


WHERE 子 句 。 如 有 果 需 要 在 某 一 组 特定 条 件 为 真 时 才 选 择 所 需 字 段 , 那 该 怎么 办 呢 ? 例如 , 需要 列 
出 所 有 来 自 瑞典 并 在 去 年 付款 超过 50000 美元 的 顾客 。WHERE 子 句 是 可 选 的 , 它 会 根据 关键 字 WHERE 
后 面 描述 的 条 件 来 指定 应 当选 择 哪 些 数据 值 或 行 。 在 创建 条 件 〈 又 称 选 择 标 准 , 即 selection criteria) 时 ， 
SQL 提供 了 一 组 运算 符 ， 以 便 进 一 步 指明 哪些 条 件 应 当 出 现在 WHERE 子 句 中 。 详 见 表 B-2。 





格式 


SELECT Colunn FRROM table WHERE Colunmn operator Value 
卫 xample: 
SEECTERBnonms EROMESNEESES 人 ERERECOEmEEY NGSW 


表 B-2 SQL 运算 符 





运算 符 描述 示 例 
三 等 于 Where Country = "Sweden' 
六 冯 大 二 不 等 于 where country <> !Sweden' 
> 大 于 where salary > 50000 
<< 小 于 where Salary < 50000 


刀 





大 于 或 等 卫 where salary >= 50000 
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〈 续 ) 
运算 符 描述 示 例 

<= 小 于 或 等 于 where Salary <= 50000 

IS [NOT] NULE 是 NULL ( 非 值 ) 或 不 是 NULL where birth = NULL 

BETWEEN 位 于 某 个 范围 之 间 where last_ name BETWEEN 'Dobbins' AND 'Main' 
LIKB 搜索 类 似 于 模式 的 值 Where last _name LIKE 'D%， 

NOT LIKEB 搜索 不 类 似 于 模式 值 Where country NOT LIKE 'Swg') 

! ，NOT 有 逻辑 非 ， 否 定 where age ! 10; 

11 ，OR 逻辑 或 where order_number>10 11 part_number= 80 
&& ， RND 逻辑 与 where age > 12 && age <21 

XOR 异 或 where status XOR 

a. 在 某 些 版 本 的 SQL 中 ， 运 算 符 <> 亦 可 写成 !=。 

使 用 引号 。 引 号 在 任何 一 种 编程 语言 中 都 是 问题 的 焦点 。 应 当 使 用 单 引 号 还 是 双 引 号 ? 应 当 在 

什么 时 候 使 用 引号 ? 
SQL 在 文本 值 上 用 到 了 单 引 号 〈 包 括 MYSQL 在 内 的 大 多 数 数据 库 系统 也 都 支持 双 引 号 )。 而 
数字 值 则 不 应 当 放 在 引号 中 。 

对 于 文本 值 而 言 ， 下 面 这 个 示例 是 正确 的 : 

SELECT * FROM Students WHERE FirstName='Macro' 

而 下 面 这 个 示例 则 是 错误 的 : 

SELECT * FROM Students NMHERE FirstName=Macro Marco 应 当 改 成 "Marcon" 

对 于 数字 值 而 言 ， 下 面 这 个 示例 是 正确 的 : 

SELECT * FROM Students WHERE Year > 2004 

而 下 面 这 个 示例 则 是 错误 的 : 

SELECT * FROM Students NWHERE Year > '!2004， '20041! 应 当 改 为 2004 

使 用 = 和 <> 运算 符 。 在 图 B-9 中 ,如果 WHERE 子 句 中 的 条 件 值 为 真 ， 就 从 Customers 表 中 检 














索 CompanyName 和 Phone 字段 。 也 就 是 说 ， 上 述 条 件 是 Country 字段 中 的 字符 串 值 完全 等 于 字符 


串 Italy〈 即 它们 必须 含 


mysql> select Coneanyye9ee 


有 相同 的 字符 数 和 字符 类 型 ) 。 


-> MNHERE Country=:" 工 


二 
| 
二 
| Franchi 


Masazzini Aiimentari Riuniti 
Resgeiani Caseif ici 
进 mm 


3 rows in 


S.P.A 


十 
| 

二 
| 
| 
| 

十 


set (9.00 sec) 














图 B-9 带 有 = 运算 符 的 WHERE 


运算 符 <> 则 用 于 检测 “不 等 于 ”的 情况 


0 FROM Customers 
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什么 是 NULL ?NULL 意味 着 字段 中 没有 任何 值 ， 或 者 含有 未 知 的 值 ; 但 并 不 是 说 字段 含有 
零 值 。 如 果 某 个 字段 值 为 NULL， 它 就 是 空 的 ， 如果 不 是 NULL， 它 就 合 有 革 个 数据 。 字 段 的 默认 
值 都 是 NULL， 除 非 在 定义 表 的 时 候 把 它 指定 为 NOT NULL。 详 见 示例 B.9 和 了 B.10。 














mysadl 宣 SENCTEEESOICT ESUREEY 央 BROMNS 放 必 亿 二 
-> WHERE region IS NULL 

下 ESdLOT GOn 蕊 zyY 
NULEL UK 
NUILE Japan 
NU Japan 
NUDE WU 
NU Sweden 
NUEE 司 于 辣 世 于 灿 
NUELE Geemanmy 
NUELE Gezmany 
NULDE Gerzmany 
NUILE 着 证 
NULDE NOFwWay 
NUILE Sweden 
NUELE REEameEs 
NUEE SingaPpore 
NUEE Denmazk 
NU Netenerlanas 
NUZEE ESIG 
NULEIE Italy 
NUEE HEamees 
NUIELE ErEanmee 











20 Fows ln set (0.00 sec) 


从 suppliers 数据 库 中 显示 那些 region 值 凡 NULL《〈 即 不 售 任 何 值 ) 的 记录 的 region 与 country 字段 。 


示例 B.10 


ms 之 是 SEERCTEEEOICnEEOUDEEY BRROMNMSDPEIEUEESS 
-> WHERE region NOT NULIL: 











SOULS 而 CUnmieiey 

工 有 人 USRA 

MI USRA 
Asturias 3 
VeinsEE LE 
的 USRA 

MA USRA 

NSW Australia 
Quebec Canada 
Quepbec Canaaa 
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解释 
从 suppliers 数据 库 中 显示 那些 region 值 NOT NULLI《 即 含有 某 个 值 ) 的 记录 的 region 与 


country 字段 。 
> 和 < 运算 符 。 运算 符 > 和 < 用 于 选取 那些 字段 值 大 于 或 小 于 某 个 值 的 行 ， 璧 如 : 
SELECT Prodquct，Pprice FROM table WHERE Price > 50: 


SELECT product，Price FROM tab1le 
WHERE Price > 50 && Price < 100: 


读者 还 可 使 用 >= 和 <= 运算 符 来 选取 那些 其 字段 值 大 于 等 于 或 小 于 等 于 某 个 值 的 行 ; 


SELECT product，Price FROM tab1le 
WHERE Price >=50: 


AN 


示例 B.11 
ISRCTEUTAEETECE USTmiERREON OOEOET De ES 
-> WHERE UnitPrice > 1 && UnitPrice < 3: 








UnnnseEnes Quantity 
250000 2 
EU 60 
20OOUU 24 
OO 20 
20000 8 
20000 60 
250000 49 
00UU 50 
20000 20 


示例 B.12 


mySsdl> SELECT CategoryNamne fcrom Categories WHERE CategoryName < 'D' 





+-------------- 十 
| CategoryName | 
+-------------- 十 
| Beverages | 
Il Conaiments | 
| Confections | 
+-------------- 十 


3 Fows in set (0.00 sec) 


AND 和 OR 运算 符 。 运算 符 AND 与 OR 用 在 WHERE 子 句 中 ， 负 责 指明 希望 从 表 中 选择 哪 
种 数据 。 AND 运算 符 会 检查 一 个 或 多 个 条 件 ， 判 断 是 否 所 有 的 条 件 都 为 真 ; 如 果 是 的 话 ，SELECT 
就 会 显示 这 些 行 。 只 要 任意 一 个 列 出 的 条 件 为 真 , OR 运算 符 就 会 显示 该 行内 容 。AND 运算 符 亦 可 
写作 && 符号 ， 而 OR 运算 符 也 可 写成 

















吕 


示例 B.13 
mysdl SECTECOnUaCEName EROMESUEEUREES 
-> WHERE City = 'Montreal' AND Region = "Quebec ': 
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TWOSEE 人 ESech 
解释 
当 使 用 & 上 (AND ) 运算 符 时 ， 位 于 WHERE 子 句 中 的 所 有 待 测 条 件 都 必须 为 真 ， 也 就 是 说 ， 
City 必须 是 Montreal， 同 时 Region 也 必须 是 Quebec。 如 果 两 个 条 件 都 为 真 , 则 SELECT 将 会 从 
Suppliers 数据 库 中 打印 ContactName 字段 内 容 。 





[后 BA 
mysal> SCTLCcmeanyNamneACIE7 RERROMSUEEUNESES NTRERE 
-> City = 'Montreal' OR City = 'Boston' ， 
+----------------------------- +=----------] 
| CompanyName 攻 Soey 
+----------------------------- +=----------] 上 
INew Enolana SeafooaQ Cannezy | Boston 
| Ma Maison | Montreal 
+=----------------------------- +-------- 一 -1 5 
2 Fows jin set (0.00 sec) 


解释 
当 使 用 | 外 (COR) 运算 符 时 ， 位 于 WHERE 子 句 中 的 待 测 条 件 只 要 有 一 个 为 真 即 可 也 就 是 说 ， 当 
City 等 于 Montreal 或 者 City 等 于 Boston 时 ,SELECT 将 会 从 Suppliers 数据 库 中 打印 出 CompanyName 
与 City 字段 。 


LIKE 与 NOT LIKE 条 件 。 LIKE 模式 匹配 运算 符 是 一 个 功能 强大 的 运算 符 , 可 以 用 作 WHERE 
子 句 中 的 一 个 条 件 ， 人 允许 用 户 只 选择 “ 像 是 ”或 者 匹配 某 个 模式 的 行 。 

百 分 号 符号 〈%) 是 一 种 通配符 ， 能 够 匹配 任何 可 能 出 现在 指定 字符 前 面 和 /或 后 面 的 字符 。 

”可 用 于 匹配 单个 字符 。 

LIKE 条 件 可 以 用 在 任何 合法 的 SQL 语句 中 , 包括 SELECT 、INSERT、UPDATE 或 DELETE 语句 。 


格式 


SEECTEEOLUmnD EROMRESOTE 本 人 下 下 下 攻 和 已 关 下 正殿 本 本 记 S 世 二 S 基 页 
SELECTEEclunnRROMEable NEEREEECLUnnNOITRELTKE DaEEeTIT 


卫 xample: 
本 和 书信 EmmaERRONREERSECme 让 本 RESEETamE 呈 WINME 





上 面 这 个 示例 展示 了 如 何在 LIKE 和 NOT LIKE 模式 匹配 过 程 中 使 用 通配符 % 和 。 

模式 匹配 和 % 通配符 。 通 配 符 % 用 于 在 执行 模式 匹配 时 表示 一 个 或 多 个 任意 字符 。 例 如 , 当 
搜寻 所 有 区 号 为 408 的 电话 号 码 时 ， 读 者 可 以 使 用 408%， 其 中 的 % 将 会 替换 为 408 后 面 的 任意 
字符 。 




















A\\ 


示例 B.15 


mysgl2 SEERCTEComoanyNameAacouneryRROMRECUSEomeEES 
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= 是 NWURRRESCUDECIIORESRESWSU 


Berzglunds snabbkoPp Sweden 


Chop=suey Chinese Switzezlana 
EGGc 全 Swedaen 
RUGDUeTSugermarKE SwWaEzZeland 











4 rows in set (0.00 sec) 














SELECT 语句 将 返回 所 有 来 自 以 Sw 开头 的 国家 的 顾客 。 








SG 区 S 下 下 本 人 TEL EEKELSOO 
RE me 
Tokyo Japan 
OVieqdc Spain 
SEERIC 改正 本 区 届 昌 
Salezne TEST 
4owsaunsse OO0OSec 








SELECT 语句 将 返回 所 有 满足 条 件 的 城市 和 国家 ， 其 中 s 会 匹配 以 字母 o 结尾 的 任意 城市 。 











全 
四 
二 
对 


示 


mysdl 世 SEERCTECSTESDnameEROMEEUSECmeES 


=-> WHERE CompanyName IIKBE '%SuPezsg ' : 
nn 间 
| Companyname | 
起 王 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 = 一 一 一 十 


| IIIA=Superzmezccado | 
| 上 国 RenEsESsaseenma 人 二 | 


2owWSOESEGRRLOR Use 


解 


释 
SETECT 语 名将 返回 所 有 满足 条 件 的 公司 名 称 , 其 中 * 会 匹配 任何 含有 模式 Super 的 公司 名 。 

















通配符 。 下 面 这 个 示例 显示 了 下 划 线 (_) 通配符 是 如 何 工作 的 。 请 记 住 ，_ 只 匹配 单个 字符 。 


示例 B.18 


mysolE SEERCTSREEmDSLCnRR NESEnameEROMEEmELIOY7EES 


-> WHERE extension LIKE '4 四 
+----------- +----------- 7 
| extensiocon | stname | 
+----------- +----------- 十 
| 428 | Michael | 
| 465 | RobeEttt | 
] 必 二 5 过 | Anne | 


SQL 匡 言 入 门 609 





+----------- +----------- 十 
3 Lows in set (0.00 sec) 


解释 
这 条 SELECT 语句 将 返回 所 有 满足 条 件 的 扩展 名 和 文件 名 , 它们 的 扩展 名 含有 三 个 字符 并 以 一 
个 4 作为 肯 字符 。 符 号 _ 用 于 匹配 单个 字符 。 





BETWEEN 语句 。 关 键 字 BETWEEN 允许 用 户 根据 一 组 表示 范围 的 条 件 来 选择 所 需 字 段 。 
BETWEEN 子 名 的 语法 如 下 所 示 : 


格式 


SERIES ERROMREE2iglie 
WHERE column BETNWEEN "valuel' AND 'value2'! 


卫 xample: 
SelscwsaogeEtrcomosesconwnee agecaBETINEENEDTOSSEE207 


示例 B.19 
Im scnE 量 SERIESECOUEECNamS ESSceUc Rd 
-> EROM Proqucts WHERE ProquctId BETWEEN 30 AND 33:; 











BEEoOaQuctName Besdeeenad 

NoraQ=ost Matjeshercing 汉 岂 

Gorgonzola Telano 本 浊 

Mascarpone Rabioli 习 肥 

Geitos 蕊 司 本 
4 rows in set (0.06 sec) 


解释 
SELECT 语句 将 返回 那些 ProductId 值 位 于 30 和 33 之 间 的 产品 名 称 与 产品 ID 。 


借助 ORDER BY 对 结果 排序 。 通 过 使 用 ORDER BY 子 句 , 用 户 便 可 以 指定 的 次 序 显示 查询 的 
结果 。 各 行 可 以 按照 升序 (ASC， 默 认 情 况 ) 或 降序 (DESC) 进行 排列 ， 用 于 排序 的 值 既 可 以 是 
字符 串 ， 也 可 以 是 数字 。 


格式 


SELECT column FROM table 
[WHERE conaqitionl] 
ORDERLBY CeLonmnn [RSC DBESCI 


Example: 
SEECTECSmosanyaoOecusNUnmoer EROMROOEES 
ORDEREBYEEComeamy 


AN 


示例 B.20 
mysdl2SEECDECSTESDY7YName CONESCENSTmEBROMEEESEEUIRIEES 
-> ORDER BY ComPanyName LIMITIT 10:， 


奉 录 怠 





AUux joyeux ecclesiastiques 
BOECCOU BESNSETLSS 
Coocopezativa QQe Queses 
了 SCargots NOUVYeatu 
Gin 

REGOeeEs 本 本 ESTeS 

区 wmaaonReieEnD 全 由 到 
G'oay，， Mate 

Gal Patucrcage 

Gandma Kelly"s Homesteaa 


二 全 二 二 





OSIESSGENURSUWOESECN 


则 


以 升序 方式 对 CompanyName 字段 进行 排序 ， 


Guylene Nodier 

Gineevy 吓 Say 

Antonio ae1l Valle Saavedqra 
Marie Delamaze 

Charlotte Coopez 

Chantal Goulet 

十 二 吉 二 记忆 半 

Wenay Maeckenmzame 

ELiane Noz 

REegdunaMurcgny 








并 将 其 结果 限制 为 10 个 记录 。 


AN 


示例 B.21 


mysdlE2ESEERCTECSTESD7NameaconEaCENSTE 本 ROOM 大 SDDS 
-> ORDER BY ComPanyName DESC LIMIT 10: 





2aanse Snoepftabriek 

SKYSETEREaOEEE 

SVvensk S]5sfsaqda AB 

SSseaevy BE ee S ECOE 
Refrescos Americanas LTDA 

PLULZer LIebensmittelgrzo=-markte AG 
PEB Kmnackebrsa AB 

BEavVTlCVa7 七 站， 

BassEBUIEEIO SO 宙 到 

Nocske MeliezieI 





DIEKETUSENEE 
Yoshi Nagase 
ESITETEUDESSE 
PeteEzE 仙 半 LSsen 
ES 
Martin Bein 

Lars Peterson 

下 ne 
[ESNWEDOUROIR TESTOIGDG 
Beate VileiaQ 





297cowsansetcORsOOwssecy) 
解释 
以 降序 方式 对 CompanyName 字段 进行 排序 ， 并 将 其 结果 限制 为 10 个 记录 。 


B.2.2 INSERT 命令 


INSERT INTO 语句 用 于 把 新 的 行 插入 表 中 。 在 VALUES 关键 字 后 面 ， 列 出 了 一 组 以 逗号 隔 开 
的 列 名 。 





格式 


NERO EnmeREUES ZSIEH USD 记 


You can also specify the columns for which you want to insert data: 


NSRRENIEOREESSEEEDemeUCwmnil 
VALUES (valuel，value2，....) 


忆 世 业 让 而 玫 2 站 
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示例 B.22 


INSERT INTO ShiPPezs (CompanyName， Phone) 
外 二 肌 2 二 全 区 本 16 让 省 则 人 三 5 三河 攻 22 洒 司 全 司 : 


省 SbeeQy Ex<PFess 

电 UniteaQ Package 

加 FEederalsniocanng 
4 GanaaaEecs 


(SO 下 
(SOSWRSSSE SLS 
50)ESSSE 
和 用 人 三 旺 局 马 王 十 罗 双 寺 














INSERT INTO 语 句 把 一 个 新 的 行 插 入 到 Shippers 表 中 。 为 此 , 首先 列 出 其 字段 名 , 然后 在 VALUES 
关键 字 后 面 列 出 这 些 字段 的 对 应 值 。 这 里 不 包含 ShipperID 字段 , 因为 在 创建 表 时 就 已 经 把 ShipperID 
设置 成 了 PRIMARY KEY 类 型 ， 因 此 数据 库 会 在 每 次 添加 新 的 运 货 者 记录 时 自动 递增 该 字段 。( 让 
数据 库 自 动 递增 PRIMARY KEY 字段 能 保证 它们 的 值 永 远 是 惟一 的 。) 如 需 查 看 该 表 最 初 是 如 何 创 
建 的 ， 可 以 查看 来 自 下 列 DESCRIBE 命令 的 输出 : 


mysol2aDRSCRIEBESmapDeESL 


+-=------------ +=------------- +=-= 一 -一 -= +=- 一 一 -一 +--------- 
| ERzela | 了 ypPe [NEReY Eee 
+=---------- 一 -一 +------------- +=- 一 一 -一 +=- 一 一 -一 +- 一 -一 一 -一 
| ShiPPezID Im (Ed | | PRI | NUIEE 
IEecmeanyNanms 本 7aecnmaci40) 届 | | | 

| PEhone 大 aema 人 OUYES | NE 
+=-=------------ +=------------- +=-=-- 一 =- +=-=-- 一 一 +=--------- 


B.2.3 ”UPDATE 命令 


+ 一 一 一 + 一 二 


一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 十 
也 入 七 工 己 | 
一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 十 
auto_increment | 
| 

| 

一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 十 


UPDATE 语句 用 于 修改 表 中 的 数据 。 用 户 应 在 UPDATE 命令 之 后 列 出 待 修改 数据 所 在 的 表 名 ， 
然后 是 一 个 负责 指明 修改 哪个 字段 的 SET 语句 ， 最 后 则 是 将 要 赋予 该 字段 的 新 值 。 此 外 还 可 使 用 


WHERE 子 句 进一步 指明 修改 哪些 数据 ， 进 而 限制 更 新 操作 








的 执行 范围 。 


示例 B.23 的 关键 之 处 就 是 使 用 WHERE 语句 限制 了 更 新 操作 的 执行 范围 。 


格式 
UPDATE table _ name 
本 ceonmname 有 二 TEVRVaUIUE 
HRRECcmnnmame 三 是 SOmemVans 
卫 xample: 


UEDATRoFasrFSs SETDShnapCounteey=Uxsmocurg NEREULECUSEcmeEzIQ ncCD 7 


示例 B.23 


EEC 


+----------- +------------------ +---------------- 十 
同 Shnap5eEID 则 ICcnmncanyNamne 赂 Ehneoms | 
+----------- +------------------ +---------------- 十 
| 1 | SpeedaQy 卫 xPrzess | 
| 2 | United Packadge | 
| IESsdeaushnaoennogalEOSNESSSE SS 
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+----------- +------------------ +---------------- 十 
SS SEORUUSEe 


2 mysdl> UPDRATE shippers SET PHONE=' (777) 444-1234:! 
-> WHERE comPanyname = 'Eederal ShiPPing':， 
Query OK，1L row affecteaQ (0.08 sec) 
RSwsemaeensa lanoseawe LNacnamnogs 0 


Eee 


+----------- +------------------ +---------------- 于 
必 SihapossDDll ccnocanyNamne 大 Ehems | 
+------ 一 -一 -一 +--------------- 一 -一 +----------- 一 -一 二 
| 1 | SpeedaqQy 卫 XPEess 号 

| 2 UnmEedRBacKage [加 

| 3 | ERederal ShipPPing | (777) 444-1234 | 
+=-=---------- +------------------ +---------------- 十 
SCNSE RUIEESSe) 


解释 
1. SELECT 命令 显示 Shippers 表 中 所 有 的 字段 。 
2. UPDATE 命令 人 允许 用 户 更 改 一 个 已 有 的 记录 。 此 处 更 改 Fereral Shipping 的 电话 号 码 。 
3. 这 个 SELECT 命令 的 输出 内 容 说 明 前 述 UPDATE 命令 已 经 成 功 地 更 改 了 Fereral Shipping 的 
电话 号 码 。 


B.2.4 DELETE 命令 


DELETE 语句 用 于 删除 表 中 的 行 ， 并 返回 删 去 的 行 数 。DELETE 会 使 用 FROM 子 句 来 指定 含 
有 待 删除 数据 的 表 名 ， 并 通过 WHERE 子 句 指明 筛选 条 件 ， 以 便 确 定 应当 删 除 哪 些 数据 。 

请 务必 小 心 ! 如 果 没 有 提供 WHERE 子 名 的话， 就 会 删 掉 所 有 的 行 。 

如 果 指 定 了 ORDER BY 子 句 ， 则 会 按照 给 定 的 顺序 依次 删除 各 行 。LIMIT 子 句 则 会 为 待 删除 
的 行 数 设 定 一 个 限制 值 。 


格式 
DERERROMEEEaoE 量 Name 
WIREIRR 量 ennngname Someahus 


DELETE 语句 非常 类 似 于 UPDAIE 语句 。 如 要 删除 前 面 所 述 的 记录 ， 读 者 可 以 输入 如 下 查询 语句 : 
DELETE FROM Shippers WHERE CompanyName= "Canada Post ':， 

B.3 SQL 数据 定义 语言 
数据 定义 语言 CDDL ) 是 SQL 的 一 个 组 成 部 分 ， 负 责 创 建 或 销毁 数据 库 对 象 。 读 者 还 可 用 它 


去 定义 索引 【〈 键 )、 在 不 同 表 之 间 指 定 链接 、 并 能 在 不 同 数据 库 表 之 间 置 入 限制 。 一 般 而 言 ， 诸 如 
创建 和 销毁 数据 库 之 类 的 操作 都 是 由 数据 库 管 理 员 决 定 的 ， 此 外 ， 他 还 有 权 根 据 获得 的 访问 权限 实 


























名 ”读者 也 可 设置 MYSQL， 使 得 如 果 在 DELETE 时 不 带 WHERE 子 句 ， 它 就 不 删除 任何 行 。 
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现 表 的 创建 和 丢弃 〈drop ) 操作 。 
SQL 中 最 重要 的 数据 定义 语句 包括 如 下 几 种 : 
。CREATE TARALBE 一 一 创建 新 的 数据 库 表 。 
”RARLTER TABLE 一 一 更 改 〈 修 改 ) 数据 库 表 。 
。DROP TABLE 一 一 删除 数据 库 表 。 
。CRERATE INDEX 一 一 创建 一 个 索引 (查询 键 )。 
DROP _ INDEX 一 一 删除 索引 。 





















































B.3.1 创建 数据 库 


创建 数据 库 是 一 项 非常 简单 的 工作 。 读 者 所 要 做 的 只 是 运行 一 条 命令 ， 其 参数 也 只 有 一 个 数据 
名 而 已 。 


二 





格式 


CREATE DATABASE qdqatabase _ name 





在 前 面 的 示例 中 ,我 们 用 到 了 northwind 数据 库 。 由 于 本 章 将 为 附录 A 的 艺 廊 实 现 一 个 完整 的 
Web 应 用 ， 因 此 现在 需要 为 该 应 用 创建 数据 库 。 





示例 B.24 


下 mysdlLl> CRERATE DRATRABRASE gallerydb: 
G@ueryonaaleeowEaEeceo OUEEESEE) 


包 mysdql> Show databases : 


gal1Lerydb 
mySsGdIl 
northwind 
PhPpmyadmin 
ESS 忆 








5 rowsSs in set (0.00 sec) 


解释 
大 功 告 成 。 现 在 该 数据 库 已 经 创建 好 了 。 请 注意 ， 尽 管 已 经 创建 了 数据 库 ， 但 目前 我 们 尚 不 在 
该 数据 库 中 。 因此 需要 使 用 下 面 一 个 示例 中 的 USE 命令 来 将 这 个 新 建 的 数据 库 设置 成 当前 默认 数据 库 。 


示例 B.25 
mysdql> USE gal1Lerydb: 
Database changeaQ 


解释 
我 们 现在 是 在 gallerydb 数据 库 中 ， 此 后 所 有 的 SQL 命令 都 会 在 该 数据 库 中 执行 。 


B.3.2 SQL 数据 类 型 
在 创建 好 数据 库 之 后 ， 用 户 还 应 添加 构成 该 数据 库 的 各 张 表 。 在 创建 一 张 表 之 前 ， 必 须 首先 决 
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定 哪 种 类 型 的 数据 
全 号 、 价格 ， 等 于 二 沁 
值 型 、 


应 当 保 存 到 表 中 ; 例如 ， 一 行当 中 是 否 应 当 包 括 名 字 、 日 期 、 部 件 号 码 、 社 会 安 
数据 类 型 负责 指定 列 持 有 什么 类 型 的 数据 。 基 本 的 数据 类 型 包括 字符 串 型 、 数 





日 期 与 时 间 型 。 如 需 了 解 完 整 的 类 型 列表 文档 ， 请 查阅 http://dev.mysql.com/doc/refman/5.0/ 


en/data-types.html 。 
表 B-3 含有 SQL 中 最 为 常见 的 数据 类 型 


数据 类 型 


表 B-3 ”最 常见 的 SQL 数据 类 型 
描述 





数字 型 





INTEGER 
INT UNSIGNED 
SMALILINT 


TINYINT 


FLORAT (my dl) 





DOUBLE (my dq) 


DECIMRAL (my dy) 


NUMERIC (my dl) 


持 有 一 个 长 度 为 4 个 字 节 的 完整 数字 
持 有 一 个 长 度 为 4 个 字 刷 的 非 负 完整 数字 
持 有 一 个 长 度 为 2 个 字 节 的 完整 数字 


持 有 一 个 长 度 为 1 个 字 刷 的 完整 数字 

一 个 长 度 为 4 个 字 节 的 小 数值 。 对 999.0009 套用 FLOAT(7,4) 就 会 得 到 999.0001。 
m 负责 指定 该 数字 的 最 大 位 数 。d 负责 指定 位 于 整数 部 分 右 侧 的 小 数 部 分 的 最 大 位 数 

一 个 长 度 为 8 个 字 节 的 双 精 度 小 数值 

一 个 长 度 为 8 个 字 刷 的 实数 或 小 数 。m 负责 指定 该 数字 的 最 大 位 数 。d 负责 指定 位 于 
整数 部 分 有 侧 的 最 大 位 数 


DECIMAL 和 NUMERIC 数据 类 型 用 于 以 确定 的 精度 保存 精确 的 数值 型 数据 值 ， 例 
如 ， 资 金 数 据 。 它 持 有 带 小 数 的 数字 






































沁 





字符 串 弄 





CHAR (SI2 互 ) 


VARCHAR (SI2E) 














持 有 一 个 长 度 固定 的 字符 串 〈 可 以 含有 字母 、 数 字 和 特殊 字符 )， 其 长度 从 0 到 255 
个 字符 。 在 括号 中 指定 其 固定 长 度 

一 个 长 度 可 变 的 字符 串 〈 可 以 含有 字母 、 数 字 和 特殊 字符 )， 在 MySQL5.0.3 及 其 以 
后 版 本 中 ， 其 长 度 范 围 是 从 0 到 65535 个 字符 。 在 括号 中 指定 其 最 大 长 度 














































































































TINYTEXT 一 个 最 大 长 度 为 255 个 字符 的 字符 串 
本 一 个 最 大 长 度 为 65535 个 字符 的 长 度 可 变 的 字符 串 ， 用 于 保存 大 文本 文件 、 文 本 区 
域内 容 等 
二 全 二 进 制 大 对 象 。 它 是 一 种 最 大 长 度 为 65535 个 字符 的 二 进 制 字符 串 ， 用 于 保存 二 进 
制 文 件 、 图 像 、 声 音 等 
日 期 与 时 间 型 
(yyyy-mm-dd) 年 、 月 、 日 ， 例 如，2006-10-30〈 注 意 :， MySQL 多 许 用 户 存 入 
加 0000-00-00， 称 之 为 “ 伪 日 期 ， | 
.DATETIME (Cyyyy-mm-dd hh:mm:ss) 日 期 和 时 间 ;， 例如 ，2006-10-30 22:59:59 
_ (yyyy-mm-dd hh:mm:ss) 日 期 和 时 间 ; 例如 ，1970-01-01《〈 某 一 行 上 最 后 一 
人 的 日 期 与 时 间 ) 
TIME (Chh:mm:ss) 时 间 ， 例 如 ，10:30:58 
YERAR (CYyYyyy|yy) 四 位 数 或 两 位 数 形式 的 年 份 ;， 例如 ，1978 或 78 
B.3.3 创建 表 
创建 表 要 比 创建 数据 库 稍微 复杂 一 些 。 CREATE TABLE 语 句 用 于 在 数据 库 中 创建 一 张 新 表 .用 
户 首 先 必 须 为 这 个 表 命 名 ， 然 后 指定 表 内 含有 的 所 有 字段 、 数 据 类 型 和 其 他 任何 属性 。 数 据 的 类 型 
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可 以 是 一 个 整数 、 一 个 像 5.4 这 样 的 浮 点 数 〈 实 数 )、 一 个 由 字符 构成 的 字符 串 、 一 个 日 期 、 一 个 时 
间 ， 等 等 。 并 非 所 有 数据 库 都 用 相同 的 方式 指定 数据 类 型 。 如 要 了 解 在 MySQL 中 可 以 选用 哪些 数 
据 类 型 与 属性 ， 可 以 参见 表 B-3 或 者 MySQL 文档 。 

正确 设计 表 结 构 是 一 项 非常 重要 的 工作 。 如 果 读 者 以 前 没有 接触 过 数据 库 的 话 , 就 更 需要 深入 地 
研究 这 个 主题 。http://databases.about.com/od/specificproducts/anormalization.htm 给 出 了 一 套数 据 库 
设计 方面 的 优秀 初学 者 教程 。 就 本 章 而 言 ， 下 面 列 出 了 必须 在 设计 数据 表 时 牢记 在 心 的 几 条 规则 ; 

1. 为 字段 选择 正确 的 数据 类 型 ， 例 如 ， 对 主键 使 用 整数 型 (integer)， 对 较 大 的 数字 使 用 序 点 
型 float) 或 双 精 度 浮 点 型 (double ), 对 货币 字段 使 用 十 进 制 数 〈decimal) 或 数值 型 Cnumeric )， 
对 时 间 和 日 期 字段 选择 正确 的 日 期 格式 ， 并 且 要 为 字符 长 度 可 变 的 字符 串 指 定 充裕 的 字段 宽度 ， 璧 
如 姓名 字段 和 地 址 字段 。 如 果 需 要 保存 二 进 制 数 据 的 话 ， 和 譬如 图 像 与 声音 ， 则 应 使 用 支持 大 批量 数 
据 的 数据 类 型 ， 璧 如 blob 型 和 文本 〈text) 型 。 详 见 表 B-3。 

2. 为 各 列 提供 简洁 且 有 意义 的 列 名 , 并 确保 这 些 列 名 在 表 中 都 是 惟一 的 。 请 不 要 像 下 面 这 样 在 
一 个 表 中 出 现 多 个 重复 的 列 。 这 里 不 应 该 重复 出 现 三 个 以 phone 开头 的 列 。 




















First Name Last _ Name Phone1l Phone2 Phone3 





Joe Blow 415-444-3333 333-111-1233 652-345-1123 


























3. 在 每 一 行 的 各 个 列 中 ， 只 能 保存 单个 值 ， 例如， 假定 有 一 个 Phone 字段 ， 那 就 不 能 把 “ 手 
机 、 家 庭 电 话 、 商 务 电话 ”一 股 脑 儿 放 到 该 表 的 单元 格 中 ， 如 下 所 示 : 


First Name Last Name Phone 








Joe Blow 415-444-3333, 333-111-1233, 652-345-1123 














4. 为 每 一 组 相关 的 项 目 分 别 创建 不 同 的 表 ， 并 为 每 一 行 定 义 惟 一 标识 它 的 列 《〈 即 主键 )， 如 下 
所 示 : 





User Table: 
Customer Id First Name Last_ Name 
1 Joe Blow 

















Phone Table: 
Customer Id Cell Business Home 
1 415-444-3333 333-111-1233 652-345-1123 






































5. 如 果 还 是 存在 元 余数 据 的 话 ， 最 好 将 它们 放 入 属于 自己 的 表 中 ， 并 使 用 外 键 〈foreign key) 
在 表 与 表 中 间 建 立 关系 (relation ) 。 





格式 
CRERARREEERAEBTR ESGLEEDSme 
( 
EDOUnagnamei ea ieMSSF 
Econn 旺 name ae 有 EXOEF 
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) 


示例 B.26 
下 mysdlLl> CRERATE DRATABRASE Pets : 
Cuery OK，1 row affecteaQ (0.24 sec) 
区 mysdl> USE Pets 
司 mysdl> CREATE TABLE dog 


=> (namen7archnac (20)7 
一 OwneLr Varchar(20)， 
一 > DzzeeaQ aczchazr(20)， 
一 > SEE 天 


一 > nEOae 
一 > Qeath aate 
二 


Query OK，0 Fows affecteaQ (0.16 sec) 
4 mysdl> describe dog: 
Eeelia TYPe NI ESYV DesfamltE 各 < 
name ES ES NUZEDE 
OWneL Wearene 2 荆 RS NUZEDE 
bzeeda NE 这 加 名 NUEE 
SiEZ ETaEE 全 有 YES NUZEDE 
one Qate YERS NUEE 
Qeatn Qate YES NUEE 




















GOTnESERR 人 ROSEeW 

1. 创建 一 个 名 叫 pets 的 数据 库 。 

2. 选择 并 进入 pets 数据 库 。 

3. 创建 一 个 名 叫 dogs 的 表 ， 并 设 定 其 字段 和 数据 类 型 。 其 中 ，name、owner 和 tbreed 字段 将 
由 最 大 宽度 为 20 个 字符 的 字符 串 组 成 。sex 字段 只 有 一 个 字符 ， 其 值 为 了 或 巴 ， 分 别 表示 女 
性 与 男性 。birth 和 death 列 则 拥有 date 类 型 。 

4.DESCRIBE 命令 类 似 于 SHOW 命令 。 它 负责 显示 新 表 的 布局 〈layout ) 。 





现在 ， 我 们 便 可 向 新 表 中 插入 一 些 数据 了 。 


示例 B.27 


mysdl> INSERTIT INTO dog(name ,ownezr,breed，sex，birth，dqeath) 
之 ES 
的 二 作 入 二 人 区 攻 罗 二 
Query OK，1 row affecteQ (0.09 sec) 


B.3.4 创建 键 


在 现实 生活 中 ， 人 们 的 身份 可 以 由 社会 安全 号 、 驾 驶 执照 号 和 雇员 号 来 标识 ;图 书 可 以 通过 
ISBN 号 来 标识 ;而 Web 商店 订单 则 可 通过 一 个 购买 订单 号 来 标识 。 上 述 这 些 标识 号 都 必须 是 惟一 
的 ,因此 任意 两 个 人 不 会 拥有 相同 的 社会 安全 号 , 任意 两 本 书 也 不 会 拥有 相同 的 ISBN 号 , 依 此 类 推 。 
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键 〈key) 负责 在 表 中 惟一 标识 一 条 记录 。 有 两 种 不 同 的 键 : 主键 (primary key) 和 外 键 《〈foreign 
key ) 。 

主键 (primary key)。 每 张 表 里 一 般 都 拥有 一 个 主键 。 主 键 用 于 在 数据 库 中 惟一 标识 一 条 记 
录 。 它 们 必须 是 惟一 的 ， 从 不 更 改 ， 每 张 表 中 仅 出 现 一 次 ， 并 且 一 般 都 是 数值 型 的 。 

用 户 可 以 选择 手动 为 每 条 记录 生成 惟一 编号 ， 亦 可 让 数据 库 代 劳 。 如 果 让 数据 库 负责 生成 主键 
的 话 ， 它 会 为 每 条 记录 提供 惟一 的 编号 ， 甚 具体 做 法 是 : 首先 给 定 一 个 起 始 值 〈 警 如 1)， 然 后 对 每 
一 条 新 加 的 记录 都 将 该 数字 递增 1。 即使 某 条 记录 后 来 被 删除 了 ， 其 对 应 的 数字 也 将 永远 不 再 循环 
使 用 。 数 据 库 会 自动 递增 其 内 部 的 计数 器 ， 确 保 每 条 记录 都 能 获得 一 个 惟一 的 “ 键 ”。 

如 需 将 某 个 字段 设 定 为 主键 ， 可 使 用 属性 PRIMARY KEY (field_name)， 并 在 字段 定义 后 二 
使 用 AUTO_INCREMENT 属性 ， 以 便 告诉 数据 库 自 动 生成 惟一 的 编号 ， 主 键 不 应 为 空 〈null)。 

下 面 两 个 示例 显示 了 一 个 名 叫 categories 的 表 ， 其 主键 名 叫 CategoryID 。 每 当 向 该 表 中 添加 新 
的 类 别 〈category) 时 ， 都 会 自动 递增 该 主键 。 


示例 B.28 


ws 是 WE 下 Te 国生 六 
Database changea 
mysgl DERSCRIBEREcateogonmesr 
























































ETeUIG JS NT eey DeEamil 世 Pei 
| CategoryID [DEL | | PRI | NUILDE | auto_increment | 
eateogocoeyName Waiecmassiiis 让 MU 
Description congtex 世 YES NULE 
BagGauee 1ongpb1ob ES NUZEE 
4 zzows in set (0.09 sec) 





CategoryID 是 主键 ， 它 是 一 个 最 长 11 位 的 整数 ， 其 起 始 值 是 NULL 〈 没 有 值 )， 并 会 不 断 递 增 
1。 当 第 一 次 把 一 条 记录 揪 入 该 数据 库 时 ， 主 键 值 为 1。 


示例 B.29 


my7YS59l> SRIECT CategoryID CategoryName EROM categccies:” 


Beverages 

多 Conaiments 

) Confections 

4 RayEEequeS 
5 Grains/Cereals 
6 Meat/Pou1lLtzY 

7 PEoduce 
8 SeafoocaQ 











8 rows in set (0.16 sec) 
主键 是 CategoryID， 它 用 于 在 这 个 来 自 northwind 数据 库 的 表 中 惟一 标识 不 同 的 类 别 。 每 当 把 
一 个 新 的 类 别 加 入 这 个 表 时 ，CategoryID 都 会 自动 递增 1 。 


676 奉 录 也 





外 键 〈foreign key)。 如 果 另 一 张 表 中 引用 到 了 这 张 表 的 主键 ， 则 称 作 是 外 键 〈foreign key )。 
外 键 负责 在 表 和 表 之 间 建 立 相 互 关系 。 下 面 的 示例 显示 了 两 张 表 , 它们 都 引用 了 CategoryID 键 ， 只 
不 过 在 一 张 表 中 它 是 主键 ， 而 在 另 一 张 表 中 它 则 是 外 键 。 


示例 B.30 


YESSLTDEBSCRIBEEESUS9OESST 























REielia EN IN Se DesEaulit Re 
孔 CategoryID Int(1L1) PRI NULEL auto_increment 
CakegcoeyName ES MU 
四 Escesenipeem EmoES 芋 ES NUIE 
BCGEUEe Seloaleis EN NUILE 



































Rielid ER Ni 中央 区 EY ea il 有 Era 
Beqween 下 ) 国 这 下 NUILE GUESTRemenmie 
PoadquctName eehnat4oh MUE 
SupPlierID IE 人治 MU NUEDE 

马 CategoryID ET YES | MUL | NULL 
国 UEnEIERRE 下 页 DEC EOes YES NU 
UnmaaReaee qdqecimal (19,，4) SS NUEIEE 
UnmaaesnS Eee STRTEAG YERS NU 
UnitsonoOraeL 区 JE 有 区 EUS) 人 NUEDE 
ReorderLeVvel E 放 SEONENGW 汪 囊 总 NUEE 
Bescemeanuea ER 0 


EeewSEEE ROSE 
1. categories 表 的 主键 字段 名 叫 CategoryID 。 
2. products 表 拥 有 自己 的 主键 (ProductID ), 此 外 还 有 一 个 名 叫 CategoryID 的 外 键 。 如 果 主 键 
被 其 他 表 所 引用 ， 则 称 作 是 外 键 。 


B.3.5 关系 


关系 型 数据 库 的 主要 优势 之 一 就 是 能 在 表 与 表 之 间 建 立 关 系 (relation )。 简 而 言 之 ， 关 系 能 把 
一 张 表 中 的 字段 和 另 一 张 表 中 的 字段 连接 起 来 。 这 种 关系 允许 用 户 在 数据 库 中 搜索 相关 的 记录 。 

使 用 一 列 或 多 列 值 从 一 张 表 向 另 一 张 表 匹配 行 的 操作 就 是 所 谓 的 连接 (join) 运算 。 有 多 种 不 
同类 型 的 连接 语句 ， 璧 如 全 连接 (full join)、 交 叉 连 接 (cross join)、 左 连接 (left join )， 等 等 。 这 
里 我 们 先 介绍 一 种 对 两 张 表 的 简单 连接 ， 称 为 内 连接 (inner join )。 

表 和 表 之 间 可 以 通过 键 相互 关 联 。 正 如 前 面 所 述 , 主键 是 一 个 列 , 含有 惟一 标识 各 行内 容 的 值 。 
在 另 一 张 表 中 与 它 匹配 的 键 又 称 作 外 键 。 借 助 这 些 键 ， 用 户 便 能 在 条 件 请 足 时 把 来 自 不 同 表 的 数据 
绑 定 起 来 ， 而 不 必 重 复 每 张 表 中 的 所 有 数据 。 

不 妨 考 虑 前 面 的 示例 B.30， 该 示例 描述 了 两 张 来 自 northwind 数据 库 的 表 。 其 中 一 张 表 名 叫 
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categories, 另 一 张 则 名 叫 products。CategoryID 是 categories 表 中 的 主键 字段 , 它 同 时 也 是 products 
表 中 的 一 个 外 键 。 可 以 使 用 CategoryID 键 在 这 两 张 表 之 间 建 立 一 个 关系 。 

含有 公共 键 的 两 张 表 。 如 前 所 述 ，categories 表 和 products 表 都 含有 一 个 CategoryID 键 ， 并 共 
享 相同 的 值 。 这 样 便 可 在 这 两 张 表 之 间 建 立 一 个 关系 。 

这 里 不 妨 创建 一 个 关系 ， 列 出 所 有 位 于 Seafood 类 别 中 的 产品 名 称 。 由 于 products 表 中 每 一 
产品 都 可 归结 至 categories 表 中 八 种 类 别 之 一 , 因此 这 两 张 表 可 以 通过 公有 的 CategoryID 字段 实现 


整合 。 


示例 B.31 


机 SELECTUCaEEeSSEXTEDF 人 EROMECategorcmes 














正 Beeragss 

多 Conaiments 

急 Conmnfections 

4 aaeyEEEedquees 
配 Grains/Cereals 
6 Meat/Pou1lLtEzY 
吕 PEoaduce 
8 SeafococdQ 











SocwSDUSSOUEUORUQUURESEC) 
mysdl= SELECTRECateocorcyrDALPECOOUSENamcERROMUEECOUCES 
ed 


Gramg 

Aniseea Syzup 

GinefnnmEcns 惠 外 ai 必 nm 攻 SeaSCmnanog 
Cheft Anton7s Gumpbe Mi 区 
Grandama'"s Boysenbecry Sbreaa 
Uncle Bob's Organic Driedq Pears 
NorthwooaQs Cranberry Sauce 
Mishi Kobe NIKU 

TEL 富 

Queso Caprzales 

Queso Manchego La Pastora 
Konbu 

加 

Genemn Shouya 











DO DO II 二 


解释 
本 示例 显示 了 来 自 categories 表 和 products 表 的 列 。 在 categories 表 中 ，CategoryID 是 主键 ， 
它 能 惟一 标识 表 内 其 他 的 字段 。 在 products 表 中 ，CategoryID 是 外 键 ， 并 对 每 一 种 产品 都 重复 了 很 
多 次 。 





使 用 完全 约束 名 称 和 点 号 来 连接 数据 表 。 在 查询 不 止 一 张 表 时 ， 可 使 用 点 号 在 列 名 前 面 加 上 
其 所 在 的 表 名 ， 以 便 避 免 当 两 张 表 都 具有 相同 的 表 名 时 发 生 潜在 的 冲突 。 正 如 示例 B.32 所 示 。 
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示例 B.32 


mysglE> SEERCTRCatsgczyName 


PEoauctName ERROM categories，Pproducts 


-> WHERE Products .CategoryID = 8 AND categories .CategoryID = 8:; 


SeafooaQ 
SeafocaQ 
SeafoocdaQ 
Seafood 
Seafoocqd 
SeafoocoaQ 
Seafoocoda 
Seafood 
SeafooaQ 
SeafooaQ 
SeafoocaQ 
SeafoocqQ 


CanaeonaigqeEs 

NoraQa=oOst MatJjeshezcing 
IEEISIeLULSSOIE 

Grass 

BGS 人 MESSIE 

Uack's New Englana Clam Chcowdaez 
Rogeae sila 

Sbegesilog 

Escargots de Bourzgogne 

Re 大 克 SawO Se 








下 2 OSIOUSS 忆 


解释 


(0.00 sec) 





在 SELECT 语句 中 , 借助 CategoryID 字段 连接 两 张 表 〈 以 和 逗 号 隔 开 )。 由 于 该 字段 名 在 两 张 
表 中 一 模 一 样 , 因此 要 在 字段 名 前 面 通过 点 号 加 上 表 名 , 形 如 products.CategoryID 和 categories， 
CategoryID。 在 WHERE 子 句 中 , 如 果 两 张 表 都 全 有 一 个 值 等 于 8 的 CategoryID 字段 , 则 连接 这 


两 张 表 。 


别名 。 为 了 略微 简化 一 下 复杂 查询 语句 的 输入 工作 ，SQL 提供 了 一 套 别 名 机 制 ， 人 允许 用 户 为 列 
和 表 指 定 符号 化 的 名 称 。 别 名 是 由 AS 关键 字 定义 的 ， 它 可 以 由 单个 字符 或 缩 略 的 字符 串 构 成 。 当 
在 WHERE 子 句 中 通过 别名 来 表示 表 名 时 ， 必 须 在 前 面 加 上 点 号 ， 以 及 从 该 表 中 选取 的 字段 名 称 。 


(CColumn Alias) 





SERIESoOunnEnameEASEScnmmnSdaSTame 


ERGCMEalolE 本 ame 


(Table Alias) 


SELECT column_ name 


ERGMEEEaloE 量 name 


SEE 本 aa 项 和 ame 


示例 B.33 


mysdl> SELECT CategoryName as Eoods FROM categories:” 


BevVerages 
Condaiments 
Cemsetecme 


Meat/PoulLtzY 
PEoauce 





anyYBESGQUCES 
Grains/Cereals 
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SFowsnsESOEUORUQUESEE) 
解释 
来 自 categories 表 的 列 名 是 CategoryName。 在 CategoryName 之 后 ， 使 用 AS 关键 字 创 建 一 个 名 
叫 Foods 的 别名 。 此 时 ， 当 SELECT 语句 返回 一 个 结果 集 时 ， 其 输出 会 把 Foods 当 作 这 个 列 的 列 名 。 


示例 B.34 
mysdl> SELECT ProductName FROM Przoducts AS P，categories AS C WHERE 
-> P.CategoryID = c.CategoryID AND c.CategoryName="SeaEood'" : 


CanarcvonaigieES 

NoraQ=Ose Matssnerng 

SO 员 本 | 

GEaVad 工 a 

BeSiEcn CeabMeaiE 

Jack's New Englana Clam CheowadeCz 
Rogeade sila 

Spegesi1a 

Escargots de Bourgcgne 
RE 








233CWoDTSSLOS OO SEC 
解释 

本 示例 乍 一 看 有 点 奇怪 。 为 products 表 赋 了 予 一 个 别名 p, 同时 为 categories 表 赋 予 别 名 c。 这 
两 个 别名 都 很 简短 ， 当 需要 在 查询 中 涉及 不 止 一 张 表 的 时 候 ， 它 们 会 让 键入 过 程 变 得 更 为 方便 ; 例 
如 ， 无 需 再 键入 products.CategoryID， 而 是 可 以 键入 p.CategoryID; 此 外 ，categories.CategoryID 
亦 可 引用 为 c.CategoryID 。 


B.3.6 更改 表 


当 用 户 更 改 (Calter) 一 张 表 时 ， 会 通过 添加 或 丢弃 新 的 列 、 键 、 索 引 和 数据 表 来 重新 定义 其 外 
构 。 用 户 还 可 使 用 ALTER 命令 去 更 改 列 名 、 类 型 乃至 表 名 。 





工 


格式 


ALTER TABIE tablename 
ADD column qdqatatype 


Example: 
alter table artist adaaQ column AtDate Qate: 
SEE 人 ES EDEeOIEmAGO SSE 


示例 B.35 


SeBets， 


奉 录 怠 





























6642 
下 mysdlLl> ALTER TRABLE qdqaog ADD Pet id :int(11) 
Query OK，0 rows affectedq (0.13 sec) 
REeeondseUannoloesacss Wanangs 忆 
习 mysdqlL> RARLTER TABILE dog MODIEY column Pet _ id int(11) 
-->  ， auto_increment Pimary key: 
Query OK，1 row affecteQ (0.11 sec) 
Recoras : uusee see 0 ES2mUUSER 岂 
引 mysdl> describe dog:， 
ETEUG ES Ni Key DeEauut 民 交 世人 二 
name WanaeE HS NUEE 
OWDneI Wasaeemaccltnhy 汪 本 S NUEE 
DreeaQ aemaey YES NUILTE 
SiE 区 Eee 全 册 HS) NUZEE 
1 全 加 帮 Qate ES NUILE 
Qeaiten Qae 0 NUILE 
|I 顺 PetszaillanEe(Ld) | IPBRIUIITNUIEDE | auto_increment | 
ICONSRRnESEGEREOROUESSE) 
ms 可 le Select xszenmgaoog 
+=-----=-- +=------------- +------- +=- 一 -一 +=-=---------- +----------- +=-=-- 一 -一 -一 下 
[mameaaESRER 国 Eeseoal 呈 SEE | 上 aesan aeeaEei il 
+=------- +=------------- +=-= 一 -一 -= 一 +=-=---= +=------------ +----------- +- 一 -一 -= 一 
[OSIERSNES 国 MuesanlM | 属 关 0 的 有 三 是 性 绚 全 妆 0 且 0 正 下 下 
[ESaESSaeERECmmY 汪 RSIIREECOEIEIEE | 攻 2006 OOIRNUET | 2 
+=-----=-- +=------------- +=------- +=-=--=- +=-=--------=-- +=-=---------- +-=------- aa 
2ewsnESSDRERUORSUO0RSeeyh 
解释 
1.ALTER 命令 将 通过 添加 一 个 名 叫 pet_id 的 新 字段 来 更 改 数据 表 ， 该 字段 是 一 个 11 位 整数 。 
2. 在 创建 好 pet_id 字段 之 后 ， 可 以 再 次 使 用 ALTER 命令 来 将 它 设置 为 主键 。 每 当 添加 一 条 新 
记录 时 ， 它 都 会 自动 进行 递增 。 
3. 在 更 改 之 后 ， 用 DESCRIBE 命令 显示 表 的 结构 。 可 见 已 经 添加 了 一 个 主键 。 


B.3.7 ”删除 表 
表 的 删除 “drop ) 操作 相对 较为 简单 。 只 需 使 用 drop 命令 和 表 名 即 可 : 


mysdl> dropP table dog: 


Querzy OK， 


20 trows affected 


B.3.8 删除 数据 库 
如 需 删 除 某 个 数据 库 ， 可 使 用 drop database 命令 : 


mysdl> dropP database Pets: 


Query OK，1 row affected 


B.4 


SQL 函数 








(0.11 sec) 


(0.45 sec) 





下 面 这些 函 数 用 于 对 SQL 查询 的 输出 进行 更 改 或 者 格式 化 。 这 些 国 数 涉及 字符 串 数字、 日 期 、 
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服务 器 与 信息 等 诸多 方面 。 它 们 会 返回 一 个 结果 集 。 国 数 是 与 开发 商 相 关 的 ， 也 就 是 说 MySQL 支 
持 的 函数 可 能 无 法 得 到 Microsoft SQL Server 的 支持 。 如 需 了 解 MySQL 支持 的 所 有 国 数 列表 ， 请 
阅读 MySQL 文档 。 
当 在 SELECT 语句 中 使 用 国 数 时 ， 该 国 数 将 会 在 调用 时 显示 结果 集中 相应 的 列 名 ， 正 如 示例 
B.36 所 示 。 


示例 B.36 


册 mysdql> SELECT avg(UnitPrice) 
ROSSCE 本 可 全 局 二 二 
































+---------------- 十 
| avg(UnitPrice) | 
+---------------- 十 
| 汪 二 入 SS 
+---------------- 十 


ENTESE 上 上 人 OOEUUSecy) 


乌 mysdadl> SELECT avg(UnitPrice) as 'Average Price' 
RONEESRaS 本 SEE 生 答 六 


+--------------- 十 
| Average 了 Price | 
+--------------- 十 
| 及 亲本 用 | 间 5 瑟 2 中 
+--------------- 十 


ae ES EROESEe)) 
1. 将 国 数 显示 成 列 名 。 
2. 用 户 可 使 用 AS 关键 字 为 结果 集中 显示 函 数 的 那 一 列 创建 别名 或 其 他 名 称 。 


B.4.1 数值 函数 


假设 用 户 需要 获得 所 有 订单 的 总 额 、 或 者 一 组 项 目的 平均 花 销 、 又 或 者 需要 基于 某 个 特定 条 件 
获取 表 内 的 所 有 行 数 。 聚 集 (aggregate) 国 数 能 够 基于 一 组 其 他 值 返回 单个 值 。 如 果 需 要 把 该 函 数 
用 在 SELECT 语句 项 目 列表 内 的 其 他 表达 式 中 , 则 该 SELECT 语句 必须 含有 一 个 GROUP BY 从 句 。 
如 果 聚 集 国 数 是 SELECT 语句 检索 的 惟一 值 ， 则 无 需 GROUP BY 子 句 。 表 B-4 列 出 了 这 些 国 数 及 
其 语法 。 




















表 B-4 聚集 函数 























函数 用 途 
RVG () 计算 并 返回 某 一 列 的 平均 值 
COUNT (expression) 计算 表达 式 定义 的 行 数 
COUNT () 计算 表 中 所 有 行 的 行 数 
MIN () 返回 某 一 列 中 的 最 小 值 
MRX () 返回 某 一 列 中 的 最 大 值 
SUM () 返回 某 一 列 中 所 有 值 的 和 
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示例 B.37 
山 mysdql> select count (*) from Proqducts:; 

ES 下 
ER 人 ) 因 | 
HH---------- 十 
[> 光 国 | 
H---------- 十 


cow in set (0.00 sec) 


mwsolE SHEETEeCUnE ERESENDTmosEEOEERERSNEOEEROMNREEEESOCUECEST 
人 于 





EREESSE EUOESeey 


蝶 


COUNTO 函数 负责 计算 表 中 所 有 行 的 行 数 。 


示例 B.38 


AN\ 


下 


解释 


mysdql> SELECT avg(UnitPzice) 
RERGMNEESEOeT 本 es 蕊 EN 二 和 六 


全 生起 
| 上 EoUnnneEEes 
| 
| 1 末 2 本 罗 放 有 
| 


LSwEInRESSGRUORUULEESESSA 


mysdql> SELECT EORMRAT (avg(UnitPrice),2) as '!RAverage Pice' 
ERONREOEOST EECOEEaNRSL 





+--------------- 十 
| AVezage Przice | 
+--------------- 十 
[2 | 
+--------------- 十 


io SSE 人 (OUEESec) 


1.AVG0O 国 数 能 计算 并 返回 某 一 列 的 平均 值 ， 即 UnitPrice 。 
2.FORMAT 函数 以 两 位 小 数 的 精度 返回 AVGWO 国 数 的 计算 结果 。 


使 用 GROUP BY。GROUP BY 子 句 用 在 SELECT 语句 中 ， 负 责 跨 记录 收集 所 有 的 数据 ， 并 根 
据 一 列 或 多 列 内 容 组织 结 果 。 在 使 用 聚集 函数 (如 SUM、COUNT、MIN 或 MAX) 时 ， 该 子 句 就 
显得 非常 管用 。 请 看 下 面 两 个 示例 。 





AN\ 


示例 B.39 
mysql seleeocategoryrDRSUMIUnILESImSEOCck)SSRLOEaURUnOECS 本 SEO 已 妆 


= RONGReame 总 S 
-> GROUP BY CategoryID: 
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9 Fows in set (0.00 sec) 


示例 B.40 


mysdl>=selececscCategoconyName 
-> SUM(P.unitsInsStock) AS Units 
ROSEECOUESsS 忆 
= JinEcaEeogsces ACEONEEER CEESGOEYTD 三 


-> P.CategoryID GroupP BY C.CategoryName : 
GateegoryNanme ES 
BeVezcages 马 5 马 
ConaQiments 己 昌 忆 
Confections ELG 
say7EEeGE 巧 S 29 光 
Grains/Cereals 308 
Meat/PoulLtrY 6G5 
Beeauwes 100 
SeafoocoqQ 忆 记 和 











8 Fows in set (0.00 sec) 
B.4.2 ”字符 串 函数 
SQL 提供 了 一 系列 基本 的 字符 串 国 数 ， 列 于 表 B-5 中 。 


表 B-5 MySQL 字符 串 函 数 


























轴 数 用 途 
CONCRAT (stringl，string2，...)。 将 字段 值 或 变量 组 合 到 一 个 字符 串 中 
2 将 字符 串 转换 为 全 小 写 形式 
SUBSTRING (string，Pposition) 由 取 字 符 串 中 的 一 部 分 内 容 〈 详 见 示 例 B.41) 
人 将 字符 串 从 某 种 字符 集 切 换 到 另 一 种 字符 集 
TRIM(”String ” ) 1 从 字符 串 中 移 除 首 字 符 、 尾 字符 ， 或 者 二 者 都 移 除 
ER 将 字符 串 转换 为 全 大 写 形式 〈 详 见 示例 B.41) 











a. SQL99 定义 了 字符 事 组 合 运算 符 〈||)， 可 以 和 CONCATENATE() 函数 配合 使 用 。MySQL 则 使 用 表 B-5 中 列 
出 的 concatO 函数 。 
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示例 B.41 


mysdql> select upPPer (ComPanyName) as 'Company' from shippers: 





| Company | 


| 有 忆 下 下 再 世 区 BRRSS | 
| UNITIED PACKAGE | 
IERDRRATESNNRENNG 届 | 


SowsenEseat0Rs0O0ESeeh 


mysdql> select Lower (ComPanyName) as 'Company"” FROM shipPpers: 


中 speedqy exprcess | 
| unitedq Package | 
| federal shipping | 


Secwsnn 量 SEORUUESEE) 
B.4.3 ”日 期 与 时 间 函 数 
为 获取 日 期 与 时 间 值 ，MySQL 提供 了 表 B-6 列 出 的 一 系列 国 数 。 


表 B-6 MySQL 日 期 与 时 间 函 数 
示 例 
Select NOW () 

NOW () = 006s=03= 2 22025258 
〈 详 见 示例 B.42) 
Select CURDATE () :; 

CURDATE () = 和 22006=2=157 
〈 详 见 示例 B.42) 
Select CURTIME () :; 

CURTIMZE () 二 二 
〈 详 见 示例 B.42) 
Select DRYOEFYERAR('2006-12-15!) 7 
==-> 349 
Select DAYOFMONTH ('2006-12-157) 7 
-=-> 15 
Select DRAYOEFWNWEEK (2006-12-151) 
--> 6 
Select WEEKDRAY ("2006-12-151)， 
--> 4 
Select MONTHNAME (!2006-12-151)， 
--> DecembeL 
Select DRYNAME ('"2006-12-151)， 
== 关 了 工 Qay 
Select YEAR ('2006-12-157) 7 
--> 2006 
Select QUARTER ('2006-12-15') 
--> 4 


凡 
洗 














DAYOEYERAR (qate) 


DAYOFMONTH (date) 


DAYOEWEEK (qate) 


WEEKDAY (Qate) 


MONTHNRAME (date) 


DAYNRAME (qQate) 


YEAR (date) 





QURARTER (aate) 
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示例 B.42 


mysdql> select NOW () ; 


人 十 
NOW () | 
和 号 
29DG0R 三 2 本 OORE2 二 | 
全 全 全 十 汪 人 关 这 证 攻 下 守 


own (RUNUESech 


mysdl> Select CURDRATE () ; 


人 全 于 和 全 二 三 二 下 二 革 时 
CURDRATE () | 

全 症 辐 竹本 证 用 攻 生 下 本 
2006 二 0 三 2 | 
下 二 汪汪 克 后 全 放生 加 二 于 


EnEESSE( 亿 忆 0 量 Seey 


mysdql> Select CURTIME () : 


本 人 下 全 汪 让 生机 5 全 拓 总 
EURSIINMURS | 

本 记 二 玫 攻 帮 且 攻 尼 汪 半 二 二 号 
ORDER | 
人 于 





cow in set (0.01 sec) 














格式 化 日 期 与 时 间 。 当 从 表 中 检索 日 期 与 时 间 时 ， 往 往 需要 对 结果 进行 格式 化 。 例 如 ， 当 从 
northwind 数据 库 内 的 orders 表 中 选取 订单 日 期 时 ， 其 结果 对 用 户 而 言 是 不 大 友好 的 。SQL 中 的 日 
期 值 通常 保存 为 MMDD/YY(CYY) 的 格式 。 因 此 这 里 提供 了 DATE_FORMATO 和 TIME_FORMATO 
国 数 〈 详 见 示例 B.43)， 它 常 有 一 系列 参数 〈 详 见 表 B-7)， 能 够 指定 应 当 如 何 显示 输出 内 容 。 


示例 B.43 


Isieil 芝 SEE 证 矶 用 下 靖 玉 ORAL WUGSUES SWEETECOaR 








| Thursday March 23，2006 


TREETSWEEOESEEREUOSOUESEe) 
myscl SelecwDAIEEEORMAT(OzQezDate xsMxsen sz XLSP) 
RERROMESEOQETEERERNMIT SR 





July 4，1996 - 12:00 AM 
TI SRSOEE TS OO 
July 8，1996 - 12:00 AM 
SAETOOOEE TRUE 
六 
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表 B-7 DATE_FORMAT() 和 TIME_FORMAT() 















































参数 含 义 

多 己 对 星期 几 的 缩写 (Sun、Mon、Tues 等 ) 
gb 对 月 份 名 的 缩写 (Jan、Feb、Mar 等 ) 
gC 月 份 〈1-12) 

sq 两 位 数 形式 的 月 份 内 的 日 数 ，(01-31) 
sD 带 有 后 绥 的 日 数 (30th、31st) 

ge 月 份 内 的 日 数 〈1-31) 

g 王 微 秒 (000000..999999 ) 

% 理 小 时 《〈00..23 ) 

小 时 〈01..12) 

% 守 分 钟 ， 数 值 型 00..59) 

g% 工 小 时 〈01-12) 

% 了 一 年 内 的 日 数 〈001-366 ) 

刍 K 小 时 《〈0..23) 

光 1 小 时 《〈1-12) 

gm 带 有 前 导 0 的 月 份 数 〈01、06 等 ) 

当 M 月 份 名 称 〈March、April、May 等 ) 
g%P AM/PM 

多 工 时 间 ，12 小 时 制 (hh:mm:ss， 后 面 是 AM 或 PM) 
当 S 秒 (00..59) 

gs 秒 〈00..59) 

g 卫 时 间 ，24 小 时 制 (hh:mms:ss ) 

gsU 以 Sunday 开头 的 星期 数 〈00..53 ) 

gu 以 Monday 开头 的 星期 数 〈00..53) 
但 以 Monday 开头 的 星期 数 (01..53) 
gV 以 Sunday 开头 的 星期 数 〈01 .53 ) 

当 丽 星期 几 〈Sunday、Monday 等 ) 

gw 一 周 内 的 天 数 (0=Sunday..6=Saturday) 
g%Y 年 份 (1999、2007) 

g%Y 两 位 数 形式 的 年 份 (99、07) 

gg % 文法 字符 


MYSQL EXTRACT 命令 。EXTRACT 命令 是 MySQL 扩展 的 示例 之 一 ， 在 SQL 标准 中 并 没有 
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定义 。 它 允许 用 户 抽取 日 期 或 时 间 中 的 不 同 组 成 部 分 ， 如 表 B-8 所 示 。 


表 B-8 日 期 与 时 间 部 分 














类 型 格式 
SECOND SECONDS 
MINUTE MINUTES 
HOUR HOURS 
DRY DAYS 
MONTH MONTHS 
YY 也有 AR YEARS《〈 详 见 示例 B.44) 
MINUTE SECOND “MINUTES:SECONDS?” 
HOUR_MINUTE “HOURS:MINUTES” 
DRAY_HOUR “DAYS HOURS” 
YEAR_MONTH “YEARS-MONTHS ” 
HOUR_SECOND “HOURS:MINUTES:SECONDS?” 
DRAY_MINUTE “DAYS HOURS:MINUTES” 
DAY _ SECOND “DAYS HOURS:MINUTES:SECONDS” 


示例 B.44 


mysaql> select EXTRRCT (YERR FROM NOW() ) ; 


+-------------------------- 十 
| 了 EXTRRACT (YERAR FROM NOW()) 1 
+-------------------------- 十 
| 200W6il 
+-------------------------- 十 


TOWEOESEE OOEEESecy) 


B.5 ”附录 小 结 





在 本 附录 中 ， 读 者 学 习 了 如 何 使 用 SQL 语言 创建 数据 库 样 式 〈schema)， 以 及 如 何 对 数据 库 中 
的 记录 进行 插入 、 更 新 Cupdate)、 检 索 (retrieve)、 更 改 〈alter) 和 删除 操作 。 








B.6 读者 应 当 学 到 的 知识 





在 学 习 完 本 附录 之 后 ， 读 者 应 当 能 够 回答 下 面 这 几 个 问题 

1. 如 何 检索 数据 库 表 中 所 有 的 记录 ? 

2. 如 何 基于 指定 条 件 从 表 中 检索 一 组 选 定 的 记录 ， 或 检索 单条 记录 ? 
3. 如 何在 数据 库 中 选择 记录 并 对 它们 进行 排序 ? 
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. 如 何 从 数据 库 中 选取 给 定 范 围 内 的 行 ? 
. 如 何 创建 一 个 数据 库 ? 

如 何 创建 数据 库 表 ? 

如 何 把 一 个 主键 赋予 某 个 字 
ee 

. 在 表 中 是 如 何 更 新 记录 的 ? 

0. 如 何 删除 一 条 记录 ? 
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进入 MySQL 控制 台 , 使 用 show 命令 列 出 全 部 的 数据 库 。 然 后 选用 数据 库 mysql, 并 显示 其 中 所 
cs 
2. 创建 一 个 名 叫 school 的 新 数据 库 。 在 创建 完毕 后 ， 读 者 还 可 这 样 使 用 它 


Use School; 


3. 创建 一 个 名 叫 student 的 数据 表 ， 该 表 由 如 下 字段 组 成 ， 


FEIzStName 

LastName 

EmaIII 

Cel1Phone 

Ma]Jjo 

GPRA 

S 七 aZtDate 

StudentId (the primary key) 


下 面 列 出 的 数据 类 型 将 用 于 数据 表 的 定义 。 读 者 不 妨 在 Web 上 找 一 个 与 它 相似 的 数据 表 作 为 参 却 。 


integer (SIZe) 
int(SIze) 














smal1zant (5Ize) 
inyint (SI2ze) Holds integers only 


其 中 各 个 数字 的 最 大 宽度 是 由 位 于 小 括号 内 的 数值 来 指定 的 。 
decimal(sIze al) 
numeric(sIze q) Holds numbers with fractions. 


其 中 各 个 数字 的 最 大 宽度 由 size 指定 ， 而 小 数 点 后 的 最 大 宽度 则 由 d 确定 。 
char (SIze) Holds a fixed-length string (can contain letters，numbers，and Special characters). The 
fixed Size is Specified by Size in parentheses. 
Varchar (Si2ze) Holds a variable-length string (can contain letters, numbers, and Special characters). The 
Imaximum Size 1$S Specified by Size in parentheses. 
Qate (yyyymmaa) Holds a date. 
4. 请 使 用 SQL 的 describe 语句 显示 用 于 创建 school 数据 库 的 所 有 信息 。 
5. 请 将 下 列 三 行 插入 数据 表 中 : 


Row 1: FirstName: John 
LastName: Doe 





Email: johndoe@Osmileyface.edu 
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CellPhone: 408-333-3456 
Major: CIS 
GPA: 2.8 
StartDate: 09/22/2004 (use the correct date format1) 
StudentId: 1 
Row 2: FirstName: Mary 
LastName: Chin 
Email: mchin@qmail.com 
Cell]Phone: 408-204-1234 
Major: Biology 
GPA: 3.3 
StartDate: 06/22/2003 
StudentId: 2 
Row 3: FirstName: Sadish 
LastName: Pamel 
Email: sadi@Ouniv_ab.edu 
Cell]Phone: 415-204-1234 
Major: CIS 
GPA: 3.9 
StartDate: 06/22/2003 
StudentId: 2 
. 请 使 用 show 命令 显示 所 有 字段 名 。 
. 请 使 用 select 语句 显示 下 列 内 容 〈 请 将 查询 语句 写 在 空白 
a. 所 有 列 中 的 数据 。 
b. 各 个 学 生 的 名 和 姓氏 。 
c. 某 个 学 生 的 名 、 姓 氏 和 专业 。 
d. 某 个 学 生 的 手机 号 和 电子 邮件 地 址 。 
e. 所 有 不 同 的 专业 。 
f. 只 显示 两 行内 容 。 
.选取 GPA 高 于 3.0 的 所 有 学 生 。 
.选取 GPA 位 于 3.0 与 4.0 之 间 的 所 有 学 生 。 
. 选取 手机 号 码 区 号 是 408 的 所 有 学 生 。 
显示 所 有 2003 级 学 生 所 在 的 行 。 


~1 人 
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9. a. 向 数据 表 中 插入 新 的 一 项 。 
b. 根据 姓氏 对 学 生 数 据 表 进 行 排序 。 
c. 按照 GPA 降序 对 学 生 数据 表 进 行 排序 。 
10. 把 Mary 的 电话 号 码 更 改 为 650-123-4563 。 
下 面 这 三 个 问题 是 有 关 SQL 函 数 的 : 
11. 对 所 有 学 生 求 平 均 GPA 。 
12. 获得 数据 表 中 的 总 行 数 。 
13. 借助 SQL 函数 打印 当天 日 期 。 














行 中 ) : 


. 选取 所 有 专业 是 GIS 上 且 GPA 高 于 3.5 的 学 生 的 名 字 和 姓氏 。 
选取 电子 邮件 地 址 以 .com 结尾 的 电子 邮件 地 址 和 学 生 名 字 。 
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C.1 什么 是 生物 信息 学 





“基因 数据 每 天 都 在 雪 骨 式 地 增加 。 这 也 带 来 了 新 的 挑战 ， 即 如 何 利用 这 些 海 量 数据 探究 DNA 
和 蛋白质 的 相互 作用 机 制 , 并 创建 复杂 、 动 态 的 生命 系统 。 大 规模 的 系统 研究 〈 即 功能 基因 学 ) 将 在 
本 世纪 乃至 以 后 的 时 间 里 成 为 生物 学 探险 的 焦点 所 在 ……”http:/www.ornl.gov/Sci/techresources/ 
Human_Genome/project/。 生 物 信息 学 涉及 在 计算 机 上 处 理 上 述 大 规模 的 生物 数据 。 
在 过 去 20 年 间 ， 特 别 是 在 2003 年 之 后 ， 计 算 机 已 经 在 生物 研究 工作 中 变 得 越 来 越 重要 了 。 在 
这 一 年 ， 人 类 基因 组 项 目 完成 了 目标 ， 确 认 了 人 类 DNA 中 的 所 有 基因 。( 有 关 该 项 目的 目标 ， 请 参 
阅 http:/www.ornl.gov/sci/techresources/Human Genome/home.shtml.) 现在 ， 程 序 可 以 快速 地 分 
析 大 量 数据 ， 而 Perl 业已 成 为 生物 计算 领域 最 流行 的 语言 之 一 〈 如 果 不 是 最 疲 行 的 话 )， 负 责 完 成 
诸如 访 癌 本 地 或 远程 数据 库 中 的 序列 数据 、 传 输 序 列 文 件 、 处 理 序列 数据 、 取 得 统计 信息 、 对 生物 
系统 建立 模型 之 类 的 任务 。 

许多 生物 学 家 都 喜欢 编写 自己 的 函数 ， 以 便 处 理 海 量 的 数据 ， 并 会 发 现下 载 和 使 用 BioPerl 模 
块 将 能 加 速 其 程序 开发 过 程 。 并 非 所 有 的 Perl 程序 员 都 非常 了 解 生 物 学 知识 , 正如 不 是 所 有 的 生物 
学 家 都 会 Perl 一 样 。 因 此 , 下 面 的 概述 部 分 将 简单 介绍 一 些 生 物 学 知识 , 并 介绍 使 用 Perl 来 处 理 表 
示 DNA 序列 和 和 蛋白质 的 符号 的 几 种 途径 ， 包 括 依赖 和 不 依赖 于 BioPerl 模块 的 途径 。 

























































































C.2 DNA 背景 知识 


DNA 是 产生 任何 生物 的 素材 。 它 含有 基因 指令 ， 能 够 创造 像 你 我 这 样 的 丢 靶 大 众 。 它 还 负 
产生 和 蛋白质。 蛋白 质 是 一 种 备 受 关 广 的 物质 ， 因 为 它 能 控制 细胞 的 行为 ， 并 控制 细胞 如 何 工作 ; 
如 ， 如 何 消 化 食物 、 背 除 感 染 、 把 氧气 输送 到 肌肉 与 器 官 ， 等 等 。 

在 使 用 Perl 处 理 DNA 时 ， 读 者 将 碰 到 下 列 词汇 : 
1. 核 苷 酸 (Nucleotide )， 或 碱 基 (base) 

2. 碱 基 对 (basic pair) 

3. 反 向 互补 (reverse complement ) 

4. 序列 〈sequencing ) 


下 油 
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3. 蛋白质 与 氨基 栈 

6. RNA 分 子 和 转录 

7. BLAST 和 FASTA 

DNA 出 现在 细胞 核 里 面 , 其 结构 称 作 双 螺 旋 结 构 ,， 因 为 它 的 形状 像 是 一 条 螺旋 的 梯子 , 由 上 千 
个 基因 组 成 。 甚 中 每 一 个 梯级 都 由 四 种 化 学 物质 组 成 , 称 作 核 苷 酸 (nucleotide ), 又 称 碱 基 (base )， 
其 中 带 有 建造 身体 并 维持 运行 所 用 到 的 信息 。 这 四 种 碱 基 都 分 别 以 单个 字母 来 命名 : G〈 鸟 味 叭 )、 
A《〈 腺 嗓 哈 )、T《〈 胸 腺 喀 呢 )、C《〈 胞 喀 呢 )。 细 胞 中 的 这 些 字 母 构 成 了 人 类 基因 ， 它 们 一 个 连 着 一 
个 ， 组 成 了 一 套 完备 的 指令 集合 ， 编 码 出 地 球 上 的 所 有 生物 。 
在 一 个 完整 的 DNA 螺旋 中 , 通常 由 一 个 气 键 来 连接 A 和 T, 以 及 G 和 C。 在 建造 新 的 细胞 时 ， 
DNA 字母 表 中 的 不 同 字母 将 会 组 合 到 一 起 :不 过 只 需 这 四 
个 字母 ，DNA 字母 表 就 能 拼写 出 建造 新 细胞 所 需要 的 一 切 
信息 。( 如 果 只 有 一 条 DNA 链 ， 则 相应 的 另 一 条 DNA 链 将 
是 该 链 的 反 向 互补 序列 。) DNA 碱 基 的 排列 顺序 又 称 作 序 
列 〈sequence)。DNA 中 四 种 碱 基 的 序列 足以 拼写 出 所 有 的 
指令 ， 这 些 指令 能 构建 出 人 体 上 所 有 的 细胞 ， 并 决定 每 个 人 
的 遗传 特征 。“ 如 果 把 一 个 细胞 中 的 所 有 了 碱 基 都 写 下 来 的 话 ， 
这 些 A、T、G、C 将 足以 填 满 1000 本 电话 短 。 如 果 科 学 家 
们 需要 从 整个 基因 中 定位 出 某 一 小 块 DNA 的 话 ， 就 不 得 不 
在 数 十 亿 碱 基 中 和 苦 昔 搜寻 所 需 的 部 分 ! 有 时 这 项 工作 会 耗 
费 多 年 时 光 。”( 摘 自 http://www.thetech.org/exhibits/online/ 
genome。) Genbank, 即 基 因 序 列 数据 银行 (http:/www.ncbi. 
nlm.nih.gov/Genbank)， 保 存 有 绝 大 多 数 已 知 的 序列 数据 。 

什么 是 RNA ?RNA 类 似 于 DNA, 但 它 只 有 一 条 序列 , 而 不 是 两 条 ; 它 也 并 不 一 定位 于 细胞 核 
中 。RNA 的 配对 模式 与 DNA 基本 相同 ,除了 将 工 ( 胸 腺 喀 呢 ) 替换 成 了 U ( 尿 喀 吓 )。RNA 分 为 好 
儿 种 ; 其 中 一 种 起 信使 作用 ， 负 责 把 DNA 编码 信息 从 细胞 核 外 运输 到 消息 中 心 (message center )， 
后 者 是 细胞 中 负责 根据 这 些 信息 生成 蛋白 质 的 区 域 。 蛋 白质 是 由 形状 各 异 的 名 叫 损 基 酸 的 分 子 所 组 
成 的 长 链 。 当 食用 食物 时 , 身体 会 消 化 这 些 食物 , 并 把 它们 分 解 为 氮 基 酸 , 然后 由 细胞 重新 使 用 这 些 
氨基 酸 。 转 运 RNA (transfer RNA) 会 帮助 把 编码 指令 转译 为 氨基 酸 序列 。“ 转 录 (transcription )” 
这 个 词 专门 用 于 描述 DNA 生成 RNA (核糖 核酸 ) 的 过 程 ， 而 “翻译 ”一 词 指 的 是 RNA 将 编码 翻 
译 成 蛋白 质 的 过 程 。 

BLAST (Basic Local Alignment Search Tool) 是 当前 最 流行 的 生物 搜索 工具 之 一 。 它 通过 发 出 
一 个 查询 请 求 并 在 已 知 序 列 库 中 检索 的 方式 来 检测 目标 序列 。 它 会 提供 一 个 含有 分 值 的 文件 ， 显 示 
该 序列 在 统计 学 意义 上 的 匹配 情况 。FASTA 文件 是 一 种 简单 的 文本 文件 ， 其 第 一 行 以 字符 “>” 开 
头 ， 其 后 是 所 生成 DNA 或 基因 的 名 字 ， 再 下 面 各 行内 容 则 是 核 苷 酸 或 所 基 酸 序列 数据 。 
在 查看 本 附录 中 或 Web 上 的 示例 时 ， 了 解 上 述 这 些 术语 将 是 非常 有 益 的 。 



























































图 C-1 双 螺 旋 结 构 与 核 背 酸 ， 或 碱 基 
































C.3 一 些 Per|l 示例 





下 面 的 示例 非常 基础 。 它 们 演示 了 如 何 使 用 简单 的 Perl 程序 进行 处 理 , 包 括 使 用 区 国 数 求 一 个 
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序列 的 反 向 互补 序列 ， 如 何 使 用 正则 表达 式 从 文件 中 搜索 某 种 模式 或 样式 ， 以 及 如 何在 循环 中 使 用 
正则 表达 式 来 从 一 个 序列 筛选 出 其 碱 基 。 


# SeGuence=--Reverse CompJemen 上 

S$ana_ strand='GGGGaaaaaaaattAtAtat ':， 
SomaliStranos=re7ersesanaESEand) 太 
ecomoolgDNAESEeamoEEEE 汪 SG 着 SEN 
S$dna_ stranad =~ tr/ACGTacgt/TGCAtgca/: 





PEint "The zeVezsed Complement is "SSdna Stranday"NXnn" 7 


ou 
TPpe oriczinal DNA Strana Is tatatattaaaaaaaacGGG 
Tpe Fe7rersea complement Is ata7a7aatttttttCcccC 


Elile name: fasta 

>testsrings 
MTKKIGLEYGTQTITGKTESVAEIIRDEEFGNDVVTITLHDVSQAEVTDLNDYQYLIIGCPTITWNI 
GELQSDWEGLYSELDDVDEFNGKLVAYEFGTGDQIGYADNEQDAIGIELEEKISQORGGKTVGY 
WSTDGYDENDSKALRNGKEVGLALDEDNQSDLTITDDRIKSWNWVAQLKSEEG 


ERETESCEt 
# Finazin9 aa Pattern/[motziFf in aa Protein 石 1e 
Se0ERNR 站 全 aEE 二 下 大 SECONDTEEESIANY 
Spattern="QTGK" ; 
while(S$string=<PEH>)1{ 
EN 
if $string =~/SPattern/i 
】} 
GasesrERDT 


OUEowey) 
QTERESOUWTOLLSDLEETEO LE 


# Fi7Iter Seduemnce Erom any Unwantea charactersS 
此 REEDSEEDOCNECEIOES 
gsnma nses SEOLNE 


[人 
enaes 且 三 本 S 丫 由 ET 人 人 全 SEO 川内 过 
Pint "Original sequence with Junkxn"y 
En decmaes ON 
print "Cleaned up sedquenceNxn" 
人 
if(S$chars[$i] =~ /[aAallrTztl1lrcGgllrccl/v)T{ 
站 


】} 


NO 
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Co 
Original sedquence with Junk 


EEC EGREESSSEEEOSOESSEESSS CE 区 必 Rs 


CleaneaQ up sedquence 


GBSGELENRINONGIENINNGHIG ISTIRGIGSEALE 人 


C.4 什么 是 BioPenl 


BioPerl 是 一 种 开放 源码 的 〈 当 然 也 是 免费 的 ) 工具 包 ， 它 含有 超过 500 种 Perl 模块 ， 能 让 脚 
本 为 基于 Web 的 系统 分 析 海 量 的 数据 。“BioPerl 提供 了 可 重用 的 Perl 模块 ， 方 便 了 Perl 脚本 的 编 


az 全 已 局 


写 ， 它 能 实现 序列 的 处 到 
包括 Blast、clustalw、TCoffee、genscan、ESTscan 以 及 HMMER 
的 访问 ， 并 能 为 访问 本 地 数据 库 创 建 索引 。BioPerl 允许 用 户 构建 日 
它 需 要 开发 者 熟悉 面向 对 象 的 Perl， 并 不 提供 完全 可 用 的 程序 ， 它 











、 以 多 种 数据 格式 访问 数据 库 、 执 行 并 解析 多 种 分 子 生 物 学 程序 的 结果 ， 


。”BioPerl 还 支持 对 远程 数据 库 
能 够 分 析 海 量 序列 数据 的 程序 。 
提供 的 是 一 组 工具 ， 从 而 简化 公 


用 的 生物 信息 编码 工作 。BioPerl 通常 都 是 由 大 量程 序 员 共同 开发 和 维护 的 。 
如 需 了 解 完整 的 安装 指南 ， 请 读者 查看 BioPerl 主页 www.bioperlorg。 最 简便 的 BioPerl 安装 方 


式 是 使 用 ActiveState 为 各 种 主流 操作 系统 提供 的 PPM 管理 器 ， 


交 可 订 订 到 王 痢 : 壤 王 扣 亿 全 天 下 = 二 允 2 巧 辣 二 二 可 2 
六 七 旺 工 菇 人 在 六 1OBGEL=1 .2.az 
>cd bioper1L-1.2 


然后 调用 make 命令 : 





>PeLr1 Makefile .PE 
>make 
>make 七 es 


或 者 解压 tar 文件 并 键入 如 下 命令 : 








如 需 下 载 该 模块 或 获取 有 关 它 的 信息 ， 请 访问 如 图 C-2 所 示 BioPerl Web 站 点 。 


《D Mom Perl yeved hunyen genome - BioPerl - Mozlgla firefox 
多 岗 mw HEoy Room ITIook bep 


人 区 -多 


D] curtoeee unis 硬 ilCUjpocumerts,， 思 mes hobmal 加 Resplayee jwWndows Msrietrlace jj Wndows 


货 人 Nap:jjwww biopertcrowltdHow_Per_xaved_human_oorome 


artKiIe 


How Perl saved human genome 


CCus5iom < nsory 


How Perl Saved the Human Genome Project 
BioPerl 


an inks 


by LUmcoln Sein 
Reprinted Courtesy of the Per Joourmal. hitp /www 
Archive 吕 


Man pe0e 


Uncolin Sieims website is MI 印 
DATE: Eariy Fobruary, 1996 
LOCATION: Cyr 

DNA 59quencing conter in Europe 


j, 术 1he conference room of the Beg6t 








DOCCASION: A Mgoh level meeling between the Comgruler 5cieneisls of 








史 PJ LI 


NMeds 巴 wd 


匀 Log mnJcreste sccourt 


9 各 ] 


bioperli project 
Aben 1/ Per 








图 C-2 借助 PPM (ActiveState) 安装 bioperl 


690 有 峙 录 C 





















由 Package Name Area | Inst,,， 7 | Available | Abstract 

且 Activeper-Config per 1.0 Override the ActivepPerl configuration 

曙 MIME-Base64-5cr,… per| 1.00 Scripts to encodeljdecode base64 sand quoted-printabe 

让 ActiveState-5cGn.,， per| 1.01 Perl extension lo 5C0e55 SCinepleXx code lexer 

放 DiDest-HMAC perl 1.0! Keyed-Hashing for Message Ahentication 

时 殉 e 2,.3 1.2.3 Bioinformakics TO 

Active5State-Relo.,，per| 1.3 Move perl distribuktion to new location 

让 File-CounterFile per| 1.04 Persistenk counters 

IO-Zib pe 1.04 1.01 IO:: Style inkberFace bo the Compress::Zb manpsge 
曙 Tkx pe 1.04 1.034 Yet another Tk inmterface 

多 Digest-MD4 perl 1.5-r1 Perl interface to the MD4 algorkhm 

Dats-Dump perl 1.08 Stringified perl dXa Structures 

IO-String perl ”1.08 1.06 Emulake file ierface for in-core Strings 

Parse-5yslog 弥 e 1.09 1.09 Parse Unixc 5syslog fies 

遇 Text-Reform pell ”1.11 1.11 Manual text wrapping and reformakting 

 D6D-S5QLite perl ”1.13 1.13 Self Contained RD6M5 in 5 D6I Driver 

曙 Text-Awoformat ”perl 1.13 1.13 Automakic text wrapping and reformatting 

让 Archive-zp pe 1.18 1.20 Provide an interface to 2IP archive files. 

由 Font-AFM perl ”1.19 Jnterface to Adobe Font Metrics fles 剧 
2 SR an-i,ios- am ---cu 
Sa petsc | 
bioperl 

Bioinformatics Toolkik 

Version' 1.2.3 

人 Ewan Birney (bzney@sanger.sc. 册 ) 


Tmnefallor filoc、 


5808 packages, 49 lsted | 50 instaled 0 toinstal 0 toremove | InctalArea: site | | 元 


图 C-3 bioperl 是 一 组 模块 ， 这 里 显示 了 它 在 Windows32 系统 上 的 内 容 
下 面 列 出 了 目录 C:\ActivePerlsite\lib\Bio 的 内 容 : 














07/03/2007 07:14 PM <DIR> 

07/03/2007 07:14 PM <DIR> 3 

07/03/2007 07:14 PM <DIR> Al1Lign 

07/03/2007 07:14 PM <DIR> AlLignIO 

07/03/2007 07:14 PM 14， 301 RARlignIO.pm 
07/03/2007 07:14 PM 23,，350 AnalysisI.pm 
07/03/2007 07:14 PM 6,042 AnalysisParserI.pm 
07/03/2007 07:14 PM 6 422 AnalysisResultI.pm 
0770372007 10073114 了 M 2,， 798 AnnotatableI.Ppm 
07/03/2007 07:14 PM <DIR> Annotation 
07/03/2007 07:14 PM 5y7004 AnnotationCcollectionI.pm 
07/03/2007 07:14 PM 47/654 AnnotationI.pm 
07/03/2007 07:14 PM <DIR> Assemb1y 
07/03/2007 07:14 PM <DIR> Biblio 

07/03/2007 07:14 PM 了 站 了 交工 3， 瑟 主 1 主 Ge 丰 而 
07/03/2007 07:14 PM <DIR> ClLusteL 

07/03/2007 07:14 PM 4 100 ClusterI.pm 
07/03/2007 07:14 PM <DIR> ClusterIO 
07/03/2007 07:14 PM 7,792 ClusterIO.pm 
07/03/2007 07:14 PM <DIR> Coordinate 
07/03/2007 07:14 PM <DIR> Das 

07/03/2007 07:14 PM 13，084 DasI.pm 

07/03/2007 07:14 PM <DIR> DB 

07/03/2007 07:14 PM 2 738 DBLinkContainerI.pPm 
07/03/2007 07:14 PM 27/882 DescribableI.pm 
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07/03/2007 07:14 PM <DIR> Event 
07/03/2007 07:14 PM <DIR> 了 ExXPression 
07/03/2007 07:14 PM <DIR> Factory 
07/03/2007 07:14 PM 57327 FeatureHolderI.Pm 
07/03/2007 07:14 PM <DIR> Graphics 
07/03/2007 07:14 PM 277193 Gaphics.EEpmn 
07/03/2007 07:14 PM 27530 IdqCcollectionI.pm 
07/03/2007 07:14 PM 5，/146 IdentifiableI.pm 
07/03/2007 07:14 PM <DIR> InadexX 
07/03/2007 07:14 PM <DIR> LiveSed 
07/03/2007 073:14 PM 10,，986 LocatableSedq.pm 
07/03/2007 07:14 PM <DIR> Location 
07/03/2007 07:14 PFM 12,，304 LocationI.pm 
07/03/2007 07:14 PM <DIR> Map 
07/03/2007 07:14 PM <DIR> MapIO 
077037/2007 07314 KM 57329 MapIO.Pm 
07/03/2007 07:14 PM <DIR> Ma 七 工 六 
07/03/2007 07:14 PM <DIR> Onto1logy 
07/03/2007 07:14 PM <DIR> ontologyIO 
07/03/2007 07:14 PM 8,235 OntologyIO .pm 
07/03/2007 07:14 PM 17， 252 Perl .pm 
07/03/2007 07:14 PM <DIR> Phenotype 
07/03/2007 07:14 PM 24,568 PrimarySed.pm 
07/03/2007 07:14 PM 20, 679 PrimarySedqI.pm 
07/03/2007 07:14 PM 7， 472 Range .pm 
07/03/2007 07:14 PM 11， 972 RangeI.pm 
07/03/2007 07:14 PM <DIR> Root 
07/03/2007 07:14 PM <DIR> Search 
07/03/2007 07:14 PM 5y435 SearchDist.pm 
07/03/2007 07:14 PM <DIR> SearchIO 
07/03/2007 07:14 PM 157， 069 SearchIO.Ppm 
07/03/2007 07:14 PM <DIR> Sed 
07/03/2007 07:14 PM 3 了 7 了 39 总 名 可。 下 而 
07/03/2007 07:14 PM 3,， 299 SedqAnalysisParserI.Ppm 
07/03/2007 07:14 PM <DIR> SedqEeature 
07/03/2007 07:14 PM 177，041 SeqFeatureI.pPm 
07/03/2007 07:14 FM 6,484 SedI.pm 
07/03/2007 07:14 PM <DIR> SedqIO 
07/03/2007 07:14 FM 21， 805 SedqIO.pm 
077037/2007 107314 EM 9,，799 SedqUti1ls.pm 
07/03/2007 07:14 PM 50,828 SimpleAlign.pm 
07/03/2007 07:14 PM 8,， 380 Species .pm 
07/03/2007 07:14 PM <DIR> Structure 
07/03/2007 07:14 PM <DIR> Symbol 
07/03/2007 07:14 PM <DIR> Taxonomy 
07/03/2007 07:14 PM 6,372 Taxonomy .pm 
07/03/2007 07:14 PM <DIR> Tools 
07/03/2007 07:14 PM <DIR> Tree 
07/03/2007 07:14 PM <DIR> TreeIO 
07/03/2007 07:14 PM 6,223 TreeIO.pm 
07/03/2007 07:14 PM 37251 UpdateableSedqI.pm 
07/03/2007 07:14 PM <DIR> Variation 

39 File(s) 430，638 bytes 


号 8 卫 主 天 (0) 62,，847，074,，304 bytes free 
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(下 esSczapousngouopsclnmnoauleS EscnmenesoucocsrlNebosatEey) 
use Bio::Sed' 
use Bio::SedqIO: 


# Create aa seG9uence opbiject of some DNA 
my S$seqd = Bio::Sed->new(-idq => 'testsed'，-sedq => 'CATGTAGATRAG' 
这 


# DFInLE out Some aetazJs apouat 工 上 
TEST ER ND 
ESEVETESEQEECSmeEmETG ER 本 ETVECTESESATAI 


六 RE 

my S$out = Bio::SedIO->new(-file => !>testsedq.fsa'，-format => ! 
SSE 

SU WeSeqitessao 示 


CewESwEW) 
SEE 是 W5aSsseeng 
EeeresedeccmeluesmentsecSCTEAECEACATG 


SS more testsed.fsa RS 
>EestEssd 
CATGTITAGATAG 


如 需 了 解 更 多 使 用 BioPerl 的 示例 ， 请 访问 : 

http://www.bioperl.org/wiki/Bptutorial#Quick getting_started_ Scripts 

BioPerl 带 有 一 组 产品 级 品质 的 脚本 , 它们 位 于 scripts/ 目录 中 。 读 者 可 以 通过 回答 make install 
问题 的 方式 来 安装 这 些 脚 本 。 其 默认 目录 路 径 是 /usrbin。 安 装 过 程 会 把 这 些 脚 本 复制 到 指定 的 目 
录 中 ， 然 后 将 其 PLS 后 绥 更 改 为 p1， 并 在 所 有 不 带 bp_ 前 绥 的 脚本 名 前 面 加 上 bp_ 前 组 。 





C.5 资源 


如 需 获取 有 关 本 章 所 述 内 容 的 更 多 信息 , 读者 可 以 访问 一 些 优秀 的 Web 站 点 ， 亦 可 查阅 某 些 优 
秀 读物 。 作 为 一 名 初学 者 ， 读 者 可 以 尝试 阅 读 下 列 书籍 : 

1. Walker, Sharon. Biotechnznology DeWystified. McGraw-Hill, 2007， 

2. Tisdall, James. Begiz71z128g Per Jor Bioiz1ormatics. 0 Reilly 多 Associates, 2001. 

3. Tisdall, James. Mastering Per Jor Bioin1ormatics. 0 ”Reilly 廊 Associates, 2003. 





附录 D 强悍 与 速度 : CG1 和 mod_Penl 


D.1 什么 是 mod_Penrl 


有 些 人 可 能 会 说 ，CGI 已 经 是 昨日 黄花 了 ， 现 在 应 当 使 用 PHP、ASP.NET 等 。 这 是 不 对 的 。 
通过 把 Perl 集成 到 Apache 服务 器 中 ,mod_Perl 模块 〈 原 作者 为 Doug MacEachern, 遵循 Apache 
软件 证 书 ) 为 用 户 提供 了 一 条 全 新 的 创建 动态 内 容 的 途径 。mod_Perl 模块 是 Apache 与 Perl 的 联 
姻 。 它 是 一 个 开放 源码 的 模块 ， 为 Apache API 实现 了 一 套 Perl 接口 ， 从 而 能 让 已 有 CGI 脚本 运 
行 得 更 快 。 

通过 把 Perl 解释 绒 和 入 到 Apache 服务 器 中 ， 就 没有 必要 在 执行 CGI 程序 时 局 动 〈fork) 独立 
的 外 部 解释 器 了 。 此 外 ， 所 有 模块 与 脚本 将 只 编译 一 次 ， 然 后 在 剩 下 的 服务 器 声明 周期 中 ， 它 们 将 
始终 位 于 缓冲 区 中 ， 随 时 可 以 提供 服务 。 因 此 ， 服 务 器 只 需 把 时 间 花 费 在 执行 那些 已 经 载 入 并 编译 
完毕 的 代码 上 ， 该 过 程 将 是 非常 快速 的 。 

CGI.pm 的 作者 Lincoln Stein 是 这 样 描述 mod_Perl 的 : 

“mod_Perl 不 仅仅 是 一 种 强大 的 CGI 脚本 。 它 为 创建 动态 内 容 提 供 了 一 种 全 新 的 方式 ， 因 为 它 
借助 了 Apache Web 服务 器 的 强大 功能 ， 璧 如 创建 有 状态 的 会 话 、 自 定义 用 户 验 证 系统 、 智 能 代理 
服务 器 ， 等 等 。 更 奇妙 的 是 ， 用 户 原 有 的 CGI 脚本 仍然 能 够 工作 ， 而 且 速 度 还 很 快 。” 

目前 , Apache 是 Pnternet 上 最 为 流行 的 Web 服务 器 , 而 mod_Perl 则 是 最 流行 的 扩展 模块 之 一 。 
借助 mod_Perl API， 用 户 就 能 以 Perl 而 不 是 C 语言 来 编写 定制 的 Apache 模块 ,并 能 动态 地 对 服务 
器 进行 配置 ， 从 而 让 基于 复杂 配置 的 服务 器 管理 工作 变 得 更 为 简便 。 用 户 还 可 编写 认证 和 授权 处 理 
程序 ， 以 便 人 允许 或 禁止 使 用 某 个 页 面 、 执 行 数据 库 查 询 操作 、 重 写 HITP 请 求 与 URL、 以 及 允许 或 
禁止 日 志 请 求 ， 等 等 。 

mod_Perl 模块 还 绑 定 了 另外 两 个 通用 模块 ， 能 在 不 修改 已 有 Perl CGI 脚本 的 情况 下 直接 运行 
它们 《〈 只 要 它们 书写 得 较为 规范 ， 而 不 是 “粗制滥造 >)”。 这 两 个 Perl 模块 都 可 以 在 Perl 的 site/lib 
库 中 找到 ;它们 名 叫 Apache::Registry.pm 〈 或 ModPerl::Registry.pm) 和 Apache::PerlRun.pm (或 
ModPerl::PerlRun.pm)。 这 两 个 模块 的 区 别 在 于 , Registry.pm 会 缓存 所 有 的 脚本 , 而 PerlIRun.pm 不 
会 这 么 做 。 缓 冲 《〈 即 编译 脚本 一 次 ， 然 后 存 人 内存 ) 的 优势 在 于 其 优秀 的 速度 和 持久 性 。 如 果 脚 本 
编写 得 较 好 ， 没 有 忘记 初始 化 变量 、 关 闭 文件 句柄 、 设 置 警告 和 调试 开关 ， 并 基本 遵循 恨 好 的 Perl 
编程 规范 的 话 ， 上 述 机 制 才 能 正常 工作 。 如 果 脚 本 编写 得 较为 粗糙 , 则 PerlRun.pm 模块 将 是 一 个 更 
安全 的 选择 。 每 当 收 到 一 个 调用 脚本 的 请 求 时 ， 一 切 都 要 从 头 开 始 ， 因 为 代码 还 都 没有 缓冲 。 此 外 
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还 有 一 个 较 大 的 优势 , 即 Perl 解释 器 只 需 载 入 一 次 , 因此 能 够 提升 用 户 脚本 的 性 能 。mod_Perl 站 点 
Chttp:/Perl.apache.org/download/index.html) 中 介绍 说 :“ 标 准 的 Apache::Registry.pm 模块 能 为 已 
有 CGI 脚本 提供 超过 100 倍 的 加 速 比 ， 同 时 还 能 减 小 用 户 服务 器 的 负载 。” 

有 关 使 用 mod_Perl 和 Apache 的 统计 信息 ， 请 访问 如 图 D-1 所 示 站 点 。 





Netcraft's mod_perl statistics 


Netcraf provides USa0e StallScs for mod_pef. grouped by hosname or unique IP 
addresSeS, Which we Colect here every month to cre 芭 8 恒 Graph diSplaying the evoution of 
mod_petlus89e 


mod Br Usage Survew (nuabeors are by courteosw of netcraftig8 

















D.2 mod_Perl Web 站 点 





下 面 的 内 容 在 mod_Perl 主页 上 都 有 讨论 ， 该 站 点 能 为 用 户 提供 有 关 mod_Perl 的 所 有 知识 ， 
括 其 安装 、 下 载 、 文 档 、 帮 助 、pug 等 信息 。 这 里 显示 了 该 站 点 的 概要 情况 。 

什么 是 mod_ Perl ? 

mod Perl 是 Apache 与 Perl 的 联姻 。 

mod_Perl 把 当前 Web 专业 领域 最 强大 也 最 成 熟 的 两 项 技术 联系 到 一 起 。 

mp2 是 针对 Apache HITTPD 服务 器 第 2.x.x 子 版 本 提供 的 mod_Perl。 

mpl 是 针对 Apache HITTPD 服务 器 第 1.3.x 子 版 本 提供 的 mod_Perl。 

mp2 完全 兼容 于 HTTPD 2.0.x， 并 支持 大 部 分 2.2.x 特性 。 

mod_Perl 未 来 的 目标 是 继续 支持 HITPD 一 一 这 项 目标 过 去 如 此 ， 未 来 也 永远 如 此 。 

只 需 安 装 一 份 mod_Perl， 用 户 便 能 随心 所 和 欲 地 使 用 Apache Web 服务 器 的 强大 能 

成 功 案例 

mod Perl 是 Internet 上 许多 最 繁忙 也 最 先进 的 web 站 点 的 幕后 英雄 。 这 里 列举 一 些 来 自 
mod_Perl 用 户 的 成 功 案例 ; 还 有 mod_Perl 在 全 球 范 围 内 的 使 用 情况 。 
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下 载 

歼 取 mod_Perl 的 源码 或 二 进 制 发 布 包 ， 并 下 载 文 档 。 

文档 

mod_Perl 项 目 拥 有 大 量 文档 ， 涉 及 mod_Perl 1.0 与 2.0。 用 户 若 想 了 解 有 关 mod_Perl 的 任何 





内 容 ， 均 可 在 这 里 找到 它 。 

Bug 报告 
在 解决 某 个 bug 之 前 ， 开 发 者 必须 首先 重 现 它 。 用 户 最 好 能 提供 所 有 的 相关 信息 ， 以 帮助 重 现 
该 bug。 但 是 ， 用 户 确实 难以 决定 究竟 该 把 哪些 信息 放 到 bug 报告 中 。 为 了 加 速 信息 检索 的 过 程 ， 
我 们 编写 了 一 份 指南 文档 ， 精 确 地 解释 了 需要 提供 哪些 信息 。 一 般 而 言 ，bug 报告 写 得 越 好 ，bug 
重 现 乃 至 修复 就 进行 得 越 快 。 

获取 帮助 

解决 用 户 磁 到 的 mod_Perl 问题 借助 mod_Perl 邮件 列表 、mod_Perl 培训 公司 、 或 者 借助 某 个 
商业 化 支持 公司 。 不 妨 去 找 一 个 提供 mod_Perl 服务 的 ISP。 





























邮件 列表 

mod_Perl 及 其 相关 项 目的 邮件 列表 。 

产品 

已 经 有 大 量 的 软件 能 够 与 mod_Perl 配合 使 用 ， 并 /或 帮助 用 户 编写 自己 的 工程。 
贡献 





如 何况 mod_Perl 社区 做 出 自己 的 一 份 贡献 。 
了 解 mod_Perl ? 

有 关 mod_Perl 的 推介 文档 与 资源 。 

有 关 mod_Perl 

有 关 mod_Perl 历史 的 一 般 信 息 。 

mod_Perl 子 项 目 

在 mod_Perl 玖 愤 下 维护 的 其 他 项 目 。 

工作 

找到 一 份 梦 宁 以 求 的 mod_Perl 工作 职位 ! 
站 点 地 图 

从 这 张 站 点 地 图 可 以 访问 到 本 站 点 上 的 任意 文档 。 




















D.3 安装 mod_Perl 


本 节 将 描述 安装 mod_Perl 以 及 为 快速 执行 CGI 脚本 而 配置 Apache 的 一 般 步 又。 读者 应 当 已 
经 安装 并 启动 了 最 新 版 的 Perl 和 Apache， 并 且 熟 悉 CGI 的 工作 方式 〈 详 见 第 16 章 )。 

下 面 这 个 示例 演示 了 如 何 安装 并 在 一 个 使 用 Apache2.x 与 ActivePerl15.8.8 的 窗口 系统 上 运行 
mod_Perl 脚本 。 

如 要 获取 文档 , 请 访问 mod_Perl 站 点 ,http:/Perl.apache.org/docs/index.html。 如 要 获得 mod Perl 
源码 或 二 进 制 发 布 包 ， 请 访问 下 载 页 面 http:/Perl.apache.org/download/index.html1。 这 里 配置 Apache 
httpd.conf 文件 的 方式 可 能 会 略 有 不 同 ， 因 为 用 到 的 Perl 模块 可 能 并 不 位 于 与 之 相同 的 库 中 。 为 了 
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搞 请 楚 如 何 把 本 示例 移植 到 Apache 和 Perl 的 当前 版 本 ， 可 能 会 花费 一 些 时 间 。 

mod_Perl 有 两 种 不 同 的 版 本 : 

mp2 一 一 针对 Apache HITTPD 服务 器 第 2.x.x 子 版 本 提供 的 mod_Perl。 

mp1l 一 一 针对 Apache HTTPD 服务 器 第 1.3.x 子 版 本 提供 的 mod_Perl。 
在 本 示例 中 ， 我 们 将 使 用 mp2， 它 完全 兼容 于 HITPD 2.0.x， 并 支持 大 部 分 2.2.x 特性 。 
为 带 有 PPM 的 ActiveState 安装 mod_ Perl。 借助 ActiveState 的 PPM 工具 ， 模 块 的 安装 过 程 
变 得 越 来 越 简便 了 。 目 前 ， 该 工具 已 经 包含 在 每 一 种 ActivePerl 发 布 包 中 ， 不 仅 包 括 Windows 版 ， 
还 包括 UNIX 版 本 的 ActivePerl。 该 工具 允许 读者 进行 安装 、 移 除 、 升 级 ， 并 能 管理 Perl 公共 预 编 
译 CPAN 模块 的 使 用 。 

下 面 的 示例 在 Windows 系统 上 用 到 了 PPM 工具 。 


C:\>PPm instal1l mod_ Per1 

Downloaading ActivesState Package Repository Packlist...Qone 
UPpaating ActiveState Package Repository database...Qone 

Emos Eee EmoamyWBESCESaSem RISESCSOCOe 汪 meO 匡 忆 ee 






































C:\>PPm instal1l httP://theoryx5.uwinnipeg 

/ppms/mod perl=2.0.DPQ 

有 SwissagnngmSd 同人 下 由 二 必 本 人 疙 交 由 过 OCSE 

有 BaeIE9EEmCO 忆 全 下 考区 间作 交合 允 二 汪 GO 仿 亿 全 

GenmeaecEMT Onmeg 基 世 e 钙 于 必 汪 册 六 全 机 证 二 O 人 人 本 

WEOaimSieS mnESEEEEeSSRROSUS 

SwingEeecenomea 攻 记 E 本 己 交 遇 风 本 SEN 

RnnalgmSQ 本 < 下 机 二 为 王 轴 二 力 汪 人 玫 二 下 和 三 二 二 本 是 

ISOacmenmnoqulEa meoq 王 eeqsad ee 是 eemee ie 有 Te ETEES 则 ESiP 
anaQ should be PlaceaQ in your Apache2 moaules Qirectory。 工 Wil1 
mew 蕙 ee 和 包 让 3 本 二 和 XUE 


Fetching http:// 人 theoryx5.uwinnipeg.ca/ppms/x86/modq perl=2.0.so 
Qomel 

Where shouldQ moq perl.so be blaceda? [C:/Apache2/moaQules ] 
c:/wamp/RApache2/modau 


mod_Per1l.so has been successfullLly installed to c:/wamp/APache2/modules 
Qone 
465 files installeaQ 


Apache 的 conf 目录 (配置 文件 ) 


cd _ c:NwamP\RAPache2\confE 
C:AXwampXApache2A\conf>aqair /b 
alLias 

httPd.conf 
Deeedeaeaes en 

ETe 让 诈 e 

magaceRedetaie 

贡 Lme .tyPes 
mime.types.adaefaul 蕊 
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编辑 Apache 的 httpd.conf 文件 
接着 必须 修改 Apache 的 httpd.conf 文件 ， 诡 加 如 下 各 行 : 


LoadModule mime magic modqule modqules/mod mime magic.so 
LoadModule PEOxyY moaule modqules/moq Przoxy.so 

LoadModule PEOxyY connect moaule modqules/moad PEoxy connect .so 
LoadModule Proxy http module modules/moad Proxy http.so 
icadModule PEOxyY ft module moaules/moadQ Proxy ftp.soc 
LoadqModule negotiation module modules/moq negotiation.so 
LoadModule zewzcite module modules/mod rewzite.so 

LoaaQModule setenvif moadaule modqules/moog setenvit.so 

LoadqModule speling module modqules/mcod speling.so 

LoadModule status moaule moaules/mod status.so 

LoadModule unidque id module moaules/mod uniaue idq.soc 
LoaaModule Userzair module modules/mod userair.sc 

ioadModule Usezctrack modqule moaules/mod Usertzack.so 
LoadaMoadule vhost alias module moaules/moa host alias.so 
LoaaModule Php5 module "c:/wamp/phPp/Pphp5apache2.Q117 
LoadModule Per1l_module modules/mod Perl.so 








卫 XtenaedStatus Controls whether APache will generate "ful1l1" status 
IcemaieecnaEenasasSEaEus one ISOSSEC SETmSERSTUESEEmeEGUSESIEUE 
OfEFE) When the "Sezvez-status" hanadqler 1s calleaQ. The Qeftault 











为 mod_Perl 脚本 创建 位 置 。 现在 我 们 将 创建 存放 mod_Perl 程序 的 目录 /文件 夹 。 这 里 不 会 
把 CGI 脚本 存 入 同样 的 cgi-bin 目录， 而 是 将 它们 移入 这 个 新 目录 中 ， 该 目录 名 叫 c:/home/stas/ 
modperl。 


在 本 示例 中 ， 我 们 将 把 Perl 脚本 保存 到 ; 


c:/home/stas/modPpezr1 


Apache Perl 模块 保存 在 何 处 ? 
根据 所 用 Perl 版 本 的 不 同 ， 负 责 运行 已 有 Perl CGI 脚本 的 Apache 模块 将 位 于 标准 库 中 ， 其 路 
径 可 从 @INC 数组 中 取得 。 


cd /c/ActivePerl/site/1Lip/ModPer1 
SEE 





BuildaMM.Pm 
电 放 人 加 和 


Manifest.pnm 
加 em 


Eeeanaem MethodqLookup .pm 
Bedeam RamsESCECe 汪 名 
[eliotateel 有 STRD 交 简 


攻 GS iiE 间 m 
EunctionMap .pm 
Global.pm 
MM . Pm 


Pez1LRunPzefork.Pm 
RegdSstEYy .En 
RSgasEYEBEBB 司 记 页 
RegistzyCoockez .pm 


RegistzyLIoaaQez .pm 
SONS EEYREEeECEESRm 
EECEUOSSIUEITSRIS 
SSEREsocoEtsom 
站 SRBIRUSST 
WIISMSi 本 记 科 
天书 曾 
WapXS .pm 


Z04 
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PerIRedquire 指令 


然后 , 我 们 将 在 Apache 的 conf 目录 中 为 最 常用 的 Perl 模块 创建 一 个 文件 。 该 文件 叫 作 extras. 
pl， 含 有 mod_Perl 最 第 用 到 的 模块 。 通 过 把 该 文件 名 赋值 给 Apache 配置 文件 中 的 PerlRequire 指 
令 ， 便 能 在 每 次 启动 Apache 服务 器 时 载 和 这些 模 块 。( 请 注意 ,大 多 数 有 关 添 加 模块 的 文档 中 都 把 
Registry.pm 模块 称 为 Apache::Registry。 但 在 当前 最 新 版 本 的 ActiveState Perl 中 , 该 模块 的 名 字 已 
经 成 了 ModPerl::Registry 。) 


C:AXwampXApache2\conf>more extras.P1L 
se MoQPer1l23:Util () 7 


二 
Us 
二 
Se 
Se 
也 Se 
USe 
过 瑟 侠 
USe 
Se 
Se 
Se 
二 
i 








Apache2 : :RedquestRec () 7; 
Apache2 : :ReGuestIO () :; 
Apache2 : :ReduestUti1lL (); 

Apache2 ::SerVerzRec () :; 

Apache2 ::SerzVezUtil () 7 
Apache2::Connection (); 
Apache2::Log () 7; 

Apache2: :const =Complile => " :common 
ROSE Co 三 SOTOGNR 
RE 人 

APache2 : :compPat () ; 
ModPerz1lI::Registzry () 

Ce 全 二 


编辑 Apache 的 httpd.conf 文件 

现在 我 们 将 编辑 httpd.conf 文件 , 它 位 于 Apache 目录 中 。 对 于 这 个 Windows 系统 上 的 Apache 
而 言 ，conf 目录 /文件 夹 位 于 Apache2 目录 下 面 。 

Apache 的 conf 目录 


C:Awarmp\Apache2>dqir /b 
总 避 GIEE>s 


何 训 





9 二 
CHANGES .七 X 七 


Cen 二 
人 让 
CTS 


include 
工人 SS 工 六 下 工 七 区 七 


aauai 


有 后 本 症 ee 攻 


ES 


moaules 
本 刚 李 交配 世 
及 README .七 七 
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我 们 现在 会 cd 到 conf 目录 中 ， 并 找到 httpd.conf 文件 。 
Apache 的 配置 文件 httpd.conf 


5 


ie 


wamp\Apache2>cd conf 


N\wampXApache2Nxconf>dqir /Pb 


IEEaIS 


全 区 七 工 a 二 也 于 
httPd.conEf 
edeaEaUESEST 和 E 
magic 


maguesdqs 丰 au 


和 1me .ypes 


mlime.types.Qefaul 蕊 


然后 ,我们 会 编辑 httpd,conf 文件 , 并 将 示例 D.8 中 的 各 行 添加 到 该 文件 的 底部 。(〈 这 里 每 一 行 


前 面 的 号 码 仅仅 是 为 了 便于 在 示例 后 面 的 解释 部 分 中 解释 每 一 行内 容 。) 
编辑 Apache 的 配置 文件 





下 


也 


解释 
i 


AlLias /Per1L/ c:/home/stas/modPez1/ 

LoadFile "c:/RctivePerILI/bin/Perz158 .dl117" 
Per1lLRedquire "c:/wamp/RAPache2/conf/extras.P1L" 
Perz1LIModule ModPerz1L: :Registzy 


<Location /Per1I/> 
SetHanaler Per1lL=-script 
PerzlLIHanadaler ModQPer1: :Registey 
GaiomsaHiExecCEGT 
PerzclSenadaHeaaer OF 
可 SSwW 和 Sm 本 六 可 册 
ee ae 


本 行 指 定 了 mod_Perl 脚本 所 在 位 置 的 别名 。/Perl/ 是 该 别名 的 名 称 ,c:/home/stas/modperl 
则 是 其 实际 位 置 。 如 果 服 务 器 是 本 地 的 话 , 用 户 可 以 在 浏 览 器 窗口 的 位 置 框 中 输入 http:/localhost/ 


per;/mod Script flename。 


2. LoadFile 指示 符 能 够 保证 安装 正确 版 本 的 Perl 解释 器 。 
3. extras.pl 文件 含有 常用 的 公共 mod Perl 模块 。PerlRequire 则 会 让 Apache 在 每 次 启动 服务 


器 时 都 载 入 这 些 文件 。 


4. PerlModule 指示 符 用 于 载 入 Registry.pm 模块 。( 有 关 mod_Perl 的 许多 文档 都 会 让 用 户 使 用 





Apache::Registry。 而 这 里 正在 使 用 的 则 是 ModPerl::Registry。 请 检查 @INC 数组 ， 并 查看 
安装 有 Registry 模块 的 库 。 当 使 用 该 指示 符 或 者 其 他 任何 需要 用 到 Registry 模块 的 指示 符 时 ， 
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请 确保 模块 名 称 的 正确 性 。 如 有 果 不 想 绥 存 脚本 ， 只 需 再 找到 Registry 的 位 置 将 Registry 更 改 为 


PerlRun 便 可 。) 


(LA 


们 之 前 创建 的 名 叫 /Perl/ 的 别名 中 。 


.Location 部 分 定义 了 一 些 在 Apache 处 理 URI 请 求 时 应 当 遵 循 的 规则 , 这 些 URI 都 列举 在 我 


我 们 将 用 于 执行 CGI 脚本 的 模块 叫 作 Registry.pm。 而 在 这 个 ActivePerl 安装 版 中 ， 用 户 可 在 


数组 @INC 列 出 的 站 点 库 中 找到 该 模块 。 





一 1 


何 载 入 这 些 内 容 。 
8. 
9. 


在 生成 内 容 时 ， 该 指示 符 将 赋予 mod_Perl 模块 ， 以 便 对 该 模块 进行 处 理 。 
. 这 个 指示 符 告 诉 Apache 应 当 使 用 什么 模块 去 生成 内 容 。 模 块 决定 了 在 每 次 处 理 请 求 时 将 如 





该 选项 告诉 Apache 该 CGI 脚本 是 可 以 接受 的 ， 并 且 它 们 也 拥有 执行 权限 。 
当 该 指示 符 处 于 打开 状态 时 ，mod_Perl 将 会 创建 格式 正确 的 HITP 首部 。 


10. 当 设置 了 Allow from All 时 ， 任 何 客户 端 都 将 有 权 执 行 该 耳 地 址 和 域 上 的 脚本 。 


mod_Perl 安装 了 吗 ? 

检查 mod_Perl 是 否 功能 正常 的 方法 有 很 多 
种 。 读 者 可 以 在 重启 服务 器 后 找到 Apache 的 错 
误 日 志 ， 如 下 所 示 ; 

cd c:Nwamp\1lodgs 

C:NAwamp\logs>dir /Pb 

access.1od 

apPache_erzor.1og 

工 9 dz 

mysdl_error.1og 

ee 


在 重启 服务 器 后 检查 Apache 错误 日 志 。 这 
时 应 当 能 看 到 如 下 所 示 的 部 分 内 容 : 





[Mon Jul 02 14:08:11 2007] 
Apache/2.0.55 (Win32) PHP/5.1.4 

modq_ Per1/2. 

0.3 Perl/v5.8.8 configured -- resuming 
normal operations 

[Mon JUul 02 14:08:11 2007] 

[Mon Jul 02 14:08:11 20071] 


借助 CGI 脚本 检查 mod_Penl 


[noticel] 


[noticel] 





》 
园 5top Service 


SSTBRESUTIEISEFYiEE 


办 Restart ee 
Test Port 80 


徇 Install 5ervice 
| Remove 5ervice 


司 | Loc 


alhost 


辐 phpyadmin 
辕 5QLitewianager 


回 ww 


ww directory 


呈 Logfies 
configfies 


忆 
Rn 
QQ 
全 


apache modules 
PHP settings 
站 as drectories 


Services 


上 pache 
MYSQL 
Start 中 | Services 


Stop 吕 | Serwices 


世 访 


Put 





SerVeLr puilt: 


[notice] Parent: Createdq child process 5008 


图 D-2 使 有 








QiG 起 





目 WAMP5 管理 





9 人 9005- 下 9< 开 


Restart 中 | Serwices 


Online 





Apache 
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在 Apache 根 目录 下 的 传统 cgi-bin 目录 中 ， 读 者 可 以 找到 一 个 标准 的 测试 文件 ， 该 文件 是 随 


Apache 发 布 的 。 访 文件 叫 作 printenv.p1。 请 把 该 文件 找 贝 到 刚才 创建 的 新 mod_Perl 目录 中 ， 在 本 




















例 中 就 是 c:/home/stas/modperl, 该 路 径 在 http.conf 文件 中 的 别名 是 /Perl/。 请 确保 其 权限 得 到 了 正 
确 的 设置 。 该 服务 器 应 当 为 脚本 提供 执行 权限 。 如 果 没 有 的 话 , 则 在 浏览 器 中 会 出 现 如 图 D-3 所 示 
的 错误 : 

现在 ， 请 访问 浏览 器 中 的 URL， 并 像 图 D-4 那样 执行 printenv.pl 文件 。 该 文件 能 显示 所 有 的 
环境 变量 ， 包 括 MOD PERL 和 MOD _ PERL _ API VERSION 变量 。 
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钱 403 Forbidden - Mozilla Firefox 


Ble Edk yew Htory Bookmarks Ioos bep 
ww 辣 辣 | 攻 T ， 网 


间 








Forbidden 


You dont have permisston to access 加 erlprmtenv.pl on this server. 


pacpe12.033 08023211 PEP1J4 MOld peri2.03 PeiJ88Sermeratioca 凡 ost Po 了 
20 





图 D-3 来 自 Apache 的 权限 错误 









Ble 5 Wew HSory Bookmarks Ioos Hep 


但 
< GOTN|D moonapronevo 加 DG 同 
口 cuxomizelinks 号 有 :jc:jpocuments.， 思 Free Hotmal 可 Reaplayer [L] windows Marketplace 六 


CONSPEC=nC:VYUINDOWSVsSyScerm32Ycrmd exe 

DOCUNENT_ROOT="C:17 vemp/wuwn" 

GATEUAY_INTERFACE=nCGI/IT.I" 

HTTP_ACCEPTwcext/xinlyapp1icacion/ ximlyapplicationVyxhcml+xmlcexz/htmlzcqn0.9 
HRTTP_ACCEPT_CHARSET"ISO-8859-1vucE-8:qn0.7，xiqn0.7" 
HTTP_ACCEPT_ENCODING”"gzip，QeE1lace"” 

HTTP_ACCEPT_LANGUAGE” "en-uzsveniGn"0.5" 

HTTP_CACHE_CONTROL= "max-agewO" 

HTTP_CONNECTION= "KeeD-ALIVe" 

HTTP_HOST "1oc&lhosc” 

HTTP_FREEP_ALIVE="300" 

HTTP_USER_AGENT="MOozillea/5.0 (Windovs: U; Windovs NT 5.1: en-U5S; rVvi1.8.1.4 
HTTP 醒 1 一 一 一 一 一 一 一 一 一 一 一 一 要 

NOD_PERL="mod_ perl/2.0.3" 

NOD_PERL API_VERSION="27 
PATH=nCciVAccivePerlvsicevbiniCciyaAcciveperlybiniciyYPROGRA~IVPerlEdticiciyProg 
PATHEXT="”.COKN;: .EXE: .BAT: ,CIJD: .VBS: .VBE: .J3: .JS3E: .USF: .WSH; .DY .DYV” 
QUERY_STRING="" 

RENOTE_ADDR="127.0.0.1" 

RENOTE_PORT="34338" 

REQUEST_KETHOD=”GET” 

REQUEST_URI="”/pEerl/AprdtnCcenV.Dp1” 
SCRIPT_FILENANE="C:/home/3sras/imodperl7princenv.pln 
SCRIPT_NANE="/DpEeE1/ApPITREENV.D17 

SERVER_ ADDR="127.0.0.1” 

SERVER_ADNIN= "vebyia3cer8 localhosc" 

SERVER_NANE="1LDCcalho3sc” 

SERVER_PORT="80” 

SERVER_PROTOCOL="HTTPV II” 


图 D-4 执行 Perl 脚本 printenv.pl 














尝试 另 一 个 CGI 脚本 : 
请 把 下 列 CGI 脚本 放 入 mod_Perl 目录 中 。 该 脚本 用 到 了 CGILpm, 其 样式 是 面向 对 象 的 。 在 安 
装 好 mod_Perl 之 后 ，CGI Perl 脚本 都 应 当 从 该 目录 中 执行 。 其 运行 情况 如 图 D-5 和 D-6 所 示 。 
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山 #!c:/RActivePerl/bin/pPer1l.exe 
凤 Se 有 Seuet 

相 SeBGTZ 

4 my S$q = CGI->new; 


em 
-BGCOLOR=>' Lightgreen')yv 
号 本 二 过 有 JETTCOEOSTEIREEWGmenincEm 二 于 
6 3 本 Emal 也 


First mod_perl Try - Mozilla Firefox 





File Edit wew History Bookmarks Tools Help 


必 “区 他 [ 基 人 备 器 http'Wlocalhostjperlihello,pl | 


口 Customize Links 蝇 file:WCJDocuments，， 巴 Free Hotmail CD RealPlaye 




















了 Hi, mod_perl is Working!! 





D-5 借助 mod_ Perl 运行 CGI 脚本 


[EAI 和 RS -9 


Headers | Generstce | Confg | Abok | 




















GET jperhelo.RHTTPJ1.1 
HoSX: lo 二 mo 你 
User-Agert: Mozaa1S.0(Windowzi U Wmndows NT 5.1; errUS; rv:1.8.1.4) Gedkhoj20070515 Freefoxj2.0.0.4 
PCcept' 062KjxTnl ap 上 SOnxiapPSCSKiOrUxhkrmiHe textjhtriiqn0,9,textjplsn;qn0,5iina39ejpng iiqm0.5 
AcCCcept-an9J59e: errU5ieriiq=0.5 

PCcepkEncodn9: 02p,geflake 

Accept-Charset: I5O-8659-2df-8)q=0.7,”%G=0.7 

KeepAlve: 200 

Connection; keep-ative 

Cadhe-Corirol: msoges0 


HTTPJI.x200 CK 
Date: Non 02 则 2007 20:52:12 GMT 


Server: Apache12.0.55 (Win32) PHPJS.1.4 





Keep-Alve' Uneoukm15, paxm100 
Connecion: Keep-Aive 
Trancier'Emogng: dhurked 
Conkterk-TyPe': textjhbmli charcetn150-6559-1 











图 D-6 Firefox 插件 Live HTTP headers 能 显示 HTTP 请 求 /响应 


UNIX/Linux 安装 

下 面 这 段 脚本 来 自 于 : 
http:/www.Perl.com/pub/a/2002/03/22/modperl.html。 
它 能 检查 用 户 正在 使 用 的 Linux/UNIX 系统 版 本 。 














索 骨 与 速度 :， CGT 和 mod_ Perl 7Z09 





作客 - 轩 因 人 台 加 errerneosntovrirasirsaool 站 四 


Home / Documentation /2.0 /Users guide 7/ 


Installing mod_perl 2.0 


Table of Contents 


9 Description 
9 PrerequUisiteS 
o Dowmnioading Stable Release Sources 
e Geting Bleeding Edge Sources 
e Configuring and nstaling PrereGuisites 
@ Pefl 
ea Apache 
e Installing mod_perlffrom BinaryPackages 
e Instaling mod_perl ffom Source 
e Dowmioading the mod_perl Source 
e Configuring mod_pefl 
se Dynamicmod_perl 
se Static rmod_pefl 
o mod_perl Build Opions 
ae Boolean Build Opions 
se MP_PROMPT_DEFAULT 
me MP_GENERATE_XS 


图 D-7 在 Apache 官方 站 点 咨询 下 载 事宜 











示例 D.10 
司 人 ee 
的 本 三 辐 攻 WE 名 随 相让 用 天 帮 估 太太 情 二 亲本 必要 可 攻 本 丰 可 下 二 让 臣下 本 和 凡生 人 全 六 可 二 2 于 昨 辐 汪 二 二 六 3 人 三 
本 
证 总 汪 二 改过 三 记 有 全 E 且 证 攻 生 天 本 有 有 0 三 志和 下 于 本 站 让 让 三 下 商 
NE 放下 术 可 双 
和 
cq 用 meO 旺 已 E 下 站 二 本 区 G 
Per1 Makefile.PLI APACHE SRC=../apache 1.3.20/src 
四 @ 本 RE 三 二 US 玫 本 六 本 太 记 下 二 二 EN 三 放 
makexcamaksEssE cmakeamSsEalii 
cd ../apache 2.0.55 (Check for the Cortfect nunmbezr here) 
make 1nstal1 


ecoeroeen 


ooe 


oo oo 


ge 


mod_Perl 文档 。mod_Perl 项 目 拥有 大 量 文档 ， 涉 及 mod_Perl 1.0 与 2.0。 用 户 若 想 了 解 有 关 
mod_Perl 的 任何 内 容 ， 均 可 在 这 里 找到 它 。 

mod_Perl 文档 中 用 到 的 规范 。 
在 文档 中 用 到 了 很 多 易于 理解 的 规范 ;如果 读者 仍然 怀 有 疑惑 ， 请 在 这 里 查看 帮助 信息 。 

mod_Perl 1.0 文档 

与 mod_Perl 1,0 版 相关 的 一 组 文档 。 

mod_Perl 2.0 文档 

与 mod_Perl 2,0 版 相关 的 一 组 文档 。 

通用 文档 

读者 在 这 里 可 以 找到 有 关 mod_Perl 的 通用 文档 ， 以 及 其 他 一 些 与 mod_Perl 不 直接 相关 ， 但 却 
有 益 于 使 用 mod_Perl 的 信息 。 这 里 的 大 部 分 文档 都 适用 于 mod_Perl 1.0 和 2.0。 

mod_Perl 相关 书籍 、 文 档 、 演 示 ， 以 及 指向 其 他 相关 主题 站 点 的 链接 。 





Z70 有 附录 姜 





D.4 资源 


1. Bekman, Stas and Cholet, Eric. _ Practical iod_Per/. O'Reilly and Associates,，Inc. 
2. Stein, Lincoln and MacEastern, Doug. 玫 1i1g 4pacjhe Modules wii Per ad C. O'Reilly and 
Associates,， Inc. 


